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

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

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

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