Я асинхронно читаю вывод из пакетного файла после его запуска с некоторыми параметрами. Если пакетный файл ожидает ввода - текст запроса ввода не перенаправляется - если процесс не завершен (что, очевидно, слишком поздно для ответа).
При выполнении в стандартном окне cmd запрос будет таким:
OpenEdge Release 10.2B07 as of Fri Sep 7 02:16:54 EDT 2012
testdb already exists.
Do you want to over write it? [y/n]:
Вывод при использовании перенаправления будет зависать без запуска события outputdatareceived, поэтому я не могу обработать входной запрос и ответить соответствующим образом. Консоль не читает последнюю строку (запрос на ввод):
OpenEdge Release 10.2B07 as of Fri Sep 7 02:16:54 EDT 2012
testdb already exists.
Код:
Private Sub someMethod()
Dim process As New Process()
process.StartInfo = New ProcessStartInfo("C:\OEV10\bin\_dbutil")
process.StartInfo.WorkingDirectory = "C:\Temp\"
process.StartInfo.Arguments = "prorest testdb C:\Temp\testdb.bck -verbose"
process.EnableRaisingEvents = True
With process.StartInfo
.UseShellExecute = False
.RedirectStandardError = True
.RedirectStandardOutput = True
.RedirectStandardInput = True
.CreateNoWindow = False
.StandardOutputEncoding = System.Text.Encoding.GetEncoding(Globalization.CultureInfo.CurrentUICulture.TextInfo.OEMCodePage)
.StandardErrorEncoding = System.Text.Encoding.GetEncoding(Globalization.CultureInfo.CurrentUICulture.TextInfo.OEMCodePage)
End With
AddHandler process.Exited, AddressOf ProcessExited
AddHandler process.OutputDataReceived, AddressOf Async_Data_Received2
AddHandler process.ErrorDataReceived, AddressOf Async_Data_Received2
process.Start()
process.BeginOutputReadLine()
process.BeginErrorReadLine()
End Sub
Private Sub Async_Data_Received2(ByVal sender As Object, ByVal e As DataReceivedEventArgs)
Console.WriteLine(e.Data)
End Sub
OutputDataReceived
срабатывает при получении полной строки. Но, по-видимому, ваш командный файл не ставит символ новой строки в конце строкиDo you want to over write it? [y/n]:
. - person user4003407   schedule 22.11.2015