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

yekongfeixian · 发表于 2016-4-19 20:55:48

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

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

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

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

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

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

/zhqsystem/zhq · 发表于 2016-4-19 21:16:08

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

happy886rr · 发表于 2016-4-19 21:19:41

@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:38

本帖最后由 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:53

回复 4# Nsqs

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

Nsqs · 发表于 2016-4-27 16:30:14

回复 5# yekongfeixian

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

yekongfeixian · 发表于 2016-4-27 16:35:38

回复 6# Nsqs

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

yekongfeixian · 发表于 2016-4-28 13:35:25

回复 4# Nsqs

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

Nsqs · 发表于 2016-4-28 15:26:01

本帖最后由 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:36

回复 9# Nsqs

谢谢亲

		自动登录	找回密码
密码			注册

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

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

评分