Entfernen von CR/LF am Ende der Datei in VB.net

Question

Ich habe nach einer Lösung für dieses gesucht, aber alle, die ich gefunden habe, sind entweder viel mehr als ich brauche oder nicht genau das, was ich will.

Ich habe Dateien, die ich anhängen möchte. Ich muss an das Ende der letzten Zeile anhängen, aber sie haben alle einen Wagenrücklauf und so werde ich am Ende an die neue Zeile angehängt, wenn ich nur wie gewohnt anhänge.

Alles, was ich will, ist eine Subroutine, die einen Dateipfad und entfernt die CR/LF am Ende davon, nicht mehr und nicht weniger. Jede Hilfe, die mich auf eine Lösung hinweist, wäre willkommen. Ich bin überrascht, dass es dafür keine integrierte Funktion gibt.

Answer 1

Dim crString = Environment.NewLine '= vbCrLf 
    Dim crBytes = Encoding.UTF8.GetBytes(crString) 
    Dim bytesRead(crBytes.Length - 1) as Byte 
    Dim iOffset As Integer = 0 
    Dim stringRead As String 

    Using fs = File.Open("G:\test.txt", FileMode.Open, FileAccess.ReadWrite)  
     While iOffset < fs.Length  
      fs.Seek(- (crBytes.Length + iOffset), SeekOrigin.End) 
      fs.Read(bytesRead,0, crBytes.Length) 
      stringRead = Encoding.UTF8.GetString(bytesRead) 
      If stringRead = crString Then 
       fs.SetLength(fs.Length - (crBytes.Length * iOffset + 1)) 
       Exit While 
      End If 
      iOffset += 1 
     End While 
    End Using 

Ich öffne die Textdatei als FileStream und legen Sie seine Position bis zum Ende der Datei - Länge des Wagenrücklauf-String.

Ich habe dann die aktuellen Bytes gelesen, während ich den Offset verringert habe, bis ich einen Wagenrücklauf gefunden habe oder der eof erreicht wurde.

Wenn eine CR gefunden wurde, entferne ich sie und alles, was danach kommt. Wenn Sie das nicht möchten, entfernen Sie einfach die Schleife und überprüfen Sie nur die eof. Aber es könnte einige vbNullString am eof geben, deshalb verwende ich die Schleife.

Bitte beachten Sie, dass ich UTF8 Codierung in meinem Beispiel verwendet habe. Wenn Sie andere Kodierungen haben, müssen Sie sie entsprechend anpassen.

test.txt vor Lauf:

test.txt nach Code-Snippet aus:

EDIT: fs.SetLength Teil war bei letzte Zeichen falsch in Datei war keine CR.

Answer 2

Ich habe gefunden String.Replace(ControlChars.CrLf.ToCharArray(),"") funktioniert.

Wahrscheinlich bessere Möglichkeiten, es auch zu tun!