txt-Datei öffnen und ein Zeichen suchen und ersetzen

11/11/2009 - 13:04 von Uwe Schneider | Report spam
Hallo zusammen,

ich suche nach einer Möglichkeit aus Access 2003 (auf Win2000 bzw Win
Vista) via Vba auf eine txt-Datei
zuzugreifen und in der Datei ein Zeichen ( | ) durch ein anderes ( ; )
zu ersetzen.
Habt Ihre eine Lösung?

Gruss
Uwe Schneider
 

Lesen sie die antworten

#1 Jörg Ackermann
11/11/2009 - 15:33 | Warnen spam
Hallo Uwe,

Uwe Schneider meinte:


ich suche nach einer Möglichkeit aus Access 2003 (auf Win2000 bzw Win
Vista) via Vba auf eine txt-Datei
zuzugreifen und in der Datei ein Zeichen ( | ) durch ein anderes ( ; )
zu ersetzen.
Habt Ihre eine Lösung?



Vielleicht so:
'--
Public Function txt_Replace(ByVal sFilename As String, _
ByVal sFind As String, _
ByVal sReplace As String) _
As Boolean

Dim f As Integer
Dim sInhalt As String

If Dir$(sFilename, vbNormal) <> "" Then
f = FreeFile
Open sFilename For Binary As #f
sInhalt = Space$(LOF(f))
Get #f, , sInhalt
sInhalt = Replace(sInhalt, sFind, sReplace)
Put #f, 1, sInhalt
Close #f

End If

txt_Replace = True

End Function
'--

Test im Direktfenster:
? txt_Replace("f:\test.txt","|",";")

Gruß

Ähnliche fragen