[olga87]

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

Код ниже (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
)

[Кулик Алексей aka kpblc]

Без проверок:

Код:

[Выделить все]

 (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 или нет.