快速业务通道

vbscript include的办法实现代码第1/2页

作者 佚名 来源 ASP编程 浏览 发布时间 2013-07-09
ib.vbs",就可以使用mylib.vbs中声明的全局变量和函数了!注意这里的函数ExecuteGlobal有一个类似的函数Execute,这里如果使用Execute的话,就达不到我们想要的效果。因为通过Execute暴露的名字,其作用范围局限于Execute所处的级别,在这里,也就是在函数Include内部。这几乎肯定不是你想要的结果。

还有别的方法吗?是的。VBScript内在的支持COM方式。如果可以将你的脚本编译成一个COM组件,就当然可以在别的脚本中调用组件中的方法了。恰好,MS提供了工具Script Component Wizard来帮助我们将一些VBScript文件打包成一个组件,并提供注册方法。

现在我们来学一些新的方法。我的意思是,这些方法是仅为WSH支持的,你可能以前并没有遇见过。WSH支持一种叫*.wsf的文件,这个文件本身是XML格式的,通过该文件可以将你的VBScript脚本,以及其它类型的脚本,比如batch,perl等等组装在一起,交给WSH来执行。这方面文档还算详细,这里就不多介绍了。

这一节里,介绍了由单个脚本文件组装成一个较大的工程的四种方法,通过运用这些方法,你可以建立自己的常用函数库,在各个脚本之间共享变量和传递数据,等等。
在网上找到一段实现的代码,在这次的项目中起了大作用了。用vbs实现很多复杂的业务时,需要把一些公共的函数,class等写在一个公共的可复用的vbs文件里,像个库一样,其他的脚本都包含这个库的脚本。
复制代码 代码如下:

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

使用的时候,这个把这个sub放在代码里,然后用 Include "comm.vbs" 这样来包含以下就可以了

凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!

分享到: 更多

Copyright ©1999-2011 厦门凌众科技有限公司 厦门优通互联科技开发有限公司 All rights reserved

地址(ADD):厦门软件园二期望海路63号701E(东南融通旁) 邮编(ZIP):361008

电话:0592-5908028 传真:0592-5908039 咨询信箱:web@lingzhong.cn 咨询OICQ:173723134

《中华人民共和国增值电信业务经营许可证》闽B2-20100024  ICP备案:闽ICP备05037997号