(defun C:analise-txt-katalog-by-kart (/ ASS-BIG-LIST FLAG FLAG-NIL LIST_FILES N NN RESULT TXT-BIG-LIST-PATCH)
  
  (setq list_files (file_find_be_extension "d:\\по каталогу" "tif"))
  (setq txt-big-list-patch "d:\\Координаты г Саратова_33.txt")
  (setq ass-big-list(read-katalog-file-by-ass-list txt-big-list-patch))
  (setq nn 0)
  (foreach point ass-big-list
    (setq nn (1+ nn))
    (name-file-to-messege (itoa nn))
    (setq flag T)
    (setq flag-nil nil)
    (setq n 0)
    (while flag
      (if (eq (vl-filename-base (nth n list_files)) (strcat (get-item-by-name-in-list point "Номер по каталогу Саратов")"="(get-item-by-name-in-list point "имя пункта")))
	(setq flag nil)
	(setq n (1+ n))
	)
      (if (= n (length list_files))
	(progn
	  (setq flag nil)
	  (setq flag-nil T)
	  ))
      )
    (if flag-nil
      
      (progn
	(setq result
	       (append result(list
			       (convert-list-to-string-be-delimiter(list
								     (get-item-by-name-in-list point "имя пункта")
								     ""
								     (get-item-by-name-in-list point "Номер по каталогу Саратов")
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     )"\t"))))
	)
      (progn
	(vl-file-rename (nth n list_files) (strcat (vl-filename-directory (nth n list_files))"\\+"(vl-filename-base (nth n list_files))(vl-filename-extension (nth n list_files))))
	(setq result
	       (append result(list
			       (convert-list-to-string-be-delimiter(list
								     (get-item-by-name-in-list point "имя пункта")
								     ""
								     (get-item-by-name-in-list point "Номер по каталогу Саратов")
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     ""
								     (strcat (get-item-by-name-in-list point "Номер по каталогу Саратов")
									     "="
									     (get-item-by-name-in-list point "имя пункта")
									     ".tif")
								     )"\t"))))
	)
      )
    )
  (delete-name-file-to-messege)
  (file_write_list_to_file "d:\\result.txt" result)
  (princ)
  )