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

yekongfeixian

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

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

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

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

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

yekongfeixian

回复 9# Nsqs


    谢谢  亲

Nsqs

: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

回复 4# Nsqs


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

yekongfeixian

回复 6# Nsqs


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

Nsqs

回复 5# yekongfeixian


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

yekongfeixian

回复 4# Nsqs


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

Nsqs

: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
复制代码

不需要第三方软件

happy886rr

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

回复 1# yekongfeixian

/zhqsystem/zhq

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