如何指定提取TXT内的代码

wang8091

有办法就只提取TXT内的第5行的数据么？ 不想要全部提取这样。谢谢各位了！！！

lht

循环读5次，只要最后一个数据

Block

1. 
   
2. 
   
3. (defun c:line5 ()
   
4. 
   
5.   (setq fileph1 (getfiled "请指定读取的TXT文本:" "d:/" "txt" 2))
   
6.   (setq file (open fileph1 "r"))
   
7.   (setq fdata (read-line file))
   
8.   (setq n 1)
   
9.   (while (< n 5)
   
10.     (setq fdata (read-line file))
    
11.     (setq n (1+ n))
    
12.   )
    
13.   (close file)
    
14.   (princ fdata)
    
15. )
    

</font></font></font><br /> <br /> (defun c:line5 ()<br /> <br />   (setq fileph1 (getfiled "请指定读取的TXT文本:" "d:/" "txt" 2))<br />   (setq file (open fileph1 "r"))<br />   (setq fdata (read-line file))<br />   (setq n 1)<br />   (while (< n 5)<br />     (setq fdata (read-line file))<br />     (setq n (1+ n))<br />   )<br />   (close file)<br />   (princ fdata)<br /> )<br /> <font color="#008000"><font style="background-color:rgb(255, 255, 255)"><font face="Tahoma,">

wang8091

谢谢！！ 可以了~