|
In der Windows-/DOS-Welt wird üblicherweise zur Trennung von Zeilen in Textdateien die Zeichenkombination Ascii 13 + Ascii 10 verwendet. In Visual Basic umgesetzt sind das die Zeichen Chr$(13) & Chr$(10), die als Konstante vbCrLf zur Verfügung stehen. In anderen Rechnerwelten, etwa unter Unix/Linux ist als Zeilentrenner lediglich Chr$(10) üblich (VB-Konstante vbLf).
Wenn Sie sicher sein können, dass eine gegebene Datei ausschließlich solche "Unix"-Zeilentrenner enthält, ist die Konvertierung ins Windows-/DOS-Format einfach:
Inhalt = Replace(Inhalt, vbLf, vbCrLf)
Falls Sie nicht sicher sind, in welchem Format eine Datei vorliegt, können Sie die Konvertierung nicht so einfach vornehmen. Denn in der Datei vorhandene vbCrLf-Zeilentrenner würden gewissermaßen zu einem vbCrCrLf-Trenner - das in einer vbCrLf-Kombination vorhandene vbLf würde ja auch ersetzt. Diese überzähligen, doppelten vbCr-Folgen müssen Sie nun anschließend wieder durch einfache vbCr-Zeichen ersetzen:
Inhalt = Replace(Inhalt, vbLf, vbCrLf)
Inhalt = Replace(Inhalt, vbCr & vbCr, vbCr)
|