【求助】关于数据读取的一个问题，想从字符串读出单个数据并一一赋给变量

阿赖耶识

我有这样一个字符串数据t
“1,5,100000.0000,6000.0000,0.0000,4500.0000,450.0000,200.0000,10.0000,2000.0000,2000.0000,36000.0000”
我想每个数据一一赋给变量，最后想得到a=1,b=5,c=100000.0000，d=.......依次如此。
我想过用substr函数，但是这样太死板了，数据一改就没意义了。求高手指点啊！！！

Andyhon

check  Parse ...
http://bbs.mjtd.com/thread-82800-1-1.html
http://bbs.mjtd.com/thread-14046-1-1.html

chg

如果你都是以逗号为分割的话，可以在字符串中检测逗号，然后以此逗号的位置分割字符，赋给变量，如此循环。用VL-STRING-SEARCH查找，再用SUBSTR提取就行。

阿赖耶识

回复 chg 的帖子

大哥，能否具体点，附上程序，小弟不才

Gu_xl

回复 阿赖耶识 的帖子

1. (defun Parse (str delim / lst pos)
   
2.   (setq pos (vl-string-search delim str))
   
3.   (while pos
   
4.     (setq lst (cons (substr str 1 pos) lst)
   
5.   str (substr str (+ pos 2))
   
6.   pos (vl-string-search delim str)
   
7.     )
   
8.   )
   
9.   (if (> (strlen str) 0)
   
10.     (setq lst (cons str lst))
    
11.   )
    
12.   (if (= " " delim) (setq lst (vl-remove "" lst)))
    
13.   (reverse lst)
    
14. )
    
15. ;测试
    
16. (setq s (list 'a 'b 'c))
    
17. (mapcar 'set s (parse "1,223,5667" ","))
    

(defun Parse (str delim / lst pos)<br />   (setq pos (vl-string-search delim str))<br />   (while pos<br />     (setq lst (cons (substr str 1 pos) lst)<br />   str (substr str (+ pos 2))<br />   pos (vl-string-search delim str)<br />     )<br />   )<br />   (if (> (strlen str) 0)<br />     (setq lst (cons str lst))<br />   )<br />   (if (= " " delim) (setq lst (vl-remove "" lst)))<br />   (reverse lst)<br /> )<br /> ;测试 <br /> (setq s (list 'a 'b 'c)) <br /> (mapcar 'set s (parse "1,223,5667" ","))<br />

fl202

试试这个，你根据这个改下就ok了。不明白再交流。

jiang__jin

都是高手 学习了