filename = "C:\getfunctionname.vbs"
Set fso = CreateObject("Scripting.FileSystemObject")
Set textFile = fso.OpenTextFile(filename, 1,false,-1 )
Do While not textFile.AtEndOfStream
tmptxt = trim(textFile.ReadLine)
If left(tmptxt,1)<> "'" Then
If instr(ucase(tmptxt),"FUNCTION")or instr(ucase(tmptxt),"SUB") Then
tmparr = split(tmptxt," ")
If ucase(tmparr(0)) = "FUNCTION" or ucase(tmparr(0)) = "SUB" Then
tmptxt = replace(tmptxt,tmparr(0),"")
tmptxt = trim(tmptxt)
tmparr2 = split(tmptxt,"(")
msgbox tmparr2(0)
End If
End If
End If
loop
用VBS获取外部VBS函数库中所有的方法名
最新推荐文章于 2021-02-11 14:12:56 发布