批处理之家 - Powered by Discuz! Board

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

作者: yekongfeixian 时间: 2016-4-19 20:55 标题: 批处理如何去除/删除txt文本里的所有空格、换行和标点符号并重新按指定字数换行输出？

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

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

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

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

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

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

作者: /zhqsystem/zhq 时间: 2016-4-19 21:16

回复 1# yekongfeixian
清列出所有标点符号样本

作者: happy886rr 时间: 2016-4-19 21:19

@echo off
fr -r:"[，。？！《》（）“”、…— \r\n]" -t:"" test.txt
fr -r:"(\w{8})" -t:"\1\r\n" test.txt
复制代码

回复 1# yekongfeixian

作者: Nsqs 时间: 2016-4-20 00:42

本帖最后由 Nsqs 于 2016-4-20 01:22 编辑

:On Error Resume Next
:set fso=CreateObject("scripting.filesystemobject")
:Sub bat
echo off&cls
cscript -nologo -e:vbs "%0"
Exit Sub
:End Sub
set RegExp=new RegExp
set stdin=wscript.stdin
:RegExp.IgnoreCase=1:RegExp.Global=1
:file="1.txt"
:RegExp.Pattern="[^\u4e00-\u9fff0\da-z]"
:var=fso.opentextfile(file).readall
:var=RegExp.Replace (var,empty)
:RegExp.Pattern="([\W\da-z]{15})"
:var=RegExp.Replace (var,"$1"&vbcrlf)
:fso.createtextfile("new.txt").write var
wsh.echo var
stdin.readline
复制代码

不需要第三方软件

作者: yekongfeixian 时间: 2016-4-27 15:51

回复 4# Nsqs

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

作者: Nsqs 时间: 2016-4-27 16:30

回复 5# yekongfeixian

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

作者: yekongfeixian 时间: 2016-4-27 16:35

回复 6# Nsqs

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

作者: yekongfeixian 时间: 2016-4-28 13:35

回复 4# Nsqs

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

作者: Nsqs 时间: 2016-4-28 15:26

本帖最后由 Nsqs 于 2016-4-28 15:27 编辑

:On Error Resume Next
set fso=CreateObject("scripting.filesystemobject")
:Sub bat
echo off&cls
cscript -nologo -e:vbs "%0"
pause
Exit Sub
:End Sub
set RegExp=new RegExp
set stdin=wscript.stdin
RegExp.IgnoreCase=1:RegExp.Global=1
file="1.txt"
RegExp.Pattern="[^\u4e00-\u9fff0\da-z。，？：“”]"
var=fso.opentextfile(file).readall
var=RegExp.Replace (var,empty)
RegExp.Pattern="(\W{15})"
var=RegExp.Replace (var,"$1"&vbcrlf)
fso.createtextfile("new_"&file).write var
wsh.echo var
复制代码

作者: yekongfeixian 时间: 2016-4-29 16:56

回复 9# Nsqs

谢谢亲

欢迎光临批处理之家 (http://bbs.bathome.net/)