源码修正

hai20110730

;;;作者：非常道，
;;;版权：本程序可以任意修改，转载。
;;;程序名：源码修正。
;;;程序编制背景：网络上有很多的程序源码，但是很多源码在同一个网页的很多小窗口里，
;;;需要到各个小窗口里去多次复制程序，然后粘贴到文本编辑器里，但是如果用ctrl+A，ctrl+c，
;;;复制所有源码再粘贴到文本编辑器里，源码首行往往会出现001.，002.等字样，本程序可以通过
;;;读写txt文件，去除首行的数字+.源码，只需经过稍微修改就可以得到正常的源码了。

2. ;;;作者：非常道，
   
3. ;;;版权：本程序可以任意修改，转载。
   
4. ;;;程序名：源码修正。
   
5. ;;;程序编制背景：网络上有很多的程序源码，但是很多源码在同一个网页的很多小窗口里，
   
6. ;;;需要到各个小窗口里去多次复制程序，然后粘贴到文本编辑器里，但是如果用ctrl+A，ctrl+c，
   
7. ;;;复制所有源码再粘贴到文本编辑器里，源码首行往往会出现001.，002.等字样，本程序可以通过
   
8. ;;;读写txt文件，去除首行的数字+.源码，只需经过稍微修改就可以得到正常的源码了。
   
9. (prompt"\n命令：qc")
   
10. (defun c:qc (/)
    
11.   (setq files (getfiled "选择 LISP 文件" "D:/" "txt" 8))
    
12.   (setq name (getstring "\n输入文件名："))
    
13.   (setq fn1 (open files "r"))
    
14.   (setq fn2 (open (strcat "D:/" name ".lsp") "w"))
    
15.   (while (setq str (read-line fn1))   
    
16.     (if (wcmatch str "[0-9.]*")
    
17.       (progn
    
18.        (setq str2 (vl-string-left-trim "0123456789.\t" str))
    
19.        (write-line str2 fn2)
    
20.        )
    
21.     )
    
22.   )
    
23.   (close fn1)(close fn2)
    
24. )

;;;作者：非常道，<br /> ;;;版权：本程序可以任意修改，转载。<br /> ;;;程序名：源码修正。<br /> ;;;程序编制背景：网络上有很多的程序源码，但是很多源码在同一个网页的很多小窗口里，<br /> ;;;需要到各个小窗口里去多次复制程序，然后粘贴到文本编辑器里，但是如果用ctrl+A，ctrl+c，<br /> ;;;复制所有源码再粘贴到文本编辑器里，源码首行往往会出现001.，002.等字样，本程序可以通过<br /> ;;;读写txt文件，去除首行的数字+.源码，只需经过稍微修改就可以得到正常的源码了。<br /> (prompt"\n命令：qc")<br /> (defun c:qc (/)<br />   (setq files (getfiled "选择 LISP 文件" "D:/" "txt" 8))<br />   (setq name (getstring "\n输入文件名："))<br />   (setq fn1 (open files "r"))<br />   (setq fn2 (open (strcat "D:/" name ".lsp") "w"))<br />   (while (setq str (read-line fn1))    <br />     (if (wcmatch str "[0-9.]*")<br />       (progn<br />        (setq str2 (vl-string-left-trim "0123456789.\t" str))<br />        (write-line str2 fn2)<br />        )<br />     )<br />   )<br />   (close fn1)(close fn2)<br /> )

zyhandw

不错，比较实用！

vlisp2012

恩，挺好的，多谢分享！！！

海盗曹

好东西~学习一下~

434939575

学了一招，谢谢！

pengfei2010

感谢楼主的无私分享 谢谢