拆分字符串

qutry

各位高手能不能设计一个LISP程序拆分字符串，

比如CAD里有个字符串是“0.3-0.8”，运行设计的LISP后，选择这个字符串，会拆分为“0.3”，“0.8”两个。谢谢了

还有比如“0.3-0.8-1.2”三组的能不能也拆分为“0.3”，“0.8”，“1.2”

ljttjl

使用以下语句，得到b b1 b2即为所需要的值：  

    (setq a2 "0.3-0.8-1.2")

    (setq a3 (vl-string-position (ascii "-") a2))
    (setq a4 (vl-string-position (ascii "-") a2 (+ a3 1)))
    (setq b (substr a2 1 a3))
   
    (setq b1 (substr a2 (+ a3 2) (- a4 a3 1)) )
    (setq b2 (substr a2 (+ a4 2)) )

freeok

楼主有没有研究出来？