Question

我有一个包含以下变量的文件。

Dim apple(10)
apple(0)= "banana"
apple(1)= "2 banana"
apple(2)= "3 banana"

这些变量位于script/test/test.vbs

现在我有另一个文件，其中包含以下内容

MSGBOX apple(0)
MSGBOX apple(1)

位于script/main.vbs

如何使这些成为可能？

Answer 1

对于.HTA / .HTML / .WSF，不要尝试重新发明轮子，而是使用script标签的src属性。

对于普通.VBS，使用ExecuteGlobal作为演示here：

Dim gsLibDir : gsLibDir = "M:\lib\kurs0705\"
Dim goFS     : Set goFS = CreateObject( "Scripting.FileSystemObject" )
ExecuteGlobal goFS.OpenTextFile( gsLibDir & "BaseLib.vbs" ).ReadAll()

在任何一种情况下都要将代码重新用于包含的文件中;不要把工作浪费在花哨的Include Subs / Functions上，只提供一个单行。

Answer 2

是的，这是可能的。需要进行一些额外的工作，包括外部文件。我将以下工作基于article。

test.vbs文件的内容

Sub CustomInclude(file)

  Dim fso, f

  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile(file & ".vbs", 1)

  str = f.ReadAll

  f.Close

  ExecuteGlobal str

End Sub

'Set variables here
Dim apple(10)
apple(0)= "banana"
apple(1)= "2 banana"
apple(2)= "3 banana"

' Now call subroutine to include my external file.
CustomInclude "../main"  'Use of relative folder structure

main.vbs的内容

MSGBOX apple(0)
MSGBOX apple(1)
MSGBOX apple(2)

Answer 3

如果这是一个网页，则可以使用html include使其工作..（通常将其粘贴在所需内容的位置。（head标签或body标签等）

<!--#include file="../include/FileWithVaraibles.htm"-->

using #include

如何从另一个vbscript（另一个.vbs文件）中获取变量

3 个答案: