如何獲取VBScript中的所有函數名稱並且不使用msscriptcontrol執行腳本代碼？

Question

如何僅取得所有功能&程序名稱，而不是自己寫解析器？

採取以下VBS代碼作爲例子，其中包括1個功能，程序1，2個報表，我想要得到的函數和過程的名稱：1） 「的GetValue 」2）「 ABC_Result」

雖然微軟提供的IScriptControl::AddCode可以工作，其問題是 它總是執行語句（比如「ABC_Result 20」，「While True Wend」）默認？

//\test.vbs

Function GetValue(varVal) 
    GetValue = varval*2 
End Function 

Sub ABC_Result(count) 
    'msgbox is not allowed in server side, so use beep 

    Dim WshShell 
    Set WshShell = CreateObject("Wscript.Shell") 
    beep = chr(007) 
    Dim i 
    For i=0 To CInt(count) 
    WshShell.Run "cmd /c @echo " & beep, 0 
    Next 
End Sub 

ABC_Result 20 

While True 
Wend 

Answer 1

寫 「解析器」 可能的一種方式，使用字符串函數等INSTR（）或者甚至正則表達式。

但是，有第三方工具，如http://www.sourceformat.com/vbscript-formatter.htm可能會給你交叉引用列表。