Debug.Writeline

Question

Я пытаюсь написать некоторые сообщения в текстовый файл, используя Debug.WriteLine («Сообщение»).

Вот код.

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

Смотрите документацию для Flush на MSDN.

Answer 3

Вы должны закрыть и распоряжаться TextWriterTraceListener

Tr.Close() 
Tr.Dispose()