terse

第一想到 VBS + BAT
纯P的效率不够撒

terse

为什么 测试值这么高啊 比用FC搞个临时文件也高好多

:::::::::::::::::::::::::::::::: !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
@echo off
set /p var=<%0
setlocal EnableDelayedExpansion
for /l %%i in (32 1 126) do (
   if defined _"!var:~%%i,1!" (
      set "#!var:~%%i,1!=!var:~%%i,1!"
      set "$#!var:~%%i,1!=%%i"
   ) else set _"!var:~%%i,1!"=!var:~%%i,1!&set "$!var:~%%i,1!=%%i"
)
set str= ^^!"$%%&'()*+,-./09:;<=>?@AZ[^^_`az|}~
set "Slen=!str!"
for %%i in (4096 2048 1024 512 256 128 64 32 16)do if "!Slen:~%%i!" NEQ "" set/aLen+=%%i&set Slen=!Slen:~%%i!
set Slen=!Slen!FEDCBA9876543210&set/aLen+=0x!Slen:~16,1!
ECHO !LEN!
for /l %%i in (0 1 !Len!) do (
    for /f "delims=" %%j in ("!str:~%%i,1!") do (
        if "%%j" == "" (set ANS=!ANS! 33)else (
           if "!#%%j!" equ "" (if "!$%%j!" equ "" (set ANS=!ANS! 61)else set ANS=!ANS! !$%%j!) else (
              if "!#%%j!" lss "%%j" (set ANS=!ANS! !$%%j!) else set ANS=!ANS! !$#%%j!
           )
        )
    )
)
echo!ANS!
pauseCOPY

terse

怪不得 测试值这么高 原来没清空Len变量 我就说 从代码流程来说不应该这么高撒 现在测试值我这里700多

另：CrLf版主的 FC 方案 省去临时文件？

terse

:::::::::::::::::::::::::::::::: !"#$%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_`abcdefghijklmnopqrstuvwxyz{|}~
@echo off
set /p var=<%0
 
:: 获得100000次执行 @echo off 任务的耗时，存放在ct1变量内
set t1=%time%
for /l %%a in (1 1 100000)do @echo off
set t2=%time%
call:etime t1 t2 tc1
setlocal enabledelayedexpansion
for /l %%i in (32 1 126) do (
   if defined _"!var:~%%i,1!" (
      set "#!var:~%%i,1!=!var:~%%i,1!"
      set "$#!var:~%%i,1!=%%i"
   ) else set _"!var:~%%i,1!"=!var:~%%i,1!&set "$!var:~%%i,1!=%%i"
)
 
:: 获得500次执行“你的代码”任务的耗时，存放在ct2变量内
 
 
 
set t1=%time%
for /l %%a in (1 1 500)do (
 
set str= ^^!"$%%&'()*+,-./09:;<=>?@AZ[^^_`az|}~
 
set Len=0&set "Slen=!str!"
for %%i in (4096 2048 1024 512 256 128 64 32 16)do if "!Slen:~%%i!" NEQ "" set/aLen+=%%i&set Slen=!Slen:~%%i!
set Slen=!Slen!FEDCBA9876543210&set/aLen+=0x!Slen:~16,1!
 
for /l %%i in (0 1 !Len!) do (
    for /f "delims=" %%j in ("!str:~%%i,1!") do (
        if "%%j" neq "" (
           if "!#%%j!" neq "" (
              if "!#%%j!" lss "%%j" (set Ans=!Ans! !$%%j!) else set Ans=!Ans! !$#%%j!
           ) else if "!$%%j!" neq "" (set Ans=!Ans! !$%%j!)else set Ans=!Ans! 61
        ) else set Ans=!Ans! 33
    )
)
echo!Ans!&set Ans=
)
set t2=%time%
call:etime t1 t2 tc2
 
:: 计算执行一次“你的代码”与执行一次“@echo off”的耗时比
set/a rate=200*tc2/tc1
echo 一次任务与一次“@echo off命令”耗时比=%rate%
pause
 
:etime <begin> <end> <ret> //求时差
setlocal enabledelayedexpansion
Set/a "c=(!%2:~,2!-!%1:~,2!)*360000+(1!%2:~3,2!-1!%1:~3,2!)*6000+1!%2:~-5,2!!%2:~-2!-1!%1:~-5,2!!%1:~-2!,c+=-8640000*(c>>31)"
endlocal&set %3=%c%&goto:eof
 
:: 某些标签子过程，（该处可省略）
:label 
rem ....COPY

terse

回复 39# plp626
测试代码取自一楼的 是如上面如此嵌入吗

terse

回复 43# CrLf
我的意思是 假如临时文件$大于 CMD 应该出错的哦  当然此案另外

terse

回复 45# CrLf
还是不以为这样的流程 是取文件的16进制
我以为还应用等大空文件 不是吗？（当然这里不讨论这个话题了）

terse

回复 47# neorobin
谢谢neorobin 指教了
对于 ";" 问题记得以前也讨论过处理   有时候用 FINDSTR /n 处理文件
当然设置 eol 也不失为一好的方法
唉 总是犯此类错
就此题的话 原方法不变的话 修改FOR为下面

    for /f "tokens=1*" %%j in ("$ !str:~%%i,1!") do (
        if "%%k" neq "" (
           if "!#%%k!" neq "" (
              if "!#%%k!" lss "%%k" (set Ans=!Ans! %%k-!$%%k!) else set Ans=!Ans! %%k-!$#%%k!
           ) else if "!$%%k!" neq "" (set Ans=!Ans! %%k-!$%%k!)else set Ans=!Ans! %%k-61
        ) else set Ans=!Ans! %%k-33
    )COPY