[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

批处理函数的高效另类应用(免call的哦!)

高速的真正的批处理函数应用方法!
并非调用子过程。。。

我想这次应该可以把批处理编程推向一个新的台阶。
目前只支持一个参数,
欢迎大家加入讨论。。。
  1. @echo off
  2. ::定义函数
  3. 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))"
  4. ::10进制转为16进制的函数,参数入口#a#
  5. ::要在开启变量延迟之前定义
  6. setlocal enabledelayedexpansion
  7. for /l %%a in (1,7,1024) do (
  8.     set abc=%%a
  9.    
  10. (%d-h:#a#=abc%)
  11. rem 函数调用
  12. echo !abc!
  13. )
  14. pause
复制代码

[ 本帖最后由 netbenton 于 2009-9-22 13:10 编辑 ]
6

评分人数

本帖最后由 HOPE2021 于 2023-1-30 18:39 编辑

回复 1# netbenton
您的D-H函数似乎不能很好地处理有符号的数字,而且会忽略数字的高十六位。我写了一个支持有符号数并支持直接传递参数的CHex函数,请您看看?
(P.S. 最近 VB 写多了,写出来的批处理代码又慢又长)
  1. @Echo Off & @Goto :Main
  2. :Main
  3. @Call :LoadFunctions
  4. SetLocal EnableExtensions EnableDelayedExpansion
  5. For /L %%I in (-64,1,63) Do (
  6. Set i=%%I
  7. %CHex:pReturn:lngDec=strHex:!i!%
  8. Echo.!i! 的十六进制形式是 !strHex!
  9. )
  10. EndLocal
  11. %CHex:pReturn:lngDec=strHex:-1%
  12. Echo.-1 的十六进制形式是 %strHex%
  13. %CHex:pReturn:lngDec=strHex:05347%
  14. Echo.05347(八进制) 的十六进制形式是 %strHex%
  15. @Pause > Nul
  16. @Exit /B
  17. :LoadFunctions
  18. 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 %%_=%%`)))"
  19. @Goto :Eof
复制代码
1

评分人数

    • CrLf: 感谢分享技术 + 1 PB + 8
Why join the navy, if you can be a pirate? - Steve Jobs

TOP

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

TOP

好好学习!

TOP

看不懂啊,看不懂@!高手!简直是天书!

TOP

1 挺牛
2 简直是天书!
3 用了powershell就可以避免上述问题。呵呵,请叫我王婆,我最爱卖powershelllll
脚本是写给人看的,是写给用户看的,而不是写给机子看的
用户能看懂、会修改的脚本,才是好脚本。
写易懂的powershell脚本帮人解决问题,进而让用户学会自渔,吾所愿也

TOP

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

TOP

看不懂啊,看不懂@!高手!

TOP

刚学,真的看不懂,看大家讨论的氛围,顶一个

TOP

总的来说吧,封装函数在写大型程序时,可以提高可读性,提高效率,但是参数及自由度不高。

而批处理擅长的简短程序来说,用处不大,复制粘贴几次重复代码也不会影响效率和可读性。

只适合高手挑战极限用。

TOP

强势围观下...好强大...

TOP

在下菜鸟看的是云里雾里

TOP

想说些赞美的话,不好说出口。在一次创作中,突然想起netbenton这种函数的用法,于是也山寨了一个,呵呵。确实如楼主所言,发展一些高效的、正确的、常用的函数很有必要,能够充分扩展批处理的功能,使得批处理累积起更大的功能,从而实现更高的跨越式的发展。

对于重复命令调用处理的方法和技术,目前看来有几种:
1、复制粘贴,重复出现。这种模式在执行任务与命令比较少的情况下可以使用,比如使用echo产生两三行空行,总比使用for产生的划算吧?这种模式的结果是造成大量重复代码,缺乏效率。
2、使用标签,GOTO跳转。把那些反复使用的同一功能段的代码做成一个标签,然后使用goto跳转,这是最基本的模式。但goto只负责跳出去而不跳回来,要想代码自动回来则需要再跳一次。
3、使用标签,Call调用。call的好处是跳到其他标签后能够自动跳回来。之所以能够自动跳回来,因为call在原来代码后面使用了标记,可能使用了更多的内存存储来暂停原来的进程。所以,相对而言,会显得较慢一些。但Call对参数有很好的支持,使得人们对其无法割舍。
4、使用FOR命令,化繁为简。将那些符合FOR特性的命令融合到FOR当中,即可减少必要的重复操作。
5、使用函数,扩大变量。将一些命令组合赋值到某一个特定的变量中,变成通用函数,支持参数,它不需要重新建立标签,但它占据了一个变量空间。这种模式适用于所赋值的命令组合比较简短,占用空间不大的变量函数中。可以方便封装以用于不同的批处理程序中。
寂寞是黑白的,但黑白不是寂寞,是永恒。BAT 需要的不是可能,而是智慧。

TOP

一般来说能实现函数就应该能实现递归把?不知道现不现实...

TOP

感谢楼主,看你帖子学到很多东西
你那定义大量变量的方法好用极了,这个就是它的延伸了
我现在去试着用这办法优化下我以前那反复call的代码

TOP

返回列表