源码修正

hai20110730 · 发表于 2013-5-8 10:38:27

本帖最后由 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 "[0-9.]*")
(progn
(setq str2 (vl-string-left-trim "0123456789.\t" str))
(write-line str2 fn2)
)
)
)
(close fn1)(close fn2)
)

zyhandw · 发表于 2013-5-8 11:32:59

不错，比较实用！

vlisp2012 · 发表于 2013-5-17 19:36:05

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

海盗曹 · 发表于 2013-5-18 13:26:32

好东西~学习一下~

434939575 · 发表于 2015-8-10 11:35:28

学了一招，谢谢！

pengfei2010 · 发表于 2017-10-4 21:25:31

感谢楼主的无私分享谢谢

账号		自动登录	找回密码
密码			注册

源码修正

本帖子中包含更多资源

相关帖子