Тема: Создать в папке файл txt и записать в него данные при условии

Здравствуйте Уважаемые программисты!

Ниже код (Lisp AutoCAD) должен в файл "Paths.txt" вставить значение из переменной "exPath".
Подскажите пожалуйста, как исправить код ниже, чтобы выполнялись два условия:
1) если файл "Paths.txt" пуст (ничего нет, даже если только пробелы), то просто записать значение "exPath" (например, C:\Users\user1\AppData\Roaming\Autodesk\AutoCAD 2020\R23.1\rus\Support\ToolPalette;C:\ToolPalettes\cad1;C:\моя папка с палитрами)
2) если файл "Paths.txt" НЕ пуст и в нем есть уже строка (например, C:\Users\user1\AppData\Roaming\Autodesk\AutoCAD 2020\R23.1\rus\Support\ToolPalette;C:\ToolPalettes\cad1), то найти последний символ (не пробелы), после этого символа сразу записать знак ";" (без кавычек) и далее вставить значение из "exPath".
Заранее спасибо!

  (if (null (vl-file-directory-p "C:\\MyFolder"))
    (vl-mkdir "C:\\MyFolder")
  )

  (setq exPath (vla-get-toolPalettePath (vla-get-files (vla-get-preferences (vlax-get-acad-object)))))
  
(if (setq file (open "C:\\MyFolder\\Paths.txt" "a"))
   (progn
       (write-line exPath file)
       (close file)
   )
   (princ "\nНе удалось создать/изменить файл Paths.txt.")
)

(изменено: Alan, 11 ноября 2020г. 19:43:39)

Re: Создать в папке файл txt и записать в него данные при условии

Вы решили эту задачу в другом месте?