Question

我有一个方案来执行可执行jar文件，然后需要从命令提示符中捕获响应。

Option Explicit
    Dim StrCmd,Path,processFile,str
    Path = "D:\modulefolder" 
    processFile = "java -jar xxx.jar"
    StrCmd = "CD /D "& Path & " & " & processFile &""
    Call Run(StrCmd,1,False)
    Function Run(StrCmd,Console,bWaitOnReturn)
        Dim ws,MyCmd,Result, str1

        Set ws = CreateObject("wscript.Shell")
    'A value of 0 to hide the MS-DOS console
        If Console = 0 Then
            MyCmd = "CMD /K " & StrCmd & ""
            Result = ws.run(MyCmd,Console,bWaitOnReturn)
    *some code using sendkeys to type in command prompt****

有人可以告诉我如何在结尾处从命令提示符中提取响应代码..

e.g。我得到了响应代码201 for pass＆amp;故障情景为400或405。

Answer 1

将stdout和stderr的输出重定向到文本文件并阅读：

java -jar myApp.jar >file.txt 2>&1

这会将jar文件的输出重定向到file.txt，您可以使用FileSystemObject

阅读

Dim Fso : Set Fso = CreateObject("Scripting.FileSystemObject")
Dim File : Set File = Fso.OpenTextFile("Path/to/file.txt", 1)
Dim Text : Text = File.ReadAll

Text现在包含文件内容作为变量供您根据需要使用。

vb脚本提取可执行jar文件的响应

1 个答案: