引用(include)外部函数库
上一篇 /
下一篇 2013-04-23 10:52:23
/ 个人分类:QTP
很多语言都可以对外部函数库或者文件库进行引用,但是你会发现在vbs文件中却不那么容易做到,因为其本身并没有提供类似这样的方法为我们所用。这里iquicktest提供给大家一个include方法。
1.首先我们准备一个简单的函数库:
| Class iquicktest
Function iquicktest_main
End Function
Function iquicktest_jobs
End Function
Function iquicktest_ask
End Function
End Class
|
2.接着保存此vbs文件为iquicktest.vbs,然后在同级目录下重新创建一个new.vbs
3. 打开new.vbs后,写入脚本:
| Option Explicit
Sub include(file)
Dim fso, f, str
Set fso = CreateObject( "Scripting.FileSystemObject" )
Set f = fso.OpenTextFile(file, 1)
str = f.ReadAll
f.Close
ExecuteGlobal str
End Sub
include "iquicktest.vbs"
Dim iqt
Set iqt = New iquicktest
iqt.iquicktest
|
4. 执行new.vbs文件
注意:本方法只应用于纯VBS环境下,若在QTP运行环境下可以直接使用resources或者executefile进行引用外部文件。
收藏
举报
TAG:
引用外部函数库
QTP
qtp
vbs
VBS