vbscript include的辦法實現代碼第1/2頁

2020-07-26 11:54:43

字體：大中小

來源：轉載

供稿：網友

任何真正實用的工程開發都必然是多文件的。但是VBScript創建多文件工程要麻煩一點，它對多文件工程，代碼復用的支持并不是太好。在C/C++工程里，我們已經習慣了通過一個include語句，并且聲明一個函數原形的方式來使用其它模塊中的函數，這樣一個復雜的工程可以比較容易地分解成一些小的模塊，以更容易理解和掌握。VBScript中情況有些不同。這與它的設計目標有關。最初VBScript是用在客戶端腳本，以支持與客戶端作簡單的交互，如簡單的輸入檢查等等。在瀏覽器里顯然沒有辦法支持對另一個文件中的函數的調用，你不知道那個文件是否存在，何時存在。那么以本地腳本形式執行的VBScript又怎么樣呢？想想看這條命令：cscript.exe yourscript.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來執行。這方面文檔還算詳細，這里就不多介紹了。

這一節里，介紹了由單個腳本文件組裝成一個較大的工程的四種方法，通過運用這些方法，你可以建立自己的常用函數庫，在各個腳本之間共享變量和傳遞數據，等等。
在網上找到一段實現的代碼，在這次的項目中起了大作用了。用vbs實現很多復雜的業務時，需要把一些公共的函數，class等寫在一個公共的可復用的vbs文件里，像個庫一樣，其他的腳本都包含這個庫的腳本。

復制代碼代碼如下:

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 

使用的時候，這個把這個sub放在代碼里，然后用 Include "comm.vbs" 這樣來包含以下就可以了

12下一頁閱讀全文

上一篇：vbscript 讀取xml格式的配置文件

下一篇：vbScript on error resume next容錯使用心得