VBScript：如何通过调用另一个脚本文件来更改变量值？

Question

这就是我这些天在文件之间传递论点的方式。

1.VBS：

Dim MyVar

'1) Assigning some value to MyVar.
MyVar = "foo"

'2) Passing MyVar to 2.vbs.
CreateObject("WScript.Shell").Run _
Chr(34) & "C:" & "\2.vbs" & _
Chr(34) & " " & Chr(34) & MyVar & Chr(34), _
1, True

'4) End point.
MsgBox MyVar

2.VBS：

    If _
    WScript.Arguments.Count > 0 _
    Then
    Call MySub( _
    WScript.Arguments(0))
    End If

Sub MySub(MyVar)

'3) Doing some work with MyVar.
MyVar = "bar"

End Sub

因此，如果所有代码都在1个文件中，并且
如果我必须使用调用mySub而不是createObject（“ wscript.shell”）。运行
- 我成功地将myvar从“ foo”转换为“ bar” ，
并在msgbox上获得了后者。

但是，有时我真的想在另一个文件中使用myvar，
并能够将其重新（已经运行第一个文件）带回更改。

我只是不知道该怎么做。

Answer 1

选项1：
将文件保持原样，并在您的子的末尾添加回声：

2.VBS：

'(...)
'3) Doing some work with MyVar.
MyVar = "bar"
Wscript.Echo(MyVar)
'(...)

1.VBS

通过更改“ .run ”的方法读取输出。 “

'(...)
'2) Passing MyVar to 2.vbs.
set oShell = CreateObject("Wscript.Shell")
set Exe = oShell.Exec("cmd /c 2.vbs """&MyVar&""" ")
MyVar = Exe.StdOut.ReadAll
'(...)
'4) End point.
MsgBox MyVar

选项2：
使用“ 2.vbs ”文件作为功能库，然后将 sub 更改为函数：

1.VBS

'Put the import statements at the top of 1.vbs code for easier readability.
Import "2.vbs"
'(...)
MyVar = MyFunction(MyVar)

2.VBS

Function MyFunction(MyVar)
'3) Doing some work with MyVar.
MyFunction = "bar"
end Function