523066680

歌词：“一切也只是曾经”
恩，不过跟效果有关的，比较多路数。帖子一出总有机会看到新颖的思路。

523066680

函数的
调用的时候发送一个数字保持一直在增加的那种……
如果改成函数自己每次平移一下，函数中加个变量作记录也可以。
第三行那个没动作，没细看，没做。

@echo off
setlocal enabledelayedexpansion
set spec=bbs.bathome.net
call :countlength

for /l %%a in (1,1,100) do (set "s100= !s100!")
for /l %%a in (1,1,100) do (
	for /l %%A in (1,1,300) do (echo >nul)
	cls
	call :run %spec% %%a 20
	call :LR %spec% %%a 20
)
pause


:: $str $move $range
:run
set /a move=%2 %% (%3+len)
set result=!s100:~0,%3!%1%s100%
set result=!result:~%move%,%3!
echo,%result%
goto :eof

:LR
set /a spacerange=%3-len,move=spacerange - ( %2 %% (spacerange*2) +1)
set move=%move:-=%
set result=!s100:~0,%move%!%1
echo %result%
goto :eof

:countlength
set str=%1
for /l %%a in (1,1,1000) do (
	if "!spec:~%%a!"=="" (
		set /a len=%%a &&goto :eof
	)
)
复制代码