Board logo

标题: [问题求助] 如何根据条件来决定for语句的循环次数？能否用if…then…else？ [打印本页]
作者: killer3k    时间: 2013-9-18 01:09     标题: 如何根据条件来决定for语句的循环次数？能否用if…then…else？

刚开始学VBS，很多东西都还不明白。

如何根据条件来决定for语句的循环次数？比如说当条件为A时，执行“for i=0 to 50”，当条件为B时执行“for i=0 to 100”？
  1. rem 这是一段错误的代码

  2. dim asdf(2)

  3. asdf(0)="111111111"

  4. asdf(1)="222222222"

  5. asdf(2)="333333333"

  6. 

  7. a=1

  8. if a=1 then

  9.     for i=0 to 1

  10.     else

  11.     for i=0 to 2

  12. end if

  13. s=s&asdf(i)&"    "

  14. next

  15. msgbox s
复制代码
上面那段代码是错误的，但是就是我想达到的效果。

下面是我想完成的任务：
我准备用VBS给若干程序创建快捷方式，所有程序的快捷方式将会创建到开始菜单的某个文件夹，但是其中部分程序的快捷方式会创建到快速启动栏。
“程序”、“起始位置”、“图标”、等参数我用的是一维数组，快捷方式的“目标位置”我定义了一个二维数组，分别指向开始菜单和快速启动栏。

以下这段代码（从完整代码中提取的部分内容并稍做修改）可以完成任务，但是有缺陷：
  1. rem Name：快捷方式名称

  2. rem Goal：目标位置

  3. rem Prog：程序名

  4. rem PPth： 程序位置

  5. rem Icon：图标引用文件

  6. rem Parm：参数

  7. rem Dscp：描述

  8. 

  9. dim Dir(32),Name(147),Goal(147,1),Prog(147),PPth(147),Icon(147),Parm(147),Dscp(147)

  10. dim a,f,g,i,j,fso,AppBox

  11. Set a = WScript.CreateObject("WScript.Shell")

  12. f = a.SpecialFolders("AllUsersStartMenu") & "\工具箱"

  13. 

  14. Dir(0)   = f

  15. Dir(04) = f & "\备份"

  16. Dir(05) = f & "\编辑"

  17. 

  18. Set fso = Createobject("Scripting.Filesystemobject")

  19. 

  20. for g=0 to 32

  21.     if not fso.folderexists(Dir(g)) then

  22.         fso.createfolder(Dir(g))

  23.     end if

  24. next

  25. 

  26. AppBox = "C:\Programs\"

  27. 

  28. Name(0)   = "MyBackup"

  29. Goal(0,0) = Dir(04)

  30. Prog(0)   = "MyBackup.bat"

  31. PPth(0)   = AppBox & "MyTools\MyBackup"

  32. 

  33. Name(1)   = "GVim"

  34. Goal(1,0) = Dir(05)

  35. Prog(1)   = "gvim.exe"

  36. PPth(1)   = AppBox & "Vim"

  37. Icon(1)   = AppBox & "VMware\VMware.exe"

  38. 

  39. Name(2)   = "HtmlDocEdit"

  40. Goal(2,0) = Dir(05)

  41. Prog(2)   = "HtmlDocEdit.exe"

  42. PPth(2)   = AppBox & "NirSoft\HtmlDocEdit"

  43. Parm(2)   = "/prefetch:1"

  44. 

  45. Name(3)   = "MadEdit"

  46. Goal(3,0) = Dir(05)

  47. Goal(3,1) = a.SpecialFolders("appdata") & "\Microsoft\Internet Explorer\Quick Launch"

  48. Prog(3)   = "MadEdit.exe"

  49. PPth(3)   = AppBox & "MadEdit"

  50. 

  51. Name(4)   = "Notepad2"

  52. Goal(4,0) = Dir(05)

  53. Prog(4)   = "Notepad2.exe"

  54. PPth(4)   = AppBox & "Notepad2"

  55. 

  56. for i=0 to 4

  57. for j=0 to 1

  58.     set link = a.CreateShortcut(Goal(i,j) & "\" & Name(i) & ".lnk")

  59.     link.TargetPath = PPth(i) & "\" & Prog(i)

  60.     link.WorkingDirectory = ppth(i)

  61.   if not isempty(Icon(i)) then

  62.     link.IconLocation = Icon(i)

  63.    elseif not isempty(Parm(i)) then

  64.     link.Arguments = Parm(i)

  65.    elseif not isempty(Dscp(i)) then

  66.     link.Description = Dscp(i)

  67.   end if

  68.     link.save

  69. next

  70. next
复制代码
这段代码的确可以完成任务，但是缺陷有二：
1、多循环了一次，降低了效率。
2、仅仅是因为VBS创建快捷方式没找到参数时，不会报错，才完成的任务。
所以，我想把
  1. for i=0 to 4

  2. for j=0 to 1
复制代码
改成类似这样的语句：
  1. for i=0 to 4

  2.   if  isempty(goal(i,1)) then   

  3. for j=0 to 0

  4.  else

  5. for j= 0 to 1

  6.  end if
复制代码
但是这段代码又是错误的。
作者: killer3k    时间: 2013-9-18 01:43

又研究了一下，如果我在倒数的两个“next”前加上这一句“if  isempty(goal(i,1)) then exit for”，是不是就可以不做那一次多余的循环？这样程序发现缺少参数时也不会报错了？
最后一段修改如下：
  1. for i=0 to 4

  2. for j=0 to 1

  3.     set link = a.CreateShortcut(Goal(i,j) & "\" & Name(i) & ".lnk")

  4.     link.TargetPath = PPth(i) & "\" & Prog(i)

  5.     link.WorkingDirectory = ppth(i)

  6.   if not isempty(Icon(i)) then

  7.     link.IconLocation = Icon(i)

  8.    elseif not isempty(Parm(i)) then

  9.     link.Arguments = Parm(i)

  10.    elseif not isempty(Dscp(i)) then

  11.     link.Description = Dscp(i)

  12.   end if

  13.     link.save

  14.   if  isempty(goal(i,1)) then exit for

  15. next

  16. next
复制代码
这样的话，是不是程序先在“i=0”、“j=0”的情况下来执行，然后当程序发现goal(i,1)即goal(0,1)这个参数不存在时，程序就不再让j=1执行第二次循环了？并且程序就直接跳出“for j＝0 to 1”的循环，返回到上层“for i=0 to 4”的循环，并且令“i=1”，即开始第二次循环？



欢迎光临 批处理之家 (http://www.bathome.net/) Powered by Discuz! 7.2