Zeilenumbrüche in Text-Dateien einfügen ?

Hallo,

ich bin leider mit meine Batch- und VB-Kenntnissen an mein bescheidenes Limit gestoßen.

Ich kann zwar per Batch oder VBA nach Zeichenketten in einer Datei suchen und diese durch andere Zeichenketten ersetzen, hab aber leider keine Idee wie man diese durch einen Zeilenumbruch ersetzen könnte.

Bsp.:

aus:

TEXT1</>TEXT2</>TEXT3

soll werden:

TEXT1
TEXT2
TEXT3

Dabei ist sicher gestellt, dass die Zeichenfolge "</>" immer identisch ist und nicht innerhalb eines der Texte auftaucht. Eine einfache Funktion: Suche alle "</>" und ersetze sie durch einen Zeilenumbruch würde also völlig ausreichen.

Hat irgend wer eine schnelle schlaue Idee ?

Vielen Dank schonmal im Vorraus.
Nuit

set fso = CreateObject("Scripting.FileSystemObject")  

strSearch = "</>"  

strInputFileName = "eingabe.txt"  
strOutputFileName = "ausgabe.txt"  

set fInput = fso.OpenTextFile(strInputFileName, 1)
set fOutput = fso.CreateTextFile(strOutputFileName, True, False)

Do While fInput.AtEndOfStream <> True
   strInputLine = fInput.ReadLine
   fOutput.WriteLine Replace(strInputLine, strSearch, vbCrLf)
Loop

fOutput.Close
fInput.Close

set fInput = nothing
set fOutput = nothing
set fso = nothing

MeineDatei = "C:\MeineDatei.txt"  
Set fso=CreateObject("Scripting.FileSystemObject")  
txt=split(fso.OpenTextFile(MeineDatei).ReadAll,"</>"):fso.CreateTextFile (MeineDatei & ".neu.txt").Write (Join(txt,vbcrlf))  

AlteDatei = "C:\Test\AlteDatei.txt"  
NeueDatei = "C:\Test\NeueDatei.txt"  

Set Fso = CreateObject("Scripting.FileSystemObject")  

Fso.CreateTextFile(NeueDatei).Write Replace(Fso.OpenTextFile(AlteDatei).ReadAll, "</>", vbCrLf)