4. Procedures in VBScript
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处结束，但也可以在中间由ExitFunction退出。与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 FunctionFunction 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 ClassSet MyNameSpaces = new MyNameSpaces_
MyNameSpaces.MyFunc
Set f = Nothing
好了，在讨论关于可变参数函数和名字空间的workaround之后，关于VBScript函数和过程讨论的也可以暂时告一段落了。当然，关于函数和过程名字的可见性仍然是一个很重要的话题，我将会在多文件工程中再次讨论它。