源码修正

非ing

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

[pcode=lisp,true];;;作者：非常道，
;;;版权：本程序可以任意修改，转载。
;;;程序名：源码修正。
;;;程序编制背景：网络上有很多的程序源码，但是很多源码在同一个网页的很多小窗口里，
;;;需要到各个小窗口里去多次复制程序，然后粘贴到文本编辑器里，但是如果用ctrl+A，ctrl+c，
;;;复制所有源码再粘贴到文本编辑器里，源码首行往往会出现001.，002.等字样，本程序可以通过
;;;读写txt文件，去除首行的数字+.源码，只需经过稍微修改就可以得到正常的源码了。
(prompt"\n输入命令：qc")
(defun c:qc (/ files name fn1 fn2 str str2)
  (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)
  (prin1)
)[/pcode]

liuyun242

不错，是个好东西，楼主有心了，顶

xshrimp

直接点击复制到剪贴板就不会出现序号了啊.

haibinpro

cool,Thanks for share it.

Highflybird

xshrimp 发表于 2013-5-8 14:05

                               
登录/注册后可看大图

直接点击复制到剪贴板就不会出现序号了啊.

:D 不过都直接发现了，就不会有这个程序了。很多程序员就是有这样的遇到啥问题就马上想用程序解决的冲动。

非ing

xshrimp 发表于 2013-5-8 14:05

                               
登录/注册后可看大图

直接点击复制到剪贴板就不会出现序号了啊.

如果一个网页里面有10个这样的窗口，就要复制10次。

非ing

Highflybird 发表于 2013-5-8 19:22

                               
登录/注册后可看大图

不过都直接发现了，就不会有这个程序了。很多程序员就是有这样的遇到啥问题就马上想用程序解决的冲动。 ...

主要还是针对同一个网页下有很多个小窗口，如果一个个复制还是很麻烦，所以写了这个程序，把整个网页都拷到文本编辑器里。这个程序还有个缺陷，就是对于首字符含有数字的非源码字符窜也会保留下来。

GTJ116600

是好东西