引用(include)外部函数库

上一篇 / 下一篇  2013-04-23 10:52:23 / 个人分类:QTP

很多语言都可以对外部函数库或者文件库进行引用,但是你会发现在vbs文件中却不那么容易做到,因为其本身并没有提供类似这样的方法为我们所用。这里iquicktest提供给大家一个include方法。

1.首先我们准备一个简单的函数库:

 
Classiquicktest
  
 Functioniquicktest_main
    Msgboxwww.iquicktest.com
 EndFunction    
  
 Functioniquicktest_jobs
 EndFunction
  
 Functioniquicktest_ask
 EndFunction
  
EndClass

2.接着保存此vbs文件为iquicktest.vbs,然后在同级目录下重新创建一个new.vbs

3. 打开new.vbs后,写入脚本:

 
'***************************************
'使VBSCRIPT支持include外部函数文件
'通过ExecuteGlobal载入外部文件内容
'***************************************
OptionExplicit
  
' Include函数,通过FSO组件读取外部函数文件内容
' 通过ExecuteGlobal载入
Subinclude(file)
    Dimfso, f, str
    Setfso = CreateObject("Scripting.FileSystemObject")
    Setf = fso.OpenTextFile(file, 1)
    str = f.ReadAll
    f.Close
    ExecuteGlobal str
EndSub
'
'
' 通过include方式载入iquicktest.vbs文件类库
include"iquicktest.vbs"
  
Dimiqt
Setiqt =Newiquicktest
iqt.iquicktest

4. 执行new.vbs文件

注意:本方法只应用于纯VBS环境下,若在QTP运行环境下可以直接使用resources或者executefile进行引用外部文件。


 


TAG: 引用外部函数库 QTP qtp vbs VBS

 

评分:0

我来说两句

我的栏目

日历

« 2024-04-23  
 123456
78910111213
14151617181920
21222324252627
282930    

数据统计

  • 访问量: 5479
  • 日志数: 5
  • 建立时间: 2011-10-22
  • 更新时间: 2013-04-23

RSS订阅

Open Toolbar