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

@echo off&setlocal enabledelayedexpansion&pushd %~dp0
set var=&for /f "delims=" %%i in (a.txt) do set "var=!var!%%i"&set "var=!var: =!"
:lp
echo %var:~,15%&set "var=%var:~15%"
if defined var goto lp
pause
复制代码

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

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

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

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

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

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