bat 文本 换行的问题?高手呢?
发布网友
共1个回答
热心网友
@echo off&setlocal enabledelayedexpansion
set f1=a.txt
set f2=b.txt
set z0=4
echo 正在从 %f1% 逐行读取...
for /f "usebackq delims=" %%a in ("%f1%")do (set h=%%a
set h=!h: =!&set h=!h: =!&set h=!h:=!&set h=!h:,=!&set h=!h:;=!
for /l %%b in (0,1,9)do set h=!h:%%b=!
for %%c in (a b c d e f g h i j k l m n o p q r s t u v w x y z)do set h=!h:%%c=!
for %%d in (。 ， ； ： 《 》 【 】 、 ！ “ ” ? ？)do set h=!h:%%d=!
for %%e in (0 1 2 3 4 5 6 7 8 9)do set h=!h:%%e=!
set/a "n+=1,a=0,b=0"&call :y1)
cd.>"%f2%"
set/a z1=10
for /L %%i in (1,1,10)do if %%i leq !z1! (
if not defined h%%i (if not %%i equ !z1! (
call set h%%i=%%h!z1!%%&set "h!z1!=")
set/a z1-=1))
title 写入中...
goto p
:y1
for /L %%a in (1,1,9)do (
set/a na=%%a
set/a a+=b,b=na*2
call set "m=%%h:~!a!,!b!%%"
if "!m!"=="" (goto :y2)else set "h%%a=!h%%a!!m!")
if not "%h:~90%"=="" set h10=%h:~90%%h10%
:y2
set h1=%h10%&set "h10=%h1%"
set h2=%h9%&set "h9=%h2%"
set h3=%h8%&set "h8=%h3%"
set h4=%h7%&set "h7=%h4%"
set h5=%h6%&set "h6=%h5%"
set/a "r1=%random%%%2+1,r2=%random%%%3+3"
set ht=!h%r1%!&set h%r1%=!h%r2%!&set "h%r2%=!ht!"
goto :eof
:p1
set/a "r2=%random%%%q"
if "!h%r1%:~%r2%!"=="" set/a q-=1&goto p1
:p2
set/p=!h%r1%:~%r2%,1!<nul
set/p=!h%r1%:~%r2%,1!<nul>>"%f2%"
set/a r2.=r2+1,r2..=r2-1
if !r2..! lss 0 set r2..=0
set h%r1%=!h%r1%:~%r2.%!!h%r1%:~,%r2..%!
if not defined h%r1% (
if %r1% neq %z1% set "h%r1%=!h%z1%!"
set/a "z1-=1"&title 写入中... 快啦 !z1!)
goto :eof
:p
set/a "z2=%random%%%z0+1"
for /L %%i in (1,1,%z2%)do (
if !z1!==1 (set/a "r1=z1")else set/a r1=!random!%%^(z1-1^)+1
call set "hr=%%h!r1!:~1%%"
if "!hr!"=="" (set r2=0&call :p2)else set q=5&call :p1
if !z1! equ 0 goto pn)
:Pn
echo.>>"%f2%"
echo/
if !z1! gtr 0 goto p
echo/&title . OK
echo 处理完毕,按任意键打开新文本
pause>nul
start "" "%f2%"
热心网友
@echo off&setlocal enabledelayedexpansion
set f1=a.txt
set f2=b.txt
set z0=4
echo 正在从 %f1% 逐行读取...
for /f "usebackq delims=" %%a in ("%f1%")do (set h=%%a
set h=!h: =!&set h=!h: =!&set h=!h:=!&set h=!h:,=!&set h=!h:;=!
for /l %%b in (0,1,9)do set h=!h:%%b=!
for %%c in (a b c d e f g h i j k l m n o p q r s t u v w x y z)do set h=!h:%%c=!
for %%d in (。 ， ； ： 《 》 【 】 、 ！ “ ” ? ？)do set h=!h:%%d=!
for %%e in (0 1 2 3 4 5 6 7 8 9)do set h=!h:%%e=!
set/a "n+=1,a=0,b=0"&call :y1)
cd.>"%f2%"
set/a z1=10
for /L %%i in (1,1,10)do if %%i leq !z1! (
if not defined h%%i (if not %%i equ !z1! (
call set h%%i=%%h!z1!%%&set "h!z1!=")
set/a z1-=1))
title 写入中...
goto p
:y1
for /L %%a in (1,1,9)do (
set/a na=%%a
set/a a+=b,b=na*2
call set "m=%%h:~!a!,!b!%%"
if "!m!"=="" (goto :y2)else set "h%%a=!h%%a!!m!")
if not "%h:~90%"=="" set h10=%h:~90%%h10%
:y2
set h1=%h10%&set "h10=%h1%"
set h2=%h9%&set "h9=%h2%"
set h3=%h8%&set "h8=%h3%"
set h4=%h7%&set "h7=%h4%"
set h5=%h6%&set "h6=%h5%"
set/a "r1=%random%%%2+1,r2=%random%%%3+3"
set ht=!h%r1%!&set h%r1%=!h%r2%!&set "h%r2%=!ht!"
goto :eof
:p1
set/a "r2=%random%%%q"
if "!h%r1%:~%r2%!"=="" set/a q-=1&goto p1
:p2
set/p=!h%r1%:~%r2%,1!<nul
set/p=!h%r1%:~%r2%,1!<nul>>"%f2%"
set/a r2.=r2+1,r2..=r2-1
if !r2..! lss 0 set r2..=0
set h%r1%=!h%r1%:~%r2.%!!h%r1%:~,%r2..%!
if not defined h%r1% (
if %r1% neq %z1% set "h%r1%=!h%z1%!"
set/a "z1-=1"&title 写入中... 快啦 !z1!)
goto :eof
:p
set/a "z2=%random%%%z0+1"
for /L %%i in (1,1,%z2%)do (
if !z1!==1 (set/a "r1=z1")else set/a r1=!random!%%^(z1-1^)+1
call set "hr=%%h!r1!:~1%%"
if "!hr!"=="" (set r2=0&call :p2)else set q=5&call :p1
if !z1! equ 0 goto pn)
:Pn
echo.>>"%f2%"
echo/
if !z1! gtr 0 goto p
echo/&title . OK
echo 处理完毕,按任意键打开新文本
pause>nul
start "" "%f2%"
