dnfreeuser

将ascii输出到文件，然后调用debug来显示行不？

CrLf

回复 29# plp626


    貌似是我电脑上的内部命令运行太慢...@echo off 效率为 20312.8HZ
"find/?"与"@echo off" 耗时比=1657
"find/?"与"set a=#4647" 耗时比=1281

另：判断是否大/小写时我更喜欢用 delims

set chr=a
for /f "delims=ABCDEFGHIJKLMNOPQRSTUVWXYZ" %%a in ("%chr%") do echo 小写
复制代码

CrLf

我的三个方案都很老实，没有什么出彩的地方（而且还内置了你的函数），但还是贴出来吧...

com 方案：

@echo off
setlocal enabledelayedexpansion
set str= ^^!"$%%&'()*+,-./09:;<=>?@AZ[^_`az|}~
set<nul>$ /p=@!str!
debug asc.com<%0 >nul 2>nul
asc<$>ans.txt
for /f "delims=" %%a in (ans.txt) do set ans=%%a
echo %ans%
pause&exit
e100 B4 08 CD 21 B4 00 BB 64 00 E8 23 00 B3 0A 89 C8
e110 E8 1C 00 88 CA 80 C2 30 CD 21 B2 20 CD 21 B4 0B
e120 CD 21 3C 00 75 DA B4 09 BA 43 01 CD 21 CD 20 F6
e130 F3 88 E1 38 F8 74 0B B7 FF B4 02 88 C2 80 C2 30
e140 CD 21 C3 0D 0A 24
rcx
46
w
q
复制代码

fc 方案

@echo off
set str=0123_ABCDXYZabcdxyz
setlocal enabledelayedexpansion
set<nul>$ /p"=@!str!"
fc /b $ %comspec%>#
for /f "eol=F skip=2 tokens=2" %%a in (#) do set "ans=!ans!%%a "
echo %ans%
pause
复制代码

纯内部命令方案（0x20~0x7f 范围）：

@echo off&setlocal enabledelayedexpansion
set str= ^^!"$%%&'()*+,-./09:;<=>?@AZ[^_`az|}~

set $=!str!#
set N=&for %%z in (4096 2048 1024 512 256 128 64 32 16)do if !$:~%%z!. NEQ . set/aN+=%%z&set $=!$:~%%z!
set $=!$!fedcba9876543210&set/aN+=0x!$:~16,1!-1

set $= ^^!"#$%%&'()*+,-./0123456789:;<=>?@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^^_`abcdefghijklmnopqrstuvwxyz{|}~
set "$=                                !$!"

(for /l %%a in (32 1 127) do (
   for /f "delims=" %%b in (":!$:~%%a,1!") do if "!str%%b=!" neq "!str!" echo %%a	!$:~%%a,1!
))>#
set $=

for /l %%a in (0 1 %n%) do (
   for /f "tokens=1,2 delims=	" %%b in (#) do (
      if "!str:~%%a,1!"=="%%c" set "ans=!ans!%%b "
   )
)
echo %ans%
pause
复制代码

纯内部命令方案（[a-z_A-Z] 范围），结果测试时反而没有前一个方案快：

@echo off
set str=0123_ABCDXYZabcdxyz
setlocal enabledelayedexpansion
set $=!str!
set N=&for %%z in (4096 2048 1024 512 256 128 64 32 16)do if !$:~%%z!. NEQ . set/aN+=%%z&set $=!$:~%%z!
set $=!$!fedcba9876543210&set/aN+=0x!$:~16,1!
set $=0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ_abcdefghijklmnopqrstuvwxyz
(for %%z in ("48 1 57" "65 1 90" "96 1 122") do (
   for /l %%a in (%%~z) do (
      for /f "delims=" %%b in ("!$:~,1!") do (
         if "!str%%b=!" neq "!str!" echo %%a !$:~,1!
         set $=!$:~1!
      )
   )
))>#
set $=
for /l %%a in (0 1 !n!) do (
   for /f "tokens=1,2 delims= " %%b in (#) do (
      if "!str:~%%a,1!"=="%%c" set "$=!$!%%b "
   )
)
set ans=!$:96=95!
echo %ans%
pause
复制代码

plp626

回复 30# plp626

:: char2asc 版本2（二分法）每次调用相当于执行20次左右set赋值

    接30楼：

@echo off
setlocal enabledelayedexpansion

:: 初始化: 定义单字符if顺序表@ifasc; 全局变量 @ifcode
call ascmap.cmd /437 @
set @ifcode=20FF090A0B0C0D2101020304050607080E0F101112131415161718191A1B1C1D1E1F7F272D222324252628292A2C2E2F3A3B3F405B5C5D5E5F607B7C7D7EADA82BF93C3D3EF1AEAFF6FBEFF7F0F3F2A9F4F5FEC4CDB3BADAD5D6C9BFB8B7BBC0D4D3C8D9BEBDBCC3C6C7CCB4B5B6B9C2D1D2CBC1CFD0CAC5D8D7CEDFDCDDDEDBB0B1B29B9C9DAAF8E6FA9E30ACAB3132FD33343536373839EC6141A6A08583848E868F91926242634387806444654582908A888966469F674768486949A18D8C8B6A4A6B4B6C4C6D4D6EFC4EA4A56F4FA7A2959394997050715172527353E174547555A39796819A7656775778587959987A5AE0E2EBEEE9E3E5E4E7EDE8EA
for /l %%a in (0 2 510)do for %%b in ("!@ifcode:~%%a,2!")do set @ifasc=!@ifasc!!@:~0x%%~b,1!


::char2asc版本2(code by plp) 入口参数#1,出口参数##,需要全局变量@ifasc和@ifcode
set #1=A
set $=!@ifasc!
set n=0&for %%a in (128 64 32 16 8 4 2 1)do if "!#1!" geq "!$:~%%a,1!" set $=!$:~%%a!&set/a n+=%%a*2
set/a ##=0x!@ifcode:~%n%,2!
set ##

pause
复制代码

经比较，28楼char2asc（耗时比2100+），效率略胜二分法版本（耗时比2400+）

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!
pause
复制代码

plp626

回复 35# terse


显然，这说明预处理耗时随代码长度的增长不是线性增长的，看来代码简短是保证效率高的一个要求。。。

terse

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

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

plp626

那个win7运行下，看看结果，我这里比值是terse的快两倍了，rate=1300+

@echo off
setlocal enabledelayedexpansion
:: 获得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

:: 初始工作（该处可省略），比如定义一些变量等，以便后面高效执行你的代码
call ascmap.cmd @
set @=!@:~1,127!
::获取256查表法#ff表
set $f= 0 1 2 3 4 5 6 7 8 9 a b c d e f&set #ff=&for %%a in (!$F!)do set #ff=!#ff!!$f: =%%a!


:: 获得500次执行“你的代码”任务的耗时，存放在ct2变量内
set t1=%time%
for /l %%? in (1 1 500)do (
    set str= ^^!"$%%&'()*+,-./09:;<=>?@AZ[^_`az|}~
rem /***************** 字符范围0x01~0x7f ***********************
    set ans=
    for /l %%A in (0 1 33)do (
        set #1=!str:~%%A,1!
        set $1=
        for /f "delims=%@:~97,26%" %%a in (":!#1!")do if %%a==: set $1=32
        if !#1!==!@:~9^,1! (
            set ##=10
        )else if !#1!==^= (
            set ##=61
        )else if !#1!==^^! (
            set ##=33
        )else for /f "eol=!delims=" %%b in ("!#1!")do (
            set ##=!#ff!!@:*%%b=!!@:*%%b=!&set/a##=128-0x!##:~-510,2!+$1
        )
        set ans=!ans! !##!
    )
rem *******************************************************/
    echo !ans!
)

set t2=%time%
call:etime t1 t2 tc2

:: 计算执行一次“你的代码”与执行一次“@echo off”的耗时比
set/a rate=200*tc2/tc1
set 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
复制代码

plp626

回复 37# terse


    terse 能否发下你的700+的测试源代码？

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

terse

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

plp626

回复 41# terse

是的；

看你的代码研究差别；发现定义100个变量值为单字符的变量和定义1个变量值为200个字符的变量；对set的影响差不多；

看来我低估了定义变量索引的思路。。

CrLf

回复 40# terse


    一直以来都极力避免使用变量索引表（生命游戏后遗症），不过看来是成见太深了...没想到，此处使用索引表所简化的流程用时竟足以弥补冗长的变量表所降低的效率。
    另：不知你在 37 楼提到的 “FC 方案 省去临时文件” 是指什么呢？如果是指可以写成 for /f "tokens=2" %%a in ('fc ...') do ... 的话，那么可以测试一下，理论上的用时会将会翻倍，因为 for /? 中提到，在 for /f  里从命令获取输出时， “该字符串会被当作命令行，传递到一个子 CMD.EXE，其输出会被捕获到内存中，并被当作文件分析。”


回复 42# plp626


    先清空变量环境再测试，这 4n:2n+3  的差异应该就会凸显出来（假设为变量名为单字符），而且在只以第一个等号为依据判断变量名的 xp 系统下估计会体现得更明显

terse

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

CrLf

回复 44# terse


    因为楼主要求将保存为一行，所以不考虑超过变量上限的 hex 长度
如果要兼容大文件转 hex，那就加点料...

@echo off
copy /y /b %0+要测试的文件  tmp.tmp
fc /b 要测试的文件 tmp.tmp>#
setlocal enabledelayedexpansion
for /f "eol=F skip=2 tokens=2" %%a in (#) do echo %%a
pause
复制代码