[sanok7]

Пишу программу на Лиспе. Очень очень медленно, но продвигаюсь модуль за модулем .

Хочу презентовать кусочек на суд форумчан - можно тыкать пальцами и говорить как "нуна тут и тама".


Цель: Прочитать данные из файла txt, пропустить строки с "шапкой", преобразовать в список:
(("-BBB-" "7") ("-AAA-" "8") ("-FL-" "1"))

Код:

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

Пример фала txt
This file set the colors

--END_OF_COMMENTS--
-FL-|1
-AAA-|8
-BBB-|7

Код:

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

 ;; read from txt ;;;;;;

(defun read_txt	(/ txtpath txtfile k color_list data_start_pos)
  (setq txtpath (getfiled "Select file with colors" "" "txt" 4))
  (setq	txtfile	   (open txtpath "r")
	color_list '()
  )
  (while (setq k (read-line txtfile))
    (progn
      (if (= T data_start_pos)
	(setq color_list (cons (str->lst k) color_list))
      )
      (if (and (= "--END_OF_COMMENTS--" k) (= nil data_start_pos))
					;search the "--END_OF_COMMENTS--"
	(setq data_start_pos T)
      )
      T
    )
  )
  (close txtfile)

)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun str->lst	(str / len lst pos del)
  (setq del "|")
  (setq len (1+ (strlen del)))
  (while (setq pos (vl-string-search del str))
    (setq lst (cons (substr str 1 pos) lst)
	  str (substr str (+ pos len))
    )
  )
  (reverse (cons str lst))
)