用G4D脚本模拟循环结构

星语

因为G4D脚本（BAT）没有可用的循环结构（就是for、while）命令
所以我就做了一个通用的。
啥也不说了，上代码（有说明）
将这段代码直接放到你的BAT文件的最后即可使用

注意：这段脚本不会检查参数是否合法，请确保变量不会为文本再在参数中使用变量

1. ::--------------------------------------------------------------------------
   
2. ::--------------------------------------------------------------------------
   
3. ::循环代码区
   
4. ::参数说明：
   
5. :: while int start end step docmd
   
6. :: int变量名【此变量需自行清除】，start开始值，end结束值，step步值
   
7. :: docmd执行的命令行（要求为一个子程序的名称（带冒号！），子程序结束需要在最后加一行代码:exit）
   
8. :while
   
9. set blname=%1 > nul
   
10. set start=%2 > nul
    
11. set end=%3 > nul
    
12. set step=%4 > nul
    
13. set ftn=%5 > nul
    
14. ::initialize
    
15. set %blname%=%start% > nul
    
16. set dq=%start% > nul
    
17. 
    
18. :callfff_while
    
19. call %ftn%
    
20. if %dq%>=%end% && goto :exit_while
    
21. set /a dq=%dq%+%step% > nul
    
22. set %blname%=%dq% > nul
    
23. goto :callfff_while
    
24. 
    
25. :exit_while
    
26. set blname=
    
27. set start=
    
28. set end=
    
29. set step=
    
30. set ftn=
    
31. set dq=
    
32. exit
    

复制代码

还有一个例子：显示所有的硬盘分区信息

1. :start
   
2. call :while i 1 %hdnum% 1 :xunhuan
   
3. echo
   
4. goto :eof
   
5. 
   
6. :xunhuan
   
7. set /a l=%i%-1 > nul
   
8. echo -e 第%i%个硬盘(hd%l%)的信息：
   
9. geometry (hd%l%) || echo No hd%l%
   
10. exit
    
11. 
    
12. ::--------------------------------------------------------------------------
    
13. ::--------------------------------------------------------------------------
    
14. ::循环代码区
    
15. ::参数说明：
    
16. :: while int start end step docmd
    
17. :: int变量名【此变量需自行清除】，start开始值，end结束值，step步值
    
18. :: docmd执行的命令行（要求为一个子程序的名称，子程序结束需要有一行代码:exit）
    
19. :: while已经可以正常使用了
    
20. :while
    
21. set blname=%1 > nul
    
22. set start=%2 > nul
    
23. set end=%3 > nul
    
24. set step=%4 > nul
    
25. set ftn=%5 > nul
    
26. ::initialize
    
27. set %blname%=%start% > nul
    
28. set dq=%start% > nul
    
29. 
    
30. :callfff_while
    
31. call %ftn%
    
32. if %dq%>=%end% && goto :exit_while
    
33. set /a dq=%dq%+%step% > nul
    
34. set %blname%=%dq% > nul
    
35. goto :callfff_while
    
36. 
    
37. :exit_while
    
38. set blname=
    
39. set start=
    
40. set end=
    
41. set step=
    
42. set ftn=
    
43. set dq=
    
44. exit
    

复制代码

如果这段代码有什么bug，请发上来，让大家一起来解决

2010lizhilong

学习一下，给你顶起来

2011895866818

支持一下

天使的魔翼

正需要这样的批处理，在实际使用过程发现一个问题，如果根目录和BOOT、GRUB目录同时存在MEUN.LST、GLRDR文件时，实际指向这两个文件时会出错，建议增加处理出错后跳转。
例如MENU菜单如下时出错：

1. title  01. 启动本机 Windows 操作系统
   
2. find --set-root --devices=h /ntldr || find --set-root --devices=h /bootmgr || configfile (bd)/BOOT/GRUB/MENU.LST
   
3. map (hd0) ()
   
4. map () (hd0)
   
5. map --rehook
   
6. find --set-root --devices=h /ntldr || find --set-root --devices=h /bootmgr
   
7. chainloader /ntldr || chainloader /bootmgr
   
8. 
   
9. title  02. 启动Windows_2003PE(Native极速,智能外置SRS,支持网络)
   
10. calc *0x8280 || set mem=yes
    
11. calc *0x82b8 && calc *0x82b9&0xff || set mem=yes
    
12. root (bd)
    
13. /BOOT/GRUB/SRSF6
    
14. if NOT "%@root%"=="(cd)" && map /BOOT/TWOF.ISO (0xfa)
    
15. if %mem%==yes && map --mem /BOOT/NVBOOTF.ISO (0xff) ! map /BOOT/NVBOOTF.ISO (0xff)
    
16. map --e820cycles=3
    
17. map --rehook
    
18. chainloader (0xff) || chainloader (0xff)/BOOT/NVTUPLDR.BIN

复制代码