[LISP程序]：如何从txt文件中提取出数字信息来？

xdcadfqd

各位老师：

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

wkai

[php]
(defun c:tt (/ F LN LST ttt)
  (defun ttt (n / s len m)
    (setq n   (strcase n)
          len (strlen n)
    )
    (foreach m lst
      (if (= n (strcase (substr m 1 len)))
        (setq s m)
      )
    )
    (atof
      (substr s (+ 1 (strlen "：") (vl-string-search "：" s)))
    )
  )  
  (setq f (open "c:\\\\j50h016092.txt" "r"))
  (while (setq ln (read-line f))
    (if        (/= "" (setq ln (vl-string-trim " " ln)))
      (setq lst (cons ln lst))
    )
  )
  (close f)
  (setq lst (reverse lst))
  (command "._line"
           (list (ttt "12") (ttt "13"))
           (list (ttt "16") (ttt "17"))
           ""
  )
  (princ)
)
[/php]

xdcadfqd

多谢斑竹!!!

cuiwenjun2008

多谢2楼主，我也经常遇到这样的问题，照这个意思，也能提取坐标画PL线了！

jyzas

支持2楼:):)