Создать в папке файл 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.")
)

Ответы (0 шт):