[文本处理] 【已解决】批处理如何将文本内容按指定字数分行（如15个字自动换行）？

ruoru376

例文：
的打斗场面令人震撼可谓招招见拳拳到肉记者倪自放囘力街区有望月上映保罗飙车神技将再现由基美影业与囯欧罗巴联合出品囯际著名导演吕克贝松身兼三职担纲监制制片编剧的动作电影囘力街区有望在今年月登陆囯内院线作为吕克贝松风靡全球的经典动作电影囘力区的升级版该片还是好莱坞巨星速度与激囘情系列主演保罗沃克最后一部完整遗囘作曰前该片 的打……
处理后效果：
的打斗场面令人震撼可谓招招见拳
拳到肉记者倪自放囘力街区有望月
上映保罗飙车神技将再现由基美影
业与囯欧罗巴联合出品囯际著名导
演吕克贝松身兼三职担纲监制制片
……
你哪位大神能够教教我，在此感激不尽了…

dj9999

回复 2# CrLf
你好，使用你的代码第二次操作的时候出现内容错字。

“可能的没有受过任何挫
折和磨难这也养成了骄
纵暴戾稍不满意便�?
大发脾气的混蛋性格�
�为不愿意来燕子坞过�
�节但是的母亲却偏偏�
�迫来了不敢把这怒气”

不知道为什么会有问号出现，麻烦指教一下

pcl_test

第三方

gawk "gsub(/.{15}/,\"^&\n\")" 1.txt|find /v ""
pause
复制代码

CrLf

sed 和 js 都可以实现楼主的需求，从效率上考虑，建议只用二者之一来实现

ruoru376

回复 14# 慕夜蓝化
大师 看出效果，但是没有写出文件啊
自己改好了，效果很好。略比bat JScript （二楼）慢一点。但是比sed 快多了。谢谢！学习了……

ruoru376

回复 13# tmplinshi
学习了，谢谢。
如果是for 怎么对接呢？比如：for /f "tokens=*" %%i in (a.tx) do set /p "var=%%i;" <nul >>b.tx

慕夜蓝化

@echo off&setlocal enabledelayedexpansion
for /f "delims=" %%i in (a.txt) do (
    set "str=%%i"
    call :splitString
)
pause&exit

:splitString
if not "!str!"=="" (
    echo,!str:~,15!&set "str=!str:~15!"&goto :splitString
) else (
    goto :eof
) 
复制代码

我原来以为回复过了。你试下。

tmplinshi

回复 4# ruoru376


要把 sed 命令或者其他的放在 /* 和 */ 之间。
因为 cscript -nologo -e:jscript "%~0" 这句是把这个批处理文件作为 js 脚本来调用的，所以整个文件的代码也要符合 js 的语法。
/* 和 */ 之间是作为 js 中的注释，所以你可以把批处理代码放在里面。

1>1/* :Bat+JScript
@echo off
代码放在这里
cscript -nologo -e:jscript "%~0" <a.txt >b.txt
pause & exit /b
*/

WSH.Echo(
        WSH.StdIn.ReadAll().replace(/.{15}/gm,"$&\r\n")
)

在这个例子中，你的 sed 命令也可以这样对接：

sed "s/[A-Za-z0-9]//g" BT.txt | cscript -nologo -e:jscript "%~0" >b.txt
复制代码

或者直接用 js 代码取代这个 sed 命令：

WSH.Echo(
        WSH.StdIn.ReadAll()
                .replace(/.{15}/gm, "$&\r\n")
                .replace(/[A-Za-z0-9]/g, "")
)
复制代码

amwfjhh

用这个试试
测试文本:1.txt

的打斗场面令人震!<>"~%&*()撼可谓招招见拳拳到肉记者倪自放囘力街区有望月上映保罗飙车神技将再现由基美影业与囯欧罗巴联合出品囯际著名导演吕克贝松身兼三职担纲监制制片编剧的动作电影囘力街区有望在今年月登陆囯内院线作为吕克贝松风靡全球的经典动作电影囘力区的升级版该片还是好莱坞巨星速度与激囘情系列主演保罗沃克最后一部完整遗囘作曰前该片 的打……
的打斗场面令人震撼可谓招招见拳拳到!<>"~%&*()肉记者倪自放囘力街区有望月上映保罗飙车神技将再现由基美影业与囯欧罗巴联合出品囯际著名导演吕克贝松身兼三职担纲监制制片编剧的动作电影囘力街区有望在今年月登陆囯内院线作为吕克贝松风靡全球的经典动作电影囘力区的升级版该片还是好莱坞巨星速度与激囘情系列主演保罗沃克最后一部完整遗囘作曰前该片 的打……
的打斗场面令人震撼可!<>"()~%&*谓招招见拳拳到肉记者倪自放囘力街区有望月上映保罗飙车神技将再现由基美影业与囯欧罗巴联合出品囯际著名导演吕克贝松身兼三职担纲监制制片编剧的动作电影囘力街区有望在今年月登陆囯内院线作为吕克贝松风靡全球的经典动作电影囘力区的升级版该片还是好莱坞巨星速度与激囘情系列主演保罗沃克最后一部完整遗囘作曰前该片 的打……
的打斗场面令人震撼可谓招招见拳拳到肉记者倪自放囘力街区有望月上!<>"~%()&*映保罗飙车神技将再现由基美影业与囯欧罗巴联合出品囯际著名导演吕克贝松身兼三职担纲监制制片编剧的动作电影囘力街区有望在今年月登陆囯内院线作为吕克贝松风靡全球的经典动作电影囘力区的升级版该片还是好莱坞巨星速度与激囘情系列主演保罗沃克最后一部完整遗囘作曰前该片 的打……
复制代码

处理脚本:

@echo oFF
setlocal enabledelayedexpansion

for /f "delims=" %%i in ('find /c /v ""^<"1.txt"') do set /a "nLines=%%i"

(
  for /l %%i in (1 1 %nLines%) do (
    echo,第 %%i 行格式化显示...
    set /p "strLine="
    echo,原始内容 : "!strLine!"
    call :_showFormat "strLine"
    set "strLine="
    echo,&echo,
  )
)<"1.txt"

pause & goto :EOF

:_showFormat
(
	if defined %~1 (
	  set "strFormat=!%~1!"
	  set "strTmp=!strFormat:~0, 15!"
	  echo,!strTmp!
	  
	  set "strFormat=!strFormat:~15!"
	  if defined strFormat (
	    call :_showFormat "strFormat"
	  )
	)

  goto :EOF
)
复制代码

ruoru376

回复 10# amwfjhh

不能解决问题，还是非常感谢你的回答！
我只要想用二楼的代码，因为发现效率比较高速度快。有没有什么方法在一个bat里面调用啊？ 另建一个bat，再调用时可以的，但是很麻烦……

amwfjhh

回复 4# ruoru376


    BJ混排技术可以参照以下链接：
http://bbs.bathome.net/viewthrea ... &from=favorites
是利用JScript的特殊多行注释或条件编译语句，将批处理脚本包含其中，这种特殊技术要同时满足批处理脚本不会异常退出，并且第一行是合法的JS条件语句或注释语法。在批处理脚本部分，在合适的地方利用 goto :eof或者exit /b等方法及时跳出脚本而避免接下来的JScript部分被错误解析。
所以就你的添加代码来讲，应该添至/**/之间的合适部分，则可作为批处理脚本被解析，否则在脚本被作为JScript文件载入时会因用法不符合JScript语法而报错。

amwfjhh

批处理的特殊字符一直是个痛点，若讲兼容性好些的，还就用 CrLf 的BJ混排的方案比较好。楼上所出现的异常，多半跟其中的几个括号"()"有关。

ruoru376

回复 6# ruoru376


真的不行的，一直在动。原文件，没有任何变动……对于Bat 我基本不懂。你说你测试能行？不敢相信

dqcmjx

回复 6# ruoru376

我测试正常，截图怎么传不上去

ruoru376

回复 5# dqcmjx

是个死循环