3 - 4

3. Flow control in VBScript

条件语句  VBScript支持以下两种条件控制语句: If…Then…Else 语句 If …Then …Else语句的一个变种是If …Then…如果Then后面的语句可以在一行内书写下的话。注意与C/C++不同的是，你必须用End If 来结束If语句。 If 1 Then    wscript.echo "it's 1"    Else    wscript.echo "it's not 1" End If Select Case 语句 Select Case 语句的作用类似于C/C++中的switch语句。请看示例： card = "MasterCard"  Select Case card     Case "MasterCard"   wscript.echo "MasterCard"     Case "MasterCard"   wscript.echo "Visa"     Case "American Express"   script.echo "American Express"     Case Else   sctip.echo "union pay" End Select 与C/C++不同，case语句支持字符串作为比较的变量，并使用Case Else作为default选项。各Case语句之间不会重复进入，也不需要用break之类的关键字来限制重复进入。 循环语句 在 VBScript 中可使用下列循环语句： Do…Loop： 当（或直到）条件为 True 时循环。具体语法形式有： Do While … Loop Do Until … Loop Do Loop While … 在这里…应该替换成具体的条件表达式。 While…Wend： 当条件为 True 时循环。语法形式为： While … Wend For…Next： 指定循环次数，使用计数器重复运行语句。 具体语法形式有： For I = … To … Step … Next  在这里，如果不指定步长，则步长为+1，这里，循环变量可以不为整数，步长也可以为负数。 For Each…Next：对于集合中的每项或数组中的每个元素，重复执行一组语句。这个跟C++里的用法差不多。 与C/C++不同的是，循环语句支持跳出，但不支持continue语义。如果一定要实现这种语义，应该寻找变通的办法。跳出是通过Exit来实现的。如果是在For语句中，则为Exit For,在Do循环中为Exit Do。但对While … Wend语句，似乎没有办法可以方便地跳出去。下面是一组例子： 'For .. To with default step length  Sub DoMyProc50Times()      Dim x      For x = 1.05 To 10.05          wscript.echo "x=" & x      Next '注意Next后面不跟循环变量。步长默认为1  End Sub ' For .. To with negative step   Sub TwosTotal()      Dim j, total      For j = 10 To 2 Step -2          total = total + j      Next      wscript.echo "total=" & total  End Sub 'For each …  Sub ListFiles(root)  Set fso = CreateObject("Scripting.FileSystemObject") Set fldr = fso.GetFolder(root)  For Each f In fldr.Files   wscript.echo f.name   If f.name = "exit.txt" Then Exit For     Next  End Sub  'Do .. Loop   Sub ChkLastWhile()      Dim counter, myNum      counter = 0      myNum = 9      Do          myNum = myNum - 1          counter = counter + 1    If counter = 9 Then Exit Do      Loop While myNum > 10      MsgBox "循环重复了 " & counter & " 次。"  End Sub 'While … Wend  Sub CheckWhile()  While i < 10        i = i + 2     If I = 5 Then Exit Sub 'No exit while or exit wend available    Wend  End Sub

 

4. Procedures in VBScript

为支持代码复用，VBScript提供了过程Sub和函数Function两种语法结构。在C/C++中并没有过程一说，不过VBScript中的过程其实跟函数差别并不大，可以看作是void型的函数。由于两者的差异很小，本文中多数讨论，对两者都适用。 过程Sub 一个过程由 Sub xxx(x,y,..) End Sub 定义。过程在End Sub处结束，但也可以在中间由Exit Sub退出。 函数Function 一个函数由 Function xxx(x, y,…) End Function 定义。函数在End Function处结束，但也可以在中间由Exit Function退出。与C/C++不同的是，VBScript没有return语句，函数的返回值由函数名带回去。与VB不同的是，由于VBScript的无类型特性，不可以申明函数返回值的类型，variant声明也是不允许的。关于函数的例子，在第一部分就就给出了一个获取本机IP的例子，读者可以参考那一部分。注意函数的返回值是由 GetIP = IP 带回的。在函数调用时，必须使用括号，否则函数将成为一个过程，并且得不到返回值。 与C/C++灵活的函数用法形成对照的是，VBScript中的过程和函数的用法很弱。为许多VBScript的爱好者诟病的不足之一是，VBScript的函数和过程不支持可变参数。尤其令人气愤的是，在VBScript中存在大量系统函数调用是允许可变参数的。这种不一致性给编程人员带来额外的理解和记忆上的麻烦。好在失望之余，还存在一些不太直观的补救方法。其一是可以仅为函数指定一个形式参数，且将这个参数定义为数组。由于VBScript的无类型特性，因此数组的各个元素可以携带不同类型的数据（指子类型）。请看示例： 首先要定义两个辅助函数IsMissing和Valid。IsMissing是VB中支持的函数，但在VBScript中，我们需要自已来定义。 Function Valid(arrayVar,arrayIndex)     If ubound(arrayVar)<arrayIndex or lbound(arrayVar)>arrayIndex Then          Valid=Empty      Else          Valid=arrayVar(arrayIndex)      End If End Function Function IsMissing(var)     IsMissing=((vartype(var) mod 8192 mod 10)=0) End Function 这里，如果vartype(var) mod 8192（vbArray）不为vbError的话，则再对10（vbError)求模必不为0，因此var为无效参数，因为我们要求这里var定义为一维数组。 接下来，我们需要定义可变参数的函数： Function myfuncVBS(arrVar)      Dim var1, var2     var1=Valid(arrVar,0)     var2=Valid(arrVar,1)     If IsMissing(var1) then         myfuncVBS="You have no pets."     ElseIf IsMissing(var2) then         myfuncVBS="Your dog has " & var1 & " puppies."     Else         myfuncVBS="Your dog has " & var1 & " puppies and your cat has " & var2 & " kittens."     End If End Function 我们的自定义函数最多允许两个参数，但只声明一个数组参数（实际上只能从调用形式上才能看出来，记住，在VBScript中，数据的实际取值决定数据的类型。现在结合这个函数看，IsMissing和Valid辅助函数的语义就很直观了。在Valid函数调用下面的If … Else语句用来给缺省参数赋默认值。这些在C++中不用程序自己照料的事情，在这里必须得自己做了。 最后是如何调用这个允许变参的函数，答案是使用Array()函数。  wscript.echo myfuncVBS(Array(,1))   'Option 1 wscript.echo myfuncVBS(Array(1))    'Option 2 上面的代码中，如果不使用缺省参数，完整的调用形式应该为 Dim Value1 Dim Value2 wscript.echo myfuncVBS(Array(value1,value2))   'No option VBScript也没有名字空间的概念。似乎惟一的办法是将函数定义在类中，这样调用某个函数就转化为调用某个类的方法，而且必须使用对象做为前缀，可惜没有static关键字，所以调用之前仍然必须先构造对象。记得public和private关键字在声明函数和过程时可用。 Class MyNameSpaces_     Sub MyFunc()          wscript.echo "hello world!"     End Sub End Class Set MyNameSpaces = new MyNameSpaces_ MyNameSpaces.MyFunc Set f = Nothing 好了，在讨论关于可变参数函数和名字空间的workaround之后，关于VBScript函数和过程讨论的也可以暂时告一段落了。当然，关于函数和过程名字的可见性仍然是一个很重要的话题，我将会在多文件工程中再次讨论它。