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
Seite 1 von 1
Buchstaben Suchen Und Ersetzen VB6
Anzeige
#2
geschrieben 08. Dezember 2005 - 09:51
zu 1.
Als pragmatische Lösung könntest du dir eine kleine Funktion bauen, die über die Replace$ Funktion die Umlaute austauscht.
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
Thema verteilen:
Seite 1 von 1