源码修正
本帖最后由 hai20110730 于 2013-5-8 11:05 编辑;;;作者：非常道，
;;;版权：本程序可以任意修改，转载。
;;;程序名：源码修正。
;;;程序编制背景：网络上有很多的程序源码，但是很多源码在同一个网页的很多小窗口里，
;;;需要到各个小窗口里去多次复制程序，然后粘贴到文本编辑器里，但是如果用ctrl+A，ctrl+c，
;;;复制所有源码再粘贴到文本编辑器里，源码首行往往会出现001.，002.等字样，本程序可以通过
;;;读写txt文件，去除首行的数字+.源码，只需经过稍微修改就可以得到正常的源码了。;;;作者：非常道，
;;;版权：本程序可以任意修改，转载。
;;;程序名：源码修正。
;;;程序编制背景：网络上有很多的程序源码，但是很多源码在同一个网页的很多小窗口里，
;;;需要到各个小窗口里去多次复制程序，然后粘贴到文本编辑器里，但是如果用ctrl+A，ctrl+c，
;;;复制所有源码再粘贴到文本编辑器里，源码首行往往会出现001.，002.等字样，本程序可以通过
;;;读写txt文件，去除首行的数字+.源码，只需经过稍微修改就可以得到正常的源码了。
(prompt"\n命令：qc")
(defun c:qc (/)
(setq files (getfiled "选择 LISP 文件" "D:/" "txt" 8))
(setq name (getstring "\n输入文件名："))
(setq fn1 (open files "r"))
(setq fn2 (open (strcat "D:/" name ".lsp") "w"))
(while (setq str (read-line fn1))
(if (wcmatch str "*")
(progn
(setq str2 (vl-string-left-trim "0123456789.\t" str))
(write-line str2 fn2)
)
)
)
(close fn1)(close fn2)
) 不错，比较实用！ 恩，挺好的，多谢分享！！！ 好东西~学习一下~ 学了一招，谢谢！ 感谢楼主的无私分享 谢谢
页:
[1]