如何只把txt文件中的数字提取出来？（详细内容请进->）

cadfqd

各位老师：


                                                         我现在碰到问题是：有txt文件（我已经上传），内容既有字符又有数字，我就想把其中的数字提取出来，其实只要12,13条和16,17条就可以了，然后组成坐标对，再在cad中画出一条线。由于是混和的，我不知道怎么只把数字提取，希望各位帮我个忙！！！谢谢

tiger8888

你的txt文件很有规律阿，分割字符和数字的是“： ”，用(substr)可以很轻松实现的

SWAYWOOD

2. (defun str2no (str / ll nn ss)
3.    (setq nn "" ss "")
4.    (repeat (strlen str)
5.        (setq s (substr str 1 1))
6.        (if (or (= (ascii s) 46)(wcmatch s "#"))
7.            (setq nn (strcat nn s)
8.                ll (append ll (list ss))
9.                        ss "")
10.            (setq ss (strcat ss s)
11.                        ll (append ll (list nn))
12.                        nn "")
13.        )
14.        (setq str (substr str 2))
15.    )
16.    (setq ll (vl-remove "" ll))
17.    (if (/= nn "")(setq ll (append ll (list nn))))
18.    (if (/= ss "")(setq ll (append ll (list ss))))     
19.    ll
20. )

(defun str2no (str / ll nn ss)    (setq nn "" ss "")    (repeat (strlen str)        (setq s (substr str 1 1))        (if (or (= (ascii s) 46)(wcmatch s "#"))            (setq nn (strcat nn s)                ll (append ll (list ss))                        ss "")            (setq ss (strcat ss s)                        ll (append ll (list nn))                        nn "")        )        (setq str (substr str 2))    )    (setq ll (vl-remove "" ll))    (if (/= nn "")(setq ll (append ll (list nn))))    (if (/= ss "")(setq ll (append ll (list ss))))         ll )

read-line所有行，读取需要的行字符串，用上面的子程序得到分离后的表，然后提取数字，组合就可以了……

Ronaldinho

多谢楼上各位.不胜感激!

jyzas

用nth也可以