[DatenMetzgerX]

Hallo

1. Würde gerne aus einer TextBox alle Wörter untersuchen ob sie ö,ä,ü / Ö,Ä,Ü enthalten. Wenn ja dann durch z.B oe, ae, ue... ersetzen. Weiss jemand wie sowas gehen könnte

2. Würde gerne eine "Preview" eines Bildes erstellen. Man kann die URL des Bildes eingeben. Dann soll er das Bild abrufen und anzeigen


mfg
DM

[constructor]

zu 1.

Als pragmatische Lösung könntest du dir eine kleine Funktion bauen, die über die Replace$ Funktion die Umlaute austauscht.

Private Sub cmdCommand1_Click()
        
        txtText1.Text = ChangeUmlaut(txtText1.Text)

End Sub

Private Function ChangeUmlaut(p_sText As String)

        p_sText = Replace$(p_sText, "ö", "oe")
        p_sText = Replace$(p_sText, "Ö", "Oe")
        p_sText = Replace$(p_sText, "ä", "ae")
        p_sText = Replace$(p_sText, "Ä", "Ae")
        p_sText = Replace$(p_sText, "ü", "ue")
        p_sText = Replace$(p_sText, "Ü", "Ue")
        
        ChangeUmlaut = p_sText

End Function

[DatenMetzgerX]

Danke vielmals