的Debug.WriteLine

Question

我正在尝试使用Debug.WriteLine（“Message”）将一些消息写入文本文件。

这是代码。

Dim Tr As TextWriterTraceListener
Tr = New TextWriterTraceListener(System.IO.File.CreateText("Output1.txt"))
'Tr = New TextWriterTraceListener(System.Console.Out)
Debug.Listeners.Add(Tr)
Debug.WriteLine("Test Message")

我看到正在创建output1.txt文件，但文件中没有写入任何内容。

如何解决此问题？

Answer 1

TextWriterTraceListener缓冲数据，只在缓冲区已满，关闭/处理或调用Flush()时才写入数据：

Dim Tr As TextWriterTraceListener
Tr = New TextWriterTraceListener(System.IO.File.CreateText("Output1.txt"))
'Tr = New TextWriterTraceListener(System.Console.Out)
Debug.Listeners.Add(Tr)
Debug.WriteLine("Test Message")
Tr.Flush()

Answer 2

您需要刷新TextWriterTraceListener的缓冲区。

写入跟踪侦听器后，您需要：

Tr.Flush();

请参阅MSDN上的Flush文档。

Answer 3

您必须关闭并处置TextWriterTraceListener

Tr.Close()
Tr.Dispose()