qutry 发表于 2009-8-23 15:31:00

拆分字符串

<p>各位高手能不能设计一个LISP程序拆分字符串，</p><p>比如CAD里有个字符串是“0.3-0.8”，运行设计的LISP后，选择这个字符串，会拆分为“0.3”，“0.8”两个。谢谢了</p><p>还有比如“0.3-0.8-1.2”三组的能不能也拆分为“0.3”，“0.8”，“1.2”</p>

ljttjl 发表于 2009-8-23 21:52:00

<p>使用以下语句，得到b b1 b2即为所需要的值：&nbsp;&nbsp; </p><p>&nbsp;&nbsp; &nbsp;(setq a2 "0.3-0.8-1.2")</p><p>&nbsp;&nbsp;&nbsp; (setq a3 (vl-string-position (ascii "-") a2))<br/>&nbsp;&nbsp;&nbsp; (setq a4 (vl-string-position (ascii "-") a2 (+ a3 1)))<br/>&nbsp;&nbsp;&nbsp; (setq b (substr a2 1 a3))<br/>&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp; (setq b1 (substr a2 (+ a3 2) (- a4 a3 1)) )<br/>&nbsp;&nbsp;&nbsp; (setq b2 (substr a2 (+ a4 2)) )</p><p></p>

freeok 发表于 2012-11-16 08:00:20

楼主有没有研究出来？
页: [1]
查看完整版本: 拆分字符串