cadfqd 发表于 2004-12-7 12:00:00

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

各位老师：


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

tiger8888 发表于 2004-12-7 12:43:00

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

SWAYWOOD 发表于 2004-12-7 12:45:00

(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 发表于 2004-12-8 15:43:00

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

jyzas 发表于 2013-8-8 23:27:41

用nth也可以
页: [1]
查看完整版本: 如何只把txt文件中的数字提取出来？（详细内容请进->）