Seit wir das Passwort täglich ändern, auf ein Blatt schreiben und dann in einen Laufhaufen werfen, verbringen die Kinder viel mehr Zeit in der Natur als früher.

Für einen SAP-Upload soll eine Textdatei erzeugt werden. Mehrere Zeilen mit unterschiedlichen Informationen sollen zusammengebaut werden und in eine Textdatei geschrieben werden. Jede Zeile wird mit einem Zeilenumbruch beendet. Ich verwende vbCrLf.

Da nun die letzte Zeile auch einen Zeilenumbruch hat, überlege ich ihn zu löschen. Ich überprüfe das letzte Zeichen – falls es nicht um vbCrLf handelt, wird es gelöscht. Jedoch:

    ' -- entferne den letzten Zeilenumbruch
    If Right(strExportString, 1) = vbCrLf Then
        strExportString = Left(strExportString, Len(strExportString) - 1)
    End If

funktioniert nicht! Klar doch: vbCrLf sind ZWEI Zeichen: Wagenrücklauf + Zeilenschaltung. Klar: ich muss überprüfen, ob die letzten BEIDEN Zeichen vbCrLf entsprechen. Und dann löschen.

Folgender Befehl funktioniert dann:

    ' -- entferne den letzten Zeilenumbruch
    If Right(strExportString, 2) = vbCrLf Then
        strExportString = Left(strExportString, Len(strExportString) - 2)
    End If