一个VBS脚本调用另一个VBS脚本

ham301

写一个脚本列如
    dim str
   str="asfasfasdfasdf"
   call sub_output(str)
   public sub sub_output(str)
       MsgBox(str)
   end sub
保存,"E\aaa.vbs"
打开另一个脚本,
set a=createobject("wscript.shell")
a.run "E\aaa.vbs"
运行这个脚本就可以输出"asfasfasdfasdf"

现在,我想知道:
假如写一个脚本列如
   public sub sub_output(str)
       MsgBox(str)
   end sub
保存,"E\aaa.vbs"
当然也可以写成一个类
class classA
     public sub sub_output(str)
       MsgBox(str)
     end sub
end class

怎么才能实现在另一个脚本里调用它,比如这样
set a=new classA
str1="asdfasf"
a.sub_output(str1)
在vbs里面可以实现吗,怎么实现?请解答!
(网上没找到,寄希望于此了)

ouyangxu

怎么我哪个总是报错

ExcuteGlobal s
这句的时候，总是报s错误

17800455

在VBScript中，可以用ExecuteGlobal语句来在一个脚本文件中加载另外一个脚本的函数，例如，假设需要加载的是脚本Test.vbs:
Function Test1
Msgbox "Test1"
End Function

那么可以在脚本ExecuteGlobal.vbs中按下面的方式加载并调用Test1函数:
Set fso = CreateObject("Scripting.FilesyStemObject")
Str = fso.OpenTextFile("Test.vbs", 1).ReadAll
ExecuteGlobal Str
Set fso = Nothing

Test1


本文来自CSDN博客，转载请标明出处：http://blog.csdn.net/Testing_is_ ... /01/19/5214523.aspx

zhengpeipei

zhengpeipei

路过

rwxyxy

学习了，谢谢16楼的推荐；

haiwa957

16楼给的连接的那篇文章很不错，我顶，我狂顶

robinsgl

原帖由 mstiunicon 于 2008-4-29 01:10 发表


之前找了很久vbs文件互相调用的方法，都没找到。到后来还是使用了QTP的ExecuteFile函数才解决的。看了这个帖子后，才发现原来有这么多方式。

同感！

wugecat

up

远野志贵

这资料真是及时啊，差点就因为这个小问题挂了。

xiatian831621

studying..

RayTM

按照第16楼链接的方法：
写一个脚本,
class classA
     public sub sub_output(str)
       MsgBox(str)
     end sub
end class
保存,"E:\aaa.vbs"
再写一个脚本,
Include "E:\bbb.vbs"
set a=new classA
str1="asdfasf"
a.sub_output(str1)
Sub Include(sInstFile)
   Dim oFSO, f, s
   Set oFSO = CreateObject("Scripting.FileSystemObject")
   Set f = oFSO.OpenTextFile(sInstFile)
   s = f.ReadAll
   f.Close
   ExecuteGlobal s
End Sub
保存,"E:\bbb.vbs"
最后在QTP中运行bbb.vbs就可以了吧。

[ 本帖最后由 RayTM 于 2008-5-9 11:21 编辑 ]

没有蛀牙

要include另一个vbs，可以这样写：
' Includes a file in the global namespace of the current script.
' The file can contain any VBScript source code.
' The path of the file name must be specified absolute (or
' relative to the current directory).
Private Sub IncludeFile(ByVal FileName)
    Dim fso: set fso = CreateObject("Scripting.FileSystemObject")
    Const ForReading = 1
    Dim f: set f = fso.OpenTextFile(FileName,ForReading)
    Dim s: s = f.ReadAll()
    ExecuteGlobal s
End Sub

IncludeFile "CreateNode.vbs"

小南

WSC里用cstring，不然2003上会跳确认框

fish_yy

willian0200

看了通篇的讨论 长见识了  长知识了 谢谢大家分享

zitong

恩,学习到非常有用的东西,非常感谢!

heqingbluesky

看来除了ExecuteFile函数后，还有另外一个方式调用VBS file，学习了。

hsjzfling

相当不错，学习了~~

mstiunicon

原帖由 gy21st 于 2008-4-28 16:31 发表
这里有一篇文章写得比较全面，可以参考一下。
http://hi.baidu.com/myvbscript/b ... 6e83014b90a7be.html

之前找了很久vbs文件互相调用的方法，都没找到。到后来还是使用了QTP的ExecuteFile函数才解决的。看了这个帖子后，才发现原来有这么多方式。