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