vbscript - 如何使用 msscriptcontrol 获取 VBScript 中的所有函数名称而不执行脚本代码？

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，它们可能会为您提供交叉引用列表。