Python - 使用 vbscript 获取变量

Question

我正在编写一个 python 代码，它调用一个旨在执行一些计算的 VB 脚本。 这些计算必须在 VB 脚本中执行，并且无法将它们迁移到 Python 脚本中。

我在 VB 脚本中发送变量，如下所示：

WScript.Echo("TEST")

并尝试在 Python 代码中获取它们：

p = subprocess.Popen(['cscript.exe', VB_path, nLM, nSD, nSO, nTWS, nROH, 
                      nMOH1, nMOH2, nRad1, nRad3, nLstk, nT_Shaft_EN, S_path, 
                      S_file, S_version, nkE_ref, nTC_ref, nNImax, nCost_PM, 
                      nCost_Steel, nCost_Wire, '//nologo'], stdout=subprocess.PIPE, shell=True)
out, err = p.communicate()
out

我得到的“out”结果如下：

b'Test\r\n'

我的问题是：如何使用普通变量发送多个输出？ 另外，作为一个额外的问题，是否有任何明显的方法可以以这种方式将数组从 vb 发送到 python 脚本？

Answer 1

由于文本（通过 stdout 流）是您的通信方式，发送多个值（数据结构）的显而易见的方法是以通信双方都同意的众所周知的格式将其序列化。

执行此操作的常用方法是 JSON，但使用普通 VBScript 生成 JSON 相对困难。 其他明显的候选者可能是 CSV、XML 或 INI，但最终：您可以想到的任何格式。

选择众所周知的格式的好处是其他人已经为它们编写了解析器。 您提出的格式要求您自己编写解析器。

让我们假设 INI 格式能够表示您的数据：

[section]
key_a = value_a
key_b = value_b

这种输出在 VBScript 中很容易生成，Python 有configparser来读取它。

所以我们可以在 VBScript 中编写几个助手：

Sub OutputSection(name)
    WScript.StdOut.WriteLine(vbNewLine & "[" & name & "]")
End Sub

Sub OutputVariable(name, value)
    Dim i
    If IsArray(value) Then
        If UBound(value) = -1 Then
            WScript.StdOut.WriteLine(name & ". = ")    ' to signify empty array
        Else
            For i = 0 To UBound(value) - 1
                OutputVariable(name & "." & i, value(i))
            Next
        End If
    Else
        WScript.StdOut.WriteLine(name & " = " & value)
    End IF
End Sub

在您的脚本中调用这些将生成整齐组织的输出

[main]
key = value

[some_array]
array.0 = value0
array.1 = value1
array.2 = value2

在 Python 中，您可以添加一个后处理步骤，将单个数组项转换为列表。

或者，您在 VBScript 中将Join()用于数组，这将使Sub OutputVariable()和 Python 端的解析更简单，但如果列表分隔符可能出现在数组值中，您将面临损坏数据的风险。 这是一种权衡。