Textdatei ändern
28.04.2004 16:46:48
Christian
ich habe ein kleines Problem mit einer Text-Datei. Die ä, ü , ö usw sind durch andere Sybole ersetzt. Dies möchte ich gerne ändern. Dazu habe ich mir ein kleines Programm geschrieben.
Leider bin ich schon etwas aus der Übung, in Sachen Programmieren. Ich bekomme es einfach nicht auf die Reihe.
Vielleicht ist es ja nur ein ganz simpler Fehler? Hoffe jemand kann mir weiterhelfen.
Sub Ersetzen()
On Error GoTo ERROR_START
Dim line As String
Dim dateiname As String
Dim fs
Dim file 'Kompletter Dateipfad + Name
ChDir "\"
dateiname = Application.GetOpenFilename("d83-Dateien (*.d83),")
Set fs = CreateObject("Scripting.FileSystemObject") 'öffnet die Ausgewählte
Set file = fs.OpenTextFile(dateiname, 1)
While (Not (file.atEndOfStream))
line = file.readLine
'ersetz Zeichen
line = Replace(line, "", "ä")
line = Replace(line, "", "ö")
line = Replace(line, "", "ü")
line = Replace(line, "á", "ß")
line = Replace(line, "", "Ä")
line = Replace(line, "", "Ö")
line = Replace(line, "", "Ü")
Wend
file.Close savechanges:=True
Exit Sub
ERROR_START:
MsgBox Err.Description & " " & Err.Number & " " & Err.Source
End Sub