Vetcad
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Обработка ошибки при чтении txt файла

Обработка ошибки при чтении txt файла

Ответ
Поиск в этой теме
Непрочитано 04.10.2020, 21:41 #1
Обработка ошибки при чтении txt файла
olga87
 
Регистрация: 28.05.2007
Сообщений: 142

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

Код ниже (lisp autocad) считывает в переменную data список из txt. Подскажите пожалуйста, как выдать сообщение об ошибке, если файл пуст?
Спасибо!

Код:
[Выделить все]
(setq fp (open "C:\\MyToolPaths\\Paths.txt" "r") lst '())
  (while (setq l (read-line fp))
    (setq lst (cons l lst))
  )
  (close fp)
  (setq lst (reverse lst))
  (setq data (LM:lst->str lst ";"))

;*******
(defun LM:lst->str ( lst del / str )
  (setq str (car lst))
  (foreach itm (cdr lst) (setq str (strcat str del itm)))
  str
)
Просмотров: 889
 
Непрочитано 04.10.2020, 22:19
#2
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 37,818


Без проверок:
Код:
[Выделить все]
 (if (setq file (findfile "C:\\MyToolPaths\\Paths.txt"))
(progn
(setq handle (open file "r"))
(while (setq s (read-line handle))
(setq lst (cons s lst))
)
(if lst (setq data (strcat (last lst)(apply (function strcat) (mapcar (function (lamdba(x) (strcat ";"
x))) (cdr(reversel lst))))
)))))
----- добавлено через 43 сек. -----
В принципе, достаточно проверять, есть что-то в lst или нет.
__________________

---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Обработка ошибки при чтении txt файла

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Ошибка при загрузке файла dsd (публикации) в AutoCad ASЪ AutoCAD 12 02.06.2020 14:34
Программа для редактирования XML файла acad.cuix МишаИнженер Программирование 30 12.09.2012 11:30
Lisp. Проблема после копирование стиля несущего элемента (ADT) из файла молодой человек LISP 1 02.05.2011 22:56
Как присоединить к одному чертежу (из 1ого файла) кусок продолжение (из 2ого)? star282 AutoCAD 13 17.03.2011 12:13
Частичное открытие файла - не активно при открытии файла ADik AutoCAD 4 22.06.2006 07:35