写一个.txt文件，没有额外的行？

Question

Public Sub WriteTextFile(ByVal SourceToWrite As String, ByVal LocationToWrite As String)
    Dim file As System.IO.StreamWriter
    IO.File.Delete(LocationToWrite)
    file = My.Computer.FileSystem.OpenTextFileWriter(LocationToWrite, True)
    file.WriteLine(SourceToWrite)
    file.Close()
End Sub

这是我写入.txt文件的模块。每次添加一个具有空值的新行。不会真的打扰我，但它增加但是然后只有3个线的东西随着时间的推移结束5000，任何人都知道如何在写文件时不添加额外的行？

Answer 1

file.WriteLine(SourceToWrite)

WriteLine（）函数在其输出中附加换行符。为避免这种情况，请使用：

file.Write(SourceToWrite)