[LISP函数]：老手们请进,关于文件读取的问题

教父

最近学习cad学到文件部分了，可很多东西太陌生了,找了资料也不怎么详细,想在此请教大家几个问题
cad读取文件的时候似乎只有read-line一个模式是吧,这样我怎么把得到的数据分离出来呢
比如我的文件是xxxx,xxxx,xxxxxx,xxxx,xxx这样的格式
或者是以空格来做分隔的形式,我只想到可以用substr来逐个取出来,可如果每列的字符数目不等就没办法解决了.我在想是不是lisp里有什么函数是用于区分分隔符的啊,希望高手能指点一下


比如我的文本格式如下
e023,1465,1345,23.5
e024,1234,1234,23.56
e025,1234.5,1234,23
........

对于这样的文本数据大家能给点处理意见吗,谢谢

Underway

http://discussion.autodesk.com/thread.jspa?messageID=1155280

Reply From: Oquendo, Frank
Date: Feb/02/00 - 14:52 (GMT)

Re:
I'm sorry Valdimir, I acidentally replied to you instead of the group. Your
observations are of course correct, so here is a parsing routine that
performs as you've specified:

;;; Returns a list containing all tokens in a delimited string
;;; Use: (parse "one,two,three" ",")
(defun parse (str delim / lst pos token)
(setq pos (vl-string-search delim str))
(while pos
(setq lst (cons (if (= (setq token (substr str 1 pos)) delim)
nil
token
)
lst
)
str (substr str (+ (strlen delim) pos 1))
pos (vl-string-search delim str)
)
)
(if (> (strlen str) 0)
(setq lst (cons str lst))
)
(reverse lst)
)

教父

谢谢地下铁，不过前面一大段英文害我初看还以为你是老外呢，呵呵，不知道对于空格的分隔会不会产生问题呢，我回去试试
再次感谢