或许文本制定内容整个程式做错，但拆开单步运行成功。

75215195

我有一个文本：

客户:       板料:         
内编:       厚度:         
===========================
序号  刀具   冲针    数量
===========================
1     T1    P4.00    8
2     T2    D3.95    4---(导柱)
3     T3    L13.00    10---(12MM剪口螺丝)
4     T4    Z5.20    62---(5.00顶针)
5     T5    L6.70    8---(8MM针板螺丝)
6     T6    L8.30    4---(6MM上玉螺丝)
*********************************************
加工程式:
进口机加工程式:c:\dwg\3034dz.nc
光纤机加工程式:c:\dwg\3034dz.hao
国产新机加工程式:c:\dwg\3034dz.txt



我需要的内容：
1     T1    P4.00    8
2     T2    D3.95    4---(导柱)
3     T3    L13.00    10---(12MM剪口螺丝)
4     T4    Z5.20    62---(5.00顶针)
5     T5    L6.70    8---(8MM针板螺丝)
6     T6    L8.30    4---(6MM上玉螺丝)


我的程序如下：
(setq ff (open strcat "c:/dwg/nameDZ.rep" "r"))
(setq data (read-line ff))
(setq dlist '())
(while data                                                 ；此段代码开始出错
  (setq data (read-line ff))                             1.
  (if (wcmatch data "#*,T#")                       2.
  (setq dlist (cons data dlist))                        3.
)                                                                  4.（1234）合并运行是可以的，问题出来while这段，怎么改？我是初学的，很多不懂》
)
  (setq dlist (reverse dlist))
(close ff)

newer

1. (defun c:tt ()
   
2.   (if (setq lst (xd::list:fromfile "d:\\1.txt")) ; 文件路径根据需要替换
   
3.     (progn
   
4.       (setq lst (mapcar
   
5.                   '(lambda (x)
   
6.                      (if (xd::string:regexps "^[0-9]+" x "") ; 判断是否数字开头
   
7.                        x
   
8.                      )
   
9.                    )
   
10.                   lst
    
11.                 )
    
12.             lst (vl-remove nil lst)    ; lst表里面即所有数字开头的
    
13.       )
    
14.       (foreach n lst
    
15.         (princ "\n")
    
16.         (princ n)
    
17.       )
    
18.     )
    
19.   )
    
20.   (princ)
    
21. )
    

(defun c:tt ()<br />   (if (setq lst (xd::list:fromfile "d:\\1.txt")) ; 文件路径根据需要替换<br />     (progn<br />       (setq lst (mapcar<br />                   '(lambda (x)<br />                      (if (xd::string:regexps "^[0-9]+" x "") ; 判断是否数字开头<br />                        x<br />                      )<br />                    )<br />                   lst<br />                 )<br />             lst (vl-remove nil lst)    ; lst表里面即所有数字开头的<br />       )<br />       (foreach n lst<br />         (princ "\n")<br />         (princ n)<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br />

上面函数 xd::list:fromfile ，xd::string:regexps去开源函数库找源代码。或者加载晓东通用函数库。

命令: tt
1     T1    P4.00    8
2     T2    D3.95    4---(导柱)
3     T3    L13.00    10---(12MM剪口螺丝)
4     T4    Z5.20    62---(5.00顶针)
5     T5    L6.70    8---(8MM针板螺丝)
6     T6    L8.30    4---(6MM上玉螺丝)

Lisphk

第一行就有错

1. (setq ff (open strcat "c:/dwg/nameDZ.rep" "r"))
   

(setq ff (open strcat "c:/dwg/nameDZ.rep" "r"))<br />

这样改，试试

1. (defun c:tt ()
   
2.   (setq ff (open "c:/dwg/nameDZ.rep" "r"))  
   
3.   (setq dlist '())
   
4.   (while (setq data (read-line ff))
   
5.     (if        (wcmatch data "#*,T#")
   
6.       (setq dlist (cons data dlist))
   
7.     )
   
8.   )
   
9.   (setq dlist (reverse dlist))
   
10.   (close ff)
    
11.   (princ)
    
12. )
    
13. 
    

(defun c:tt ()<br />   (setq ff (open "c:/dwg/nameDZ.rep" "r"))  <br />   (setq dlist '())<br />   (while (setq data (read-line ff))<br />     (if        (wcmatch data "#*,T#")<br />       (setq dlist (cons data dlist))<br />     )<br />   )<br />   (setq dlist (reverse dlist))<br />   (close ff)<br />   (princ)<br /> )<br /> <br />

75215195

Lisphk 发表于 2017-7-20 17:17

谢谢！！！！