写一个.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)