title image


Smiley Wie kann ich den ersetzten Text nun in die Datei speichern?
Hallo



Ich bin schon den ganzen Tag daran und kann schon lesen und ersetzen aber wie kann ich nun den ersetzten Text in die vorher geöffnetet Datei speichern?



Hier mal mein Code-Beispiel:



**********************************

Function dateilesen()

Dim strlinebuffer As String

Dim dateisuche

Dim prognum As String

Dim i As Integer

Dim gefunden As String

Set dateisuche = Application.FileSearch

Dim prg As String



dateisuche.Lookin = Me.txtPfad.Value 'hier den Pfad eingeben

dateisuche.filename = "*.*"

For i = 1 To dateisuche.Execute 'schleife über dateien

gefunden = dateisuche.foundfiles(i)

Open gefunden For Input Access Read As #1

Do While Not EOF(1) 'Schleife in Datei

Line Input #1, strlinebuffer 'MsgBox strLineBuffer

If strlinebuffer Like "*051014*" Then 'Suchkriterium

strlinebuffer = Replace(strlinebuffer, "051014", "070330")

'MsgBox "Hat Ihn !"

XY



End If

Loop

Close #1

'MsgBox "Nächste Datei"

Next i

MsgBox "fertig"

End Function



=> Bei XY müsste ich den vorher ersetzten Text in die vorher ausgelesene Zeile speichern.....



Hm..Kann mir dabei kurz jemand einen Tipp geben?



Danke schon mal



Gruss



Werdy

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: