5. VBScript project with multi-files

5. VBScript project with multi-files

 

任何真正实用的工程开发都必然是多文件的。但是VBScript创建多文件工程要麻烦一点，它对多文件工程，代码复用的支持并不是太好。在C/C++工程里，我们已经习惯了通过一个include语句，并且声明一个函数原形的方式来使用其它模块中的函数，这样一个复杂的工程可以比较容易地分解成一些小的模块，以更容易理解和掌握。VBScript中情况有些不同。这与它的设计目标有关。最初VBScript是用在客户端脚本，以支持与客户端作简单的交互，如简单的输入检查等等。在浏览器里显然没有办法支持对另一个文件中的函数的调用，你不知道那个文件是否存在，何时存在。那么以本地脚本形式执行的VBScript又怎么样呢？想想看这条命令：cscript.exeyourscript.vbs。显然一个VBS运行在一个进程空间里（cscript进程），它也没有办法得到另一个文件中的函数。

认识到了VBScript的局限性，我们来看如何解决它。

第一种需要可能是需要在一个脚本运行的中间直接运行另外一个脚本。这可以通过下面的方法来完成：

Set WSHShell = CreateObject("WScript.Shell")
WSHShell.Run "wscript c:/Test.vbs param1", , True

注意到这里我们Test.vbs运行在另外一个进程空间（wscript进程）里，加上执行当前脚本的WSH，我们一共有两个进程。这是通过WSHShell.Run来做到的，这个方法的原型是：

object.Run(strCommand, [intWindowStyle], [bWaitOnReturn])

如果时序很重要，你可以在bWaitOnReturn这个参数中指定主脚本是否要等待被执行的脚本运行结束后才能继续。

另一点需要注意的地方是strCommand参数，这个参数是一个复合体，以空格区分各个域。如果需要将运行参数传递给被调用的脚本，应该在第二个空格后面输入。下面的例子显示了如何获取主脚本传递来的参数。对了，是通过WScript.Arguments来访问。WSCript还有其他一些有趣的属性，请记得读一下文档。

Set oArgs = WScript.Arguments
For i = 0 to oArgs.Count - 1
   WScript.Echo oArgs(i)
Next

关于参数解析，这里给出一个Windows 2000 support tools中的一个脚本的例子。你可以复用这个函数，以解析任何以/ArgName:Value形式指定的参数。

' searches for and returns the value of a command line argument of the form
' /argName:value from the supplied array.  erases the entry in the array so
' that only untouched entries remain.

function GetArgValue(argName, args())
    dim a
    dim v
    dim argNameLength
    dim x
    dim argCount
    dim fullArgName

    fullArgName = "/" & argName & ":"
    argCount = Ubound(args)

    ' Get the length of the argname we are looking for
    argNameLength = Len(fullArgName)
    GetArgValue = "" ' default to nothing
   
    for x = 0 To argCount
        if Len(args(x)) >= argNameLength then

            a = Mid(args(x), 1, argNameLength)
            if UCase(a) = UCase(fullArgName) then

                ' erase it so we can look for unknown args later
                v = args(x)
                args(x) = ""

                if Len(v) > argNameLength then
                    GetArgValue = Mid(v, argNameLength + 1)
                    exit function
                else
                    GetArgValue = ""
                    exit function
                end if
            end if
        end if
    next
end function

 更多的时候，我们需要在脚本之间共享变量，以及相互调用函数。我们想要得到C/C++中那样的便利性：通过一个Include声明，就可以将另外一个模块中的函数和变量引入到当前的模块中。在VBScript中，可以通过ExecuteGlobal来实现:

Sub Include(sInstFile)
    Dim oFSO, f, s
    Set oFSO = CreateObject("Scripting.FileSystemObject")
    Set f = oFSO.OpenTextFile(sInstFile)
    s = f.ReadAll
    f.Close
    ExecuteGlobal s
End Sub

这样，在脚本中加上这样一句调用：Include"mylib.vbs"，就可以使用mylib.vbs中声明的全局变量和函数了！注意这里的函数ExecuteGlobal有一个类似的函数Execute，这里如果使用Execute的话，就达不到我们想要的效果。因为通过Execute暴露的名字，其作用范围局限于Execute所处的级别，在这里，也就是在函数Include内部。这几乎肯定不是你想要的结果。

还有别的方法吗？是的。VBScript内在的支持COM方式。如果可以将你的脚本编译成一个COM组件，就当然可以在别的脚本中调用组件中的方法了。恰好，MS提供了工具Script Component Wizard来帮助我们将一些VBScript文件打包成一个组件，并提供注册方法。 

现在我们来学一些新的方法。我的意思是，这些方法是仅为WSH支持的，你可能以前并没有遇见过。WSH支持一种叫*.wsf的文件，这个文件本身是XML格式的，通过该文件可以将你的VBScript脚本，以及其它类型的脚本，比如batch，perl等等组装在一起，交给WSH来执行。这方面文档还算详细，这里就不多介绍了。

这一节里，介绍了由单个脚本文件组装成一个较大的工程的四种方法，通过运用这些方法，你可以建立自己的常用函数库，在各个脚本之间共享变量和传递数据，等等。