VB6 Codeschnipsel für Replacefunktion

nabend,
wer kann mir helfen? für fachleute wahrscheinlich ein lacher
aber ich suche schon seit stunden eine möglichkeit wie ich in einer 22kb
großen textdatei nach einer bestimmten ziffernfolge suche und diese (die
übrigens mehrfach im text vorkommt) durch eine andere zu ersetzen.
sinngemäss:
suche nach 1148888000 und ersetze diese druch 1149999000
wobei eben die 8888 durch die 9999 ersetz werden muss.

für eine ähnlich sache hatte ich mal einen wunderherlichen vbs code,
(http://www.vb-magazin.de/forums/forums/t/4020.aspx) doch dieser fühlt
sich mit meiner jetzigen aufgabe etwas überfordert, obwohl es anfänglich recht
gut los geht´, doch wie weiter?? Wer kennt sich aus! Derzeit ersetzt er nicht,
sondern löscht die Datei.

zB:
[Code]
'Variablen & Konstanten definieren
Dim fso, objEingabe, objAusgabe, objSuchen
Dim Pfad, EingabeDatei, AusgabeDatei, Zeile, FeldAlt, FeldNeu

Private Sub Suchen_Click()
' Suchen der notwenigen Datei im Ornder wo das Tool liegt
Pfad = "\"
EingabeDatei = "XYZ.TXT"
AusgabeDatei = "XYZ.TXT"
' Der Textinhalt der gesucht und verändert werden soll
FeldAlt = "0001118888222"
FeldNeu = "0001119999222"
'also die 8888 gegen die 9999

Const ForReading = 1, ForWriting = 2, ForAppending = 8

'Objekt erstellen
Set fso = CreateObject("Scripting.FileSystemObject")

If fso.FileExists(EingabeDatei) Then
Set objEingabe = fso.OpenTextFile(EingabeDatei, ForReading)
Else
'MsgBox "Fehler: Eingabedatei ist nicht vorhanden."
Exit Sub
End If

Set objAusgabe = fso.OpenTextFile(AusgabeDatei, ForWriting, True)

Do Until objEingabe.AtEndofStream
' Zeile lesen, Feld/Zeile/Zeichen austauschen und Zeile schreiben
Zeile = objEingabe.ReadLine
objAusgabe.WriteLine Vorspann & Replace(Zeile, FeldAlt, FeldNeu)

' Loop ist die Wiederholung des ganzen ab dem Sub, wobei sich die Wartezeit dessen nach dem Timer richtet
Loop

objEingabe.Close
objAusgabe.Close

' Eingabedatei löschen
fso.DeleteFile EingabeDatei, True
' Ausgabedatei umbenennen durch MoveFile
fso.MoveFile AusgabeDatei, EingabeDatei

Set objAusgabe = Nothing
Set objEingabe = Nothing
Set fso = Nothing

End Sub[/code]

Wer kann einem VBDAU helfen. ;-(

....
EingabeDatei = "XYZ.TXT"  
AusgabeDatei = "XYZ.TXT"  
...

'Variablen & Konstanten definieren  
Dim fso, objEingabe, objAusgabe, objSuchen
Dim Pfad, EingabeDatei, AusgabeDatei, Zeile, FeldAlt, FeldNeu

Private Sub Suchen_Click()
' Suchen der notwenigen Datei im Ornder wo das Tool liegt  
Pfad = "\"  
EingabeDatei = "XYZ.TXT"  
AusgabeDatei = "XYZ.TXT"  
' Der Textinhalt der gesucht und verändert werden soll  
FeldAlt = "0001118888222"  
FeldNeu = "0001119999222"  
'also die 8888 gegen die 9999  

Const ForReading = 1, ForWriting = 2, ForAppending = 8

'Objekt erstellen  
Set fso = CreateObject("Scripting.FileSystemObject")  

If fso.FileExists(EingabeDatei) Then
    ' gesamten Dateiinhalt einlesen  
    Gesamttext = fso.OpenTextFile(EingabeDatei, ForReading).ReadAll
Else
    'MsgBox "Fehler: Eingabedatei ist nicht vorhanden."  
Exit Sub
End If

' im gesamten Dateiinhalt Ersetzung vornehmen und neuen Dateiinhalt in Ausgabedatei schreiben  
fso.OpenTextFile(AusgabeDatei, ForWriting, True).Write Replace(Gesamttext, FeldAlt, FeldNeu) 

Set fso = Nothing

End Sub

If fso.FileExists(Pfad & EingabeDatei) Then

Pfad & EingabeDatei

Pfad & AusgabeDatei

' Eingabedatei löschen  
fso.DeleteFile Pfad & EingabeDatei, True
' Ausgabedatei umbenennen durch MoveFile  
fso.MoveFile Prad & AusgabeDatei, Pfad & EingabeDatei

Dim Gesamttext As String<code/>

2. ...und Selbstverfreilich habe ich etwas mehr Wert auf den Pfad 
gelegt und genau definiert.


     EingabeDatei = Pfad & "XYZ.TXT" 
     AusgabeDatei = Pfad & "XYZ.TMP" 
<code/>

3. ...auch wird ganz supi die neue AusgabeDatei XYZ.TMP angelegt,
und der prozess des Ändern klappt auch bestens, doch leider kann, 
warum auch immer, die EingabeDatei nicht gelöscht  werden und 
somit fällt der ganze Code auf die Nase. Im Debugen verweist er
auf die folgende Zeile verwiesen.


    ' Eingabedatei löschen 
        fso.DeleteFile Pfad & EingabeDatei, True
<code/>

--> Laufzeitfehler 52
--> Dateiname oder -nummer falsch°

Es gibt also ein Problem mir dem löschen??
Danach liegen die TXT und die TMP im Verzeichnis.

4. ... ein Test mit 
 fso.MoveFile Pfad & AusgabeDatei, Pfad & EingabeDatei 

fso.OpenTextFile(EingabeDatei, ForWriting, True).Write Replace(Gesamttext, FeldAlt, FeldNeu)

' Eingabedatei löschen  
        fso.DeleteFile Pfad & EingabeDatei, True

' oder auch mal getestet  
        Kill (Pfad & EingabeDatei)

' sowie auch getestet - Ausgabedatei umbenennen durch MoveFile  
        fso.MoveFile Pfad & AusgabeDatei, Pfad & EingabeDatei

' und natürlich  habe ich auch deinen letzten tip probiert  
       fso.OpenTextFile(EingabeDatei, ForWriting, True).Write Replace(Gesamttext, FeldAlt, FeldNeu

' Suchen der notwenigen Datei im Ordner  
        Pfad = "C:\ABC\123\"  
            EingabeDatei = Pfad & "XYZ.LDT"  
            AusgabeDatei = Pfad & "XYZ.TMP"  

' Der Textinhalt der gesucht und verändert werden soll  
            FeldAlt = "8888"  
        FeldNeu = "9999"  
    
    Const ForReading = 1, ForWriting = 2, ForAppending = 8

    'Objekt erstellen  
        Set fso = CreateObject("Scripting.FileSystemObject")  
        If fso.FileExists(EingabeDatei) Then
        
        ' gesamten Dateiinhalt einlesen  
        Gesamttext = fso.OpenTextFile(EingabeDatei, ForReading).ReadAll
Else
    'Meldung ist nicht ständig erwünscht, da Datei nicht unendwegt vorhanden  
    'MsgBox "Fehler: Eingabedatei ist nicht vorhanden."  

Exit Sub

End If

    ' im gesamten Dateiinhalt Ersetzung vornehmen und neuen Dateiinhalt in Ausgabedatei schreiben  
        fso.OpenTextFile(AusgabeDatei, ForWriting, True).Write Replace(Gesamttext, FeldAlt, FeldNeu)

    'ob noch notwenige weiß ich nicht aber schaden tuts nicht  
        fso.OpenTextFile(EingabeDatei, ForWriting, True).Write Replace(Gesamttext, FeldAlt, FeldNeu)

  'das "neue" löschen, was jetzt geht, warum auch immer, nach 1000 versuchen   
    ' Eingabedatei löschen  
            fso.DeleteFile EingabeDatei, True
            
    ' Ausgabedatei umbenennen durch MoveFile  
            fso.MoveFile AusgabeDatei, EingabeDatei


Set fso = Nothing
End Sub