余分な行なしで.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)