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