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()