netbenton

抛砖引玉!

@echo off
set @*=星
set @:=帽
set "@~=眉"
set "@=叹"
set cr=^


set "str=测试字符串：*/*\**,.=*,...=///&+wodfdfd**~~!!==...**:::::*************==========..."
setlocal enabledelayedexpansion
set ti=%time%
for /l %%a in (0,1,100) do (
	for /f %%b in ("!str:~%%a,1!") do (
		if defined @%%b (
			set s=!s!!@%%b!
		) else (
			if "%%b" equ "=" (set s=!s!等) else (set s=!s!%%b)
		)
		set n=%%a
	)
)
echo !s!!cr!
echo 原串有:!n!个字符!cr!
call :etime !ti! !time! ab
echo 用时：!ab!毫秒!cr!
pause

:etime <begin_time> <end_time> <return> by plp626 on bathome
rem 所测试任务的执行时间不超过1天 // 骨瘦如柴版 
setlocal&set be=%~1:%~2&set cc=(%%d-%%a)*360000+(1%%e-1%%b)*6000+1%%f-1%%c&set dy=-8640000
for /f "delims=: tokens=1-6" %%a in ("%be:.=%")do endlocal&set/a %3=%cc%,%3+=%dy%*("%3>>31")&exit/b
复制代码