读取标准输出并检查多个进程 VB.NET 的状态

Question

我运行多个命令行进程，以循环方式启动它们。它可以工作并异步启动所有这些。

Public Sub DoWork
Dim i As Integer = 0
        While (Args_reader.Peek() > -1)
            i = i + 1
            MyArg = Args_reader.ReadLine
            Dim MyArg As String
            Dim MyProcess(i) As Process
            MyProcess(i) = New Process
            With MyProcess(i).StartInfo
                .FileName = MyFile
                .Arguments = MyArg
                .UseShellExecute = False
                .CreateNoWindow = True
                .RedirectStandardInput = True
                .RedirectStandardOutput = True
                .RedirectStandardError = True
                .WindowStyle = ProcessWindowStyle.Hidden
            End With
            MyProcess(i).Start()
        End While
        Args_reader.Close()
        i = 0
End Sub

我可以读取所有它们的 stdOutput 并检查它们的状态吗？ 我需要等到他们完成才能继续执行程序。

Answer 1

我建议您在循环内将async 事件分配给every process，以便在该进程有任何输出时触发它们。标准输出或错误输出：

 Dim Proceso As New Process

 'Add the event handlers:

 AddHandler Proceso.OutputDataReceived, AddressOf CallbackProcesoAsync
 AddHandler Proceso.ErrorDataReceived, AddressOf ErrorDataReceivedAsync

 Dim startInfo As New ProcessStartInfo
 startInfo.FileName = execFile
 startInfo.RedirectStandardOutput = True
 startInfo.RedirectStandardError = True
 startInfo.CreateNoWindow = False
 Proceso.StartInfo = startInfo
 Proceso.Start()

异步事件应该是这样的：

 Private Sub CallbackProcesoAsync(sender As Object, args As System.Diagnostics.DataReceivedEventArgs)

    If Not args.Data Is Nothing AndAlso Not String.IsNullOrEmpty(args.Data) Then

       'args.Data have the output

    End If

End Sub

Private Sub ErrorDataReceivedAsync(sender As Object, args As System.Diagnostics.DataReceivedEventArgs)

   If Not args.Data Is Nothing AndAlso Not String.IsNullOrEmpty(args.Data) Then

       'args.Data have the output

   End If


End Sub