[原创]：删网上剪贴文件的空行和无用行

cy956 · 发表于 2009-9-8 18:52:45

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

经常在xd，mjtd等剪贴文章，可以用下面的工具，可以批量把文本文件中无用信息删掉。
我平常用的还是良友，过一段按目录导出成txt文件来备份。用这个工具批量减肥。

论坛的下载一直不正常，我贴源码了，
dat文件也让大家自己剪贴。

(defun c:wjkh ;;;删网上剪贴文件的空行和无用行，file-sh.dat文件拷到E盘根目录下，
;;;需要doslib5.0以上版本支持
(/ )
;---
(if fil-file-g (setq fil-path (car fil-file-g)));;默认已选的路径;;
(setq fil-file-g(dos_getfilem "选择要删文件空行和无用行的文件" (if fil-path fil-path "C:/")
"Lisp Files(*.lsp)|*.lsp|Text Files (*.TXT)|*.TXT|All Files (*.*)|*.*")
fil-path (car fil-file-g)
filb(cdr fil-file-g)
file-shb(cy_file2textb1 "E:\\file-sh.dat")
file-shb1(mapcar '(lambda(x)(strcat x "*")) file-shb)
file-sh-str(StrUnParse file-shb1 ","))
(foreach x filb
(setq file-nam(dos_splitpath x)
file-nam0(nth 2 file-nam);;文件名
file-ext(nth 3 file-nam);;扩展名
tim(dos_cdate "-%y%m%d")
file-nam1(strcat file-nam0 tim (if file-ext file-ext "" )) ;;新文件名
f1(open (strcat fil-path x) "r")
f2(open (strcat fil-path file-nam1) "w")
)
(while (or (setq txt(read-line f1)) (= txt ""))
(cond
((= txt ""));;空行不表示
((wcmatch txt "(defun*")
(write-line (strcat "\n;;;------\n" txt) f2))
(t
(if (wcmatch txt file-sh-str)
()
(write-line txt f2))
)
)
)
(close f1)
(close f2)
)
(princ)
)
(defun StrUnParse ;;(StrUnParse '("a" "b") "1")■表变串->"a1b"
(Lst Delimiter / return)
;;;(StrUnParse Lst Delimiter) ;Str字符串表 Delimiter分隔符;;
;;;将一个字符串列表解析为1个具有分隔符的字符串,Delimiter可以多字符;;
(setq return "")
(foreach str Lst (setq return (strcat return Delimiter str)))
(substr return 2)
)
(defun cy_file2textb1(files / tmplst x fn);;(cy_file2textb1 files)■扣去开头四行，读取文件并按行将文件转换为表
(setq files(findfile files))
(if files(progn
(setq fn (open files "r")tmplst'())
(repeat 4
(read-line fn)
)
(while (setq x (read-line fn))
(setq tmplst(append tmplst(list x)))
)
(close fn))
(setq tmplst nil)
)tmplst
)
;;;从此往下到剪贴成一个file-sh.dat文件，放在E盘根目录下。
---------------------------------------------------------------
删行表
以下行应无空行,无逗号
---------------------------------------------------------------
*头衔：
*等级：
*积分：
*文章：
*现金：
*鲜花：
*鸡蛋：
*注册：200
我的QQ
??级会员
ID:
发贴数:
经验值:
等级:
注册日期:
日均在线:
来　　自:
加爱心币
斑竹加积分：
| 删除
下载提示：
点此查看:爱心币规则
左键单击链接使用浏览器
对于多卷压缩文件
FTP服务器限制一个IP地
如果你在局域网内
ID:
现金:
存款:
积分:
加爱心币
总页数
作者主题
200?年
由*最后编辑
*禁闭天重置
1 分 2 分 3 分 4 分 5 分
时区: GMT格林威治时间
上一主题
快速回复
选项:
自动分析URL
Email 通知
显示签名
上传附件
有效文件扩展名:
显示可打印版本
论坛跳转:
请选择: --------
给这个主题评分:
选择评分
论坛状态:
你可以回复主题
你可以上传附件
你可以编辑自己的帖子
vB代码允许
表情符号
[IMG]代码
管理选项:
-- 主题选项 --
< 管理员信箱
QQ:7598165
本论坛属于个人性质的论坛,仅提供会员交流!
拒绝任何人以任何形式在本论坛
辽ICP备05017898号
本论坛属于个人性质
"*wrote in message
news
>
Reply From:
Date:
Re:
谢谢分享
好好学习CAD
acad中文支持论坛
删除单贴
复制贴子
加为精华
单贴屏蔽
帖子好评
帖子差评
帖子点评
使用道具
送朵鲜花
砸个鸡蛋
迎接200
本主题贴数
*快速回复：
你的用户名:
文件上传类型
内容
HTML标签：
UBB标签：
贴图标签：
Flash标签：
多媒体标签：
表情字符转换：
上传图片：
管理选项：
整站内容搜索：
Powered By ：
Copyright
粤ICP备
执行时间：
当前模版样式：
本站主机空间由

(defun c:wjkh   ;;;删网上剪贴文件的空行和无用行，file-sh.dat文件拷到E盘根目录下， 
                ;;;需要doslib5.0以上版本支持 
  (/ ) 
  ;--- 
  (if fil-file-g (setq fil-path (car fil-file-g)));;默认已选的路径;; 
  (setq fil-file-g(dos_getfilem "选择  要删文件空行和无用行  的文件" (if fil-path fil-path "C:/") 
          "Lisp Files(*.lsp)|*.lsp|Text Files  (*.TXT)|*.TXT|All Files (*.*)|*.*") 
        fil-path (car fil-file-g) 
        filb(cdr fil-file-g) 
        file-shb(cy_file2textb1 "E:\\file-sh.dat") 
        file-shb1(mapcar '(lambda(x)(strcat x "*")) file-shb) 
        file-sh-str(StrUnParse file-shb1 ",")) 
  (foreach x filb 
    (setq file-nam(dos_splitpath x) 
          file-nam0(nth 2 file-nam);;文件名 
          file-ext(nth 3 file-nam);;扩展名 
          tim(dos_cdate "-%y%m%d") 
          file-nam1(strcat file-nam0 tim (if file-ext file-ext "" )) ;;新文件名 
          f1(open (strcat fil-path x) "r") 
          f2(open (strcat fil-path file-nam1) "w") 
          ) 
    (while (or (setq txt(read-line f1)) (= txt "")) 
      (cond 
        ((= txt ""));;空行不表示 
        ((wcmatch txt "(defun*") 
          (write-line (strcat "\n;;;------\n" txt) f2)) 
        (t 
          (if (wcmatch txt file-sh-str) 
            () 
            (write-line txt f2)) 
        ) 
      ) 
    ) 
    (close f1) 
    (close f2) 
  ) 
  (princ) 
) 
 
(defun StrUnParse ;;(StrUnParse '("a" "b") "1")■表变串->"a1b" 
       (Lst Delimiter / return) 
  ;;;(StrUnParse Lst Delimiter)  ;Str字符串表  Delimiter分隔符;; 
  ;;;将一个字符串列表解析为1个具有分隔符的字符串,Delimiter可以多字符;; 
  (setq return "") 
  (foreach str Lst (setq return (strcat return Delimiter str))) 
  (substr return 2) 
) 
 
(defun cy_file2textb1(files / tmplst x fn);;(cy_file2textb1 files)■扣去开头四行，读取文件并按行将文件转换为表 
  (setq files(findfile files)) 
  (if files(progn 
    (setq fn (open  files "r")tmplst'()) 
    (repeat 4 
      (read-line fn) 
    ) 
    (while (setq x (read-line fn)) 
      (setq tmplst(append tmplst(list x))) 
    ) 
    (close fn)) 
    (setq tmplst nil) 
  )tmplst 
) 
 
;;;从此往下到剪贴成一个file-sh.dat文件，放在E盘根目录下。 
--------------------------------------------------------------- 
删行表 
以下行应无空行,无逗号 
--------------------------------------------------------------- 
*头衔： 
*等级： 
*积分： 
*文章： 
*现金： 
*鲜花： 
*鸡蛋： 
*注册：200 
我的QQ 
??级会员 
ID: 
发贴数: 
经验值: 
等级: 
注册日期: 
日均在线: 
来　　自: 
加爱心币 
斑竹加积分： 
| 删除 
下载提示： 
点此查看:爱心币规则 
左键单击链接使用浏览器 
对于多卷压缩文件 
FTP服务器限制一个IP地 
如果你在局域网内 
 ID: 
现金: 
存款: 
积分: 
加爱心币 
 总页数 
作者 主题 
200?年 
由*最后编辑 
*禁闭天  重置 
   1 分 2 分 3 分 4 分 5 分 
 时区: GMT格林威治时间 
   上一主题 
       快速回复 
选项: 
 自动分析URL 
 Email 通知 
 显示签名 
上传附件 
有效文件扩展名: 
 显示可打印版本 
  论坛跳转: 
 请选择: -------- 
   给这个主题评分: 
 选择评分 
论坛状态: 
你可以回复主题 
你可以上传附件 
你可以编辑自己的帖子 
vB代码 允许 
表情符号 
[IMG]代码 
   管理选项: 
 -- 主题选项 -- 
< 管理员信箱 
QQ:7598165 
本论坛属于个人性质的论坛,仅提供会员交流! 
拒绝任何人以任何形式在本论坛 
辽ICP备05017898号 
本论坛属于个人性质 
"*wrote in message 
news 
> 
     Reply From: 
Date: 
    Re: 
? Copyright*Autodesk, Inc. All rights reserved 
谢谢分享 
好好学习CAD 
acad中文支持论坛 
删除单贴 
复制贴子 
加为精华 
单贴屏蔽 
帖子好评 
帖子差评 
帖子点评 
使用道具 
送朵鲜花 
砸个鸡蛋 
      迎接200 
本主题贴数 
*快速回复： 
       你的用户名: 
文件上传 类型 
内容 
HTML标签： 
UBB标签： 
贴图标签： 
Flash标签： 
多媒体标签： 
表情字符转换： 
上传图片： 
管理选项： 
整站内容搜索： 
Powered By ： 
Copyright 
粤ICP备 
执行时间： 
当前模版样式： 
本站主机空间由

rpgkkk2003 · 发表于 2009-9-8 23:01:41

非常不错啊，谢谢了

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

[原创]：删网上剪贴文件的空行和无用行

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

本帖被以下淘专辑推荐:

相关帖子