批处理函数的高效另类应用（免call的哦！）

breakme

看不懂啊，看不懂@！高手！

huzhiqiang91

思路很新颖，之前我真没想到可以把一个语句定义成一个变量，在这学习一下，不过我觉得封装函数对于批处理脚本来说能带来多大方便。总之先自己尝试一下写一个吧

PowerShell

1 挺牛
2 简直是天书！
3 用了powershell就可以避免上述问题。呵呵，请叫我王婆，我最爱卖powershelllll

liu888mi

看不懂啊，看不懂@！高手！简直是天书！

zx317582225

好好学习！

amwfjhh

“登堂入室”，这个形容楼主真太贴切不过了。看这段代码眼睛都看花了……

HOPE2021

回复 1# netbenton
您的D-H函数似乎不能很好地处理有符号的数字，而且会忽略数字的高十六位。我写了一个支持有符号数并支持直接传递参数的CHex函数，请您看看？
(P.S. 最近 VB 写多了，写出来的批处理代码又慢又长)

1. @Echo Off & @Goto :Main
   
2. 
   
3. :Main
   
4.         @Call :LoadFunctions
   
5. 
   
6.         SetLocal EnableExtensions EnableDelayedExpansion
   
7. 
   
8.                 For /L %%I in (-64,1,63) Do (
   
9.                         Set i=%%I
   
10.                         %CHex:pReturn:lngDec=strHex:!i!%
    
11.                         Echo.!i! 的十六进制形式是 !strHex!
    
12.                 )
    
13. 
    
14.         EndLocal
    
15. 
    
16.         %CHex:pReturn:lngDec=strHex:-1%
    
17.         Echo.-1 的十六进制形式是 %strHex%
    
18. 
    
19.         %CHex:pReturn:lngDec=strHex:05347%
    
20.         Echo.05347(八进制) 的十六进制形式是 %strHex%
    
21. @Pause > Nul
    
22. @Exit /B
    
23. 
    
24. :LoadFunctions
    
25.         Set "CHex=(For /F "Tokens=1,2 Delims=:" %%_ in ('Echo.pReturn:lngDec') Do (Set %%_=0 & SetLocal EnableExtensions EnableDelayedExpansion & Set "pRes=%%_" & Set /A lngTemp=%%`)) & Set "Hex=0123456789ABCDEF" & Set "strTemp=" & If !lngTemp!==0 ((For /F %%_ in ('Echo.!pRes!') Do (EndLocal & Set %%_=0))) Else ((For /L %%_ in (0,1,7) Do (If !lngTemp! Neq 0 (Set /A "bytTemp=lngTemp^&0x0000000F","lngTemp=(lngTemp^>^>4)^&0x0FFFFFFF" & (For /F %%` in ('Echo.!bytTemp!') Do (Set strTemp=!Hex:~%%`,1!!strTemp!))))) & (For /F "Tokens=1,2 Delims=:" %%_ in ('Echo.!pRes!:!strTemp!') Do (EndLocal & Set %%_=%%`)))"
    
26. @Goto :Eof

复制代码