我有一个文件,其中包含以下变量。
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
文件中。
我有一个文件,其中包含以下变量。
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
文件中。
Dim gsLibDir : gsLibDir = "M:\lib\kurs0705\"
Dim goFS : Set goFS = CreateObject( "Scripting.FileSystemObject" )
ExecuteGlobal goFS.OpenTextFile( gsLibDir & "BaseLib.vbs" ).ReadAll()
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)
<!--#include file="../include/FileWithVaraibles.htm"-->
Set fso = CreateObject("Scripting.FileSystemObject")
,这会提示用户使用ActiveX组件,而我不想要这个.. 有什么建议吗? - Prabhu Vignesh Rajagopal