读取文件数据时,分隔符为逗号,怎么提取每个元素?

革天明

nzl1116 发表于 2011-12-28 12:47
返回的是每个元素组成的表，要提取元素，再调用car,cadr,caddr

这样可以用，但如何知道你读取的是第几行的数据呢？我不太懂read-line，请指教

nzl1116

革天明 发表于 2011-12-28 19:08
这样可以用，但如何知道你读取的是第几行的数据呢？我不太懂read-line，请指教

这简单,设置一个变量n,初始值为0,每读一行,将n递加1

Gu_xl

1. (defun Parse (str del / pos lst)
   
2.   (while (setq pos (vl-string-search del str))
   
3.     (setq lst (cons (substr str 1 pos) lst)
   
4.           str (substr str (+ pos 1 (strlen del)))
   
5.     )
   
6.   )
   
7.   (reverse (cons str lst))
   
8. )
   
9. ;;;测试
   
10. (mapcr 'read (cddr (parse "1,123,30,20,0" ",")))==>(30 20 0)
    

(defun Parse (str del / pos lst)<br />   (while (setq pos (vl-string-search del str))<br />     (setq lst (cons (substr str 1 pos) lst)<br />           str (substr str (+ pos 1 (strlen del)))<br />     )<br />   )<br />   (reverse (cons str lst))<br /> )<br /> ;;;测试<br /> (mapcr 'read (cddr (parse "1,123,30,20,0" ",")))==>(30 20 0)<br />

kailuan2zhong

Gu_xl 发表于 2011-12-28 19:55

我用了别的方法也实现了,谢谢帮忙。

弓志贤

版主的方法好