[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[文本处理] 批处理如何去除/删除txt文本里的所有空格、换行和标点符号并重新按指定字数换行输出?

本帖最后由 pcl_test 于 2016-4-19 21:26 编辑

例文:
的打斗场面令人,震撼可谓招招见拳拳。到肉记者倪“自放囘力街区有望月上

      映保”罗飙《将再现由基美》车神技影业与囯欧罗(合出品囯际著名导演吕克贝)巴联松身兼三职担纲监制

制片编剧的动作电影囘力街区       有望在今年月  登陆囯内院线  作为吕克贝松风      靡全球的经典动作电影囘力!     区的升级版该片还是好莱坞巨星速;    度与激囘情系列主?    演保罗沃克最后一    部完整遗囘作曰前该片 的打……

处理后效果:
的打斗场面令人震撼可谓招招见拳
拳到肉记者倪自放囘力街区有望月
上映保罗飙车神技将再现由基美影
业与囯欧罗巴联合出品囯际著名导
演吕克贝松身兼三职担纲监制制片

你哪位大神能够教教我,在此感激不尽了…  要求把原文件a.txt  按去空格,去换行,去所有标点符号,最最后按字数15个字换行;
1

评分人数

回复 9# Nsqs


    谢谢  亲

TOP

本帖最后由 Nsqs 于 2016-4-28 15:27 编辑
  1. :On Error Resume Next
  2. set fso=CreateObject("scripting.filesystemobject")
  3. :Sub bat
  4. echo off&cls
  5. cscript -nologo -e:vbs "%0"
  6. pause
  7. Exit Sub
  8. :End Sub
  9. set RegExp=new RegExp
  10. set stdin=wscript.stdin
  11. RegExp.IgnoreCase=1:RegExp.Global=1
  12. file="1.txt"
  13. RegExp.Pattern="[^\u4e00-\u9fff0\da-z。,?:“”]"
  14. var=fso.opentextfile(file).readall
  15. var=RegExp.Replace (var,empty)
  16. RegExp.Pattern="(\W{15})"
  17. var=RegExp.Replace (var,"$1"&vbcrlf)
  18. fso.createtextfile("new_"&file).write var
  19. wsh.echo var
复制代码

TOP

回复 4# Nsqs


    今天有时间吗?帮我改一下可以嘛?

TOP

回复 6# Nsqs


   没关系,改天等您有空,帮我修改一下,感谢

TOP

回复 5# yekongfeixian


    今晚没时间,改天或者,叫其他人修改就行.

TOP

回复 4# Nsqs


    你好,感谢您给我的回复非常好用:现在我还想请您帮我修改一下,其他要求不变,保留标点符号,可以吗?谢谢拉!~~

TOP

本帖最后由 Nsqs 于 2016-4-20 01:22 编辑
  1. :On Error Resume Next
  2. :set fso=CreateObject("scripting.filesystemobject")
  3. :Sub bat
  4. echo off&cls
  5. cscript -nologo -e:vbs "%0"
  6. Exit Sub
  7. :End Sub
  8. set RegExp=new RegExp
  9. set stdin=wscript.stdin
  10. :RegExp.IgnoreCase=1:RegExp.Global=1
  11. :file="1.txt"
  12. :RegExp.Pattern="[^\u4e00-\u9fff0\da-z]"
  13. :var=fso.opentextfile(file).readall
  14. :var=RegExp.Replace (var,empty)
  15. :RegExp.Pattern="([\W\da-z]{15})"
  16. :var=RegExp.Replace (var,"$1"&vbcrlf)
  17. :fso.createtextfile("new.txt").write var
  18. wsh.echo var
  19. stdin.readline
复制代码
不需要第三方软件

TOP

  1. @echo off
  2. fr -r:"[,。?!《》()“”、…— \r\n]" -t:"" test.txt
  3. fr -r:"(\w{8})" -t:"\1\r\n" test.txt
复制代码
回复 1# yekongfeixian

TOP

回复 1# yekongfeixian
清列出所有标点符号样本
这么好的论坛你上哪找,运行测试环境为6.1.7601-64
注:请遵守互联网信息安全,勿用于非法用途

TOP

返回列表