Coder Forum

Source code

Sub Sonderzeichen_ersetzen()

Dim DNameget As String
Dim DNameput As String
Dim Pos As Integer
Dim Zeichen As String * 1
Dim Zeichenneu As String * 2

DNameget = Application.GetOpenFilename
DNameput = Application.GetSaveAsFilename

Open DNameget For Random As #1 Len = 1
Open DNameput For Random As #2 Len = 2

Pos = 1

Do
    Get #1, Pos, Zeichen
    Zeichenneu = Zeichen
    If Zeichen = "ä" Then Zeichenneu = "ae"
    If Zeichen = "ö" Then Zeichenneu = "eo"
    If Zeichen = "ü" Then Zeichenneu = "ue"
    If Zeichen = "ß" Then Zeichenneu = "ss"
    If Zeichen = "Ä" Then Zeichenneu = "Ae"
    If Zeichen = "Ö" Then Zeichenneu = "Oe"
    If Zeichen = "Ü" Then Zeichenneu = "Ue"

    Put #2, Pos, Zeichenneu

Loop Until EOF(1)

Close #1
Close #2

End Sub