批处理函数的高效另类应用方法 - 中国DOS联盟论坛

真正的批处理函数应用方法，高速的！
批处理编程将进入一个新的台阶。。。
目前只支持一个参数，欢迎大家加入讨论。。。


@echo off

::定义函数
set "d-h=setlocal enabledelayedexpansion&set/a dx=#a#&set xs=0123456789abcdef&(for /l %%z in (1,1,4) do set /a x%%z=dx%%16,dx=dx/16)&(for /f "tokens=1-4" %%1 in ("!x1! !x2! !x3! !x4!") do set hx=!xs:~%%4,1!!xs:~%%3,1!&(if !hx!==00 set hx=)&(for %%z in ("!hx!!xs:~%%2,1!!xs:~%%1,1!") do endlocal&set #a#=%%~z))"
::10进制转为16进制的函数,参数入口#a#
::注意要在开启变量延迟前定义

setlocal enabledelayedexpansion

for /l %%a in (1,7,1024) do (
    set abc=%%a
    
	(%d-h:#a#=abc%)
	rem 函数调用
	
	echo !abc!
)

不错，是否可以讲解一下原理？

(%d-h:#a#=abc%)
此句中
d-h为为前面定义的变量，整句经预处理后把变量中的#a#替换为abc
然后再执行相当于在这中间插入了一段代码，但是运行结果只是改变了变量abc的值，对其它没有任何影响

如果，你还有其它的变量需要转换：如num
只需：
(%d-h:#a#=num%)
就可以把num的值从10进制转为16进制了

。。。。果然是把技术玩到令人望尘莫及的程度了。。。
能不能换个简单点的代码讲讲咧。

netbenton 什么时候搞出方便直接调WIN32 API 的批处理代码啊
哈哈

re 楼上，api函数，返回的大部分都是地址值，对批处理来说太难了，因为批处理里面根本就没有地址可言。

========分隔线=======

这种用法可以支持多参数了，len函数为两个参数

@echo off

::定义函数
set "d-h=setlocal enabledelayedexpansion&set/a dx=#a#&set xs=0123456789abcdef&(for /l %%z in (1,1,4) do set /a x%%z=dx%%16,dx=dx/16)&(for /f "tokens=1-4" %%1 in ("!x1! !x2! !x3! !x4!") do set hx=!xs:~%%4,1!!xs:~%%3,1!&(if !hx!==00 set hx=)&(for %%z in ("!hx!!xs:~%%2,1!!xs:~%%1,1!") do endlocal&set #a#=%%~z))"
::10进制转为16进制的函数,调用方法：%d-h:#a#=变量名%

set "len=for /f "tokens=1-3" %%1 in ("#a#") do setlocal enabledelayedexpansion&(if defined %%2 (set /a z=8180,x=0&(for /l %%a in (1,1,14) do set/a "y=(z-x)/2+x"&(for %%b in (!y!) do if "!%%2:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)))) else (set z=0))&(for %%z in ("!z!") do endlocal&set %%1=%%~z)"
::取字符串长度函数，调用方法：%len:#a#=结果变量名 字符串变量名%
setlocal enabledelayedexpansion

for /l %%a in (1,7,1024) do (
    set abc=%%a

	(%len:#a#=slen abc%)
	(%d-h:#a#=abc%)
	(%len:#a#=dlen abc%)
	rem 函数调用
	
	echo %%a转成16进制为：!abc!   转换前字符数:!slen!  转换后字符数:!dlen!
)

很好，又丢数据了

每个月，总有那么几天。。。

我积分回到1900了…… 那个兴奋，睡不着了。

第1楼　netbenton	发表于 2009-09-21 12:19
银牌会员　发帖 752　积分 1,916　来自广西
[原创]批处理函数的高效另类应用方法真正的批处理函数应用方法，高速的！批处理编程将进入一个新的台阶。。。目前只支持一个参数，欢迎大家加入讨论。。。 @echo off ::定义函数 set "d-h=setlocal enabledelayedexpansion&set/a dx=#a#&set xs=0123456789abcdef&(for /l %%z in (1,1,4) do set /a x%%z=dx%%16,dx=dx/16)&(for /f "tokens=1-4" %%1 in ("!x1! !x2! !x3! !x4!") do set hx=!xs:~%%4,1!!xs:~%%3,1!&(if !hx!==00 set hx=)&(for %%z in ("!hx!!xs:~%%2,1!!xs:~%%1,1!") do endlocal&set #a#=%%~z))" ::10进制转为16进制的函数,参数入口#a# ::注意要在开启变量延迟前定义 setlocal enabledelayedexpansion for /l %%a in (1,7,1024) do ( set abc=%%a (%d-h:#a#=abc%) rem 函数调用 echo !abc! )

第2楼　uiopuiop	发表于 2009-09-21 12:28
中级用户　发帖 211　积分 400
不错，是否可以讲解一下原理？

第3楼　netbenton	发表于 2009-09-21 12:41
银牌会员　发帖 752　积分 1,916　来自广西
(%d-h:#a#=abc%) 此句中 d-h为为前面定义的变量，整句经预处理后把变量中的#a#替换为abc 然后再执行相当于在这中间插入了一段代码，但是运行结果只是改变了变量abc的值，对其它没有任何影响如果，你还有其它的变量需要转换：如num 只需： (%d-h:#a#=num%) 就可以把num的值从10进制转为16进制了

第4楼　yishanju	发表于 2009-09-21 12:53
银牌会员　发帖 1,357　积分 1,488
。。。。果然是把技术玩到令人望尘莫及的程度了。。。能不能换个简单点的代码讲讲咧。

第5楼　yishanju	发表于 2009-09-21 13:12
银牌会员　发帖 1,357　积分 1,488
netbenton 什么时候搞出方便直接调WIN32 API 的批处理代码啊哈哈

第6楼　netbenton	发表于 2009-09-21 21:32
银牌会员　发帖 752　积分 1,916　来自广西
re 楼上，api函数，返回的大部分都是地址值，对批处理来说太难了，因为批处理里面根本就没有地址可言。 ========分隔线======= 这种用法可以支持多参数了，len函数为两个参数 @echo off ::定义函数 set "d-h=setlocal enabledelayedexpansion&set/a dx=#a#&set xs=0123456789abcdef&(for /l %%z in (1,1,4) do set /a x%%z=dx%%16,dx=dx/16)&(for /f "tokens=1-4" %%1 in ("!x1! !x2! !x3! !x4!") do set hx=!xs:~%%4,1!!xs:~%%3,1!&(if !hx!==00 set hx=)&(for %%z in ("!hx!!xs:~%%2,1!!xs:~%%1,1!") do endlocal&set #a#=%%~z))" ::10进制转为16进制的函数,调用方法：%d-h:#a#=变量名% set "len=for /f "tokens=1-3" %%1 in ("#a#") do setlocal enabledelayedexpansion&(if defined %%2 (set /a z=8180,x=0&(for /l %%a in (1,1,14) do set/a "y=(z-x)/2+x"&(for %%b in (!y!) do if "!%%2:~%%b,1!" equ "" (set/a z=y) else (set/a x=y)))) else (set z=0))&(for %%z in ("!z!") do endlocal&set %%1=%%~z)" ::取字符串长度函数，调用方法：%len:#a#=结果变量名字符串变量名% setlocal enabledelayedexpansion for /l %%a in (1,7,1024) do ( set abc=%%a (%len:#a#=slen abc%) (%d-h:#a#=abc%) (%len:#a#=dlen abc%) rem 函数调用 echo %%a转成16进制为：!abc! 转换前字符数:!slen! 转换后字符数:!dlen! )

第7楼　yishanju	发表于 2009-09-29 16:10
银牌会员　发帖 1,357　积分 1,488
很好，又丢数据了

第8楼　HAT	发表于 2009-09-29 16:16
版主　发帖 5,017　积分 9,023
每个月，总有那么几天。。。

第9楼　523066680	发表于 2009-09-30 08:40
银牌会员　发帖 1,133　积分 2,362
我积分回到1900了…… 那个兴奋，睡不着了。