Question

控制台应用程序：

    Dim myno As Integer = 1010
    Console.WriteLine(Convert.ToString(myno))
    Dim sw As New StreamWriter("filename.txt", True)
    sw.Write(Convert.ToString(myno))
    sw.Flush()
    sw.Close()
    Console.ReadLine()

Windows应用程序：

    Dim mm As New System.Diagnostics.Process
    Dim info As New System.Diagnostics.ProcessStartInfo(Application.StartupPath & "\ConsoleApplication1.exe")
    mm.StartInfo = info
    mm.Start()
    Dim f As New FileInfo(Application.StartupPath & "\filename.txt")
    Dim s As StreamReader = f.OpenText
    TextBox1.Text = s.ReadToEnd
    If Not String.IsNullOrEmpty(TextBox1.Text) Then
        mm.Kill()
    End If

然而，控制台应用程序无法在文本文件中写入，Windows应用程序启动但不会关闭。

Answer 1

您正在尝试从文件中读取而不是等到控制台应用程序完成写入文件。如果您可以控制控制台应用程序，请删除最后一个ReadLine，以便它在完成后自动关闭。然后，您可以在读取文件之前等待进程结束。但是，如果您无法对控制台应用程序进行修改，那么您将不得不做一些更“hacky”的事情，例如观察要更改的文件，或等待指定的时间段并希望您的等待时间足够长了。

如何启动和关闭控制台应用程序？

1 个答案: