0

控制台应用程序：

    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 应用程序会启动但不会关闭。

4

1 回答 1

0

您会立即尝试从文件中读取，而不是等到控制台应用程序完成对文件的写入。如果您可以控制控制台应用程序，请删除最后一个ReadLine，以便在完成后自动关闭。然后，您可以等待该过程结束，然后再从文件中读取。但是，如果您无法对控制台应用程序进行修改，您将不得不做一些更“骇人听闻”的事情，例如观察文件是否更改，或者等待指定的时间段并希望您的等待时间足够长。

于 2012-06-29T13:15:44.287 回答