用VBS获取外部VBS函数库中所有的方法名

最新推荐文章于 2021-02-11 14:12:56 发布

blizzardlyk

最新推荐文章于 2021-02-11 14:12:56 发布

阅读量1.6k

点赞数

分类专栏： VBS代码点滴文章标签： QTP qtp vbs VBS

本文链接：https://blog.csdn.net/blizzardlyk/article/details/8161357

版权

VBS代码点滴专栏收录该内容

22 篇文章 2 订阅

订阅专栏

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