batch-file - 如何使用 QTP 将参数传递给批处理文件？

Question

我有一个批处理脚本，它调用 vbs 文件在网页上执行一些操作。从这个批处理文件中，我将 4 个参数（字符串）传递给 vbs 文件。

现在我希望将其与我的 QTP 框架集成。

所以我需要从框架中调用这个批处理文件，我会将这些参数从 QTP 传递给批处理文件，该批处理文件将进一步传递给 vbs 代码。

这是我正在尝试的：

QTP代码：

Dim BatchRun
Set BatchRun = CreateObject ("WSCript.shell")
lob=DataTable("LOB",IntSheetNo-1)
mailto=DataTable("EmailTo",IntSheetNo-1) 
mailcc=DataTable("EmailCC",IntSheetNo-1)
BatchRun.Run "C:\invoke.bat " & lob & " " &  mailto & " " &     mailcc
Set BatchRun = Nothing

批号：

C:
cscript kamal.vbs %1 %2 %3

vbs代码：

Set args = Wscript.Arguments ' to accept command line arguments
xprod = args(0)
mailto=args(1)
mailcc=args(2)

我通过 vbs 将这些用于一些操作。

我确实在 google 和 stackoverflow 上搜索过 spome 示例，但到目前为止没有一个对我有用。

Answer 1

不确定 QTP 是什么，假设 DataTable(....) 返回一个字符串，您的问题可能是数据中的空格。调用批处理文件时，参数分隔由空格决定。如果 lob、mailto 或 mailcc 中有任何空格，则无法正确解析参数。您需要将每个参数包装在引号中（并确保参数中的内部引号被转义以不干扰）

所以，QTP

lob= Chr(34) + Replace(DataTable("LOB",IntSheetNo-1), Chr(34), Chr(34)+Chr(34)) + Chr(34)
mailto=Chr(34) + Replace(DataTable("EmailTo",IntSheetNo-1), Chr(34), Chr(34)+Chr(34)) + Chr(34) 
mailcc=Chr(34) + Replace(DataTable("EmailCC",IntSheetNo-1), Chr(34), Chr(34)+Chr(34)) + Chr(34)

Dim BatchRun
Set BatchRun = CreateObject ("WSCript.shell")
BatchRun.Run "C:\invoke.bat " & lob & " " &  mailto & " " & mailcc
Set BatchRun = Nothing

批号

C:
cscript kamal.vbs "%~1" "%~2" "%~3"

和VBS代码没有变化