여분의 줄이없는 .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 파일에 쓰는 모듈입니다. 때마다 null 값으로 새 줄을 추가합니다. 정말로 나를 괴롭히지는 않을 것입니다.하지만 3 줄 밖에 안되는 것으로 가정하면 시간이 지남에 따라 5000으로 끝납니다. 파일을 쓰는 동안 그 여분의 줄을 추가하지 않는 방법을 알고 있습니까?

Answer 1

file.WriteLine(SourceToWrite) 

WriteLine() 함수는 개행 문자를 출력에 추가합니다. 이를 피하려면 다음을 사용하십시오.

file.Write(SourceToWrite)