VB 5/6-Tipp 0396: Umlaute in einer TextBox direkt ersetzen
von Darko Konrad
Beschreibung
Dieser Tipp unterbindet die direkte Eingabe von Umlauten wie ä,ö,ü etc., was nicht heißt, dass sie verschluckt werden, es findet eine autmatische Umwandlung zu ae, ue, oe statt.
Schwierigkeitsgrad: | Verwendete API-Aufrufe: keine | Download: |
'Dieser Quellcode stammt von http://www.activevb.de 'und kann frei verwendet werden. Für eventuelle Schäden 'wird nicht gehaftet. 'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum. 'Ansonsten viel Spaß und Erfolg mit diesem Source! '------------- Anfang Projektdatei Projekt1.vbp ------------- '--------- Anfang Formular "Form1" alias Form1.frm --------- ' Steuerelement: Textfeld "Text1" 'Autor: Darko Konrad 'E-Mail: Darko.Konrad@partner.commerzbank.com Option Explicit 'String mit Umlauten, gefolgt von Ersetzungen definieren Private Const strUmlaute = "ÄAeÖOeÜUeßssäaeöoeüue" Private Sub Form_Load() Form1.Caption = "Umlaute bei der Eingabe ersetzen" Text1.Text = "Text eingeben...." Text1.SelStart = 0 Text1.SelLength = Len(Text1.Text) End Sub Private Sub Text1_Change() Dim i As Integer 'strUmlaute in dreier Schritten durchlaufen '1. Zeichen= Umlaut '2.-3. Zeichen = Ersetzung For i = 1 To Len(strUmlaute) Step 3 Text1.Text = SwapStr(Text1.Text, Mid(strUmlaute, i, 1), _ Mid(strUmlaute, i + 1, 2)) Next i Text1.SelStart = Len(Text1.Text) End Sub 'Replace Funktion, unter VB6 kann diese durch den direkten Befehl 'erstetzt werden Private Function SwapStr(ByVal Txt As String, Search As String, _ Swap As String) As String Dim x As Long, Pos As Long x = 1 Do While x <= Len(Txt) Pos = InStr(x, Txt, Search) If Pos = 0 Then Exit Do Else Txt = Left$(Txt, Pos - 1) & Swap & Mid$(Txt, Pos + _ Len(Search), Len(Txt)) x = Pos + Len(Swap) End If Loop SwapStr = Txt End Function '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Projekt1.vbp --------------
Tipp-Kompatibilität:
Windows/VB-Version | Win32s | Win95 | Win98 | WinME | WinNT4 | Win2000 | WinXP |
VB4 | |||||||
VB5 | |||||||
VB6 |
Ihre Meinung
Falls Sie Fragen zu diesem Artikel haben oder Ihre Erfahrung mit anderen Nutzern austauschen möchten, dann teilen Sie uns diese bitte in einem der unten vorhandenen Themen oder über einen neuen Beitrag mit. Hierzu können sie einfach einen Beitrag in einem zum Thema passenden Forum anlegen, welcher automatisch mit dieser Seite verknüpft wird.
Archivierte Nutzerkommentare
Klicken Sie diesen Text an, wenn Sie die 1 archivierten Kommentare ansehen möchten.
Diese stammen noch von der Zeit, als es noch keine direkte Forenunterstützung für Fragen und Kommentare zu einzelnen Artikeln gab.
Aus Gründen der Vollständigkeit können Sie sich die ausgeblendeten Kommentare zu diesem Artikel aber gerne weiterhin ansehen.
Kommentar von Olli Andres am 13.07.2001 um 14:37
Den Tip konnte ich gut gebrauen, danke !
Eines würde allerdings noch hinzufügen.
Und zwar habe vor dem "Replacen"
die Cursorposition gemerkt per :
Pos = Text1.SelStart
und bin hinterher nach dem "Replacen" wieder per
Text1.SelStart = Pos + 1
wieder dorthin zurückgegangen.
So kann man auch bsp. ein Ä in der Mitte eines Wortes einfügen und der Cursor hüpft nicht zum Ende...
Auf dann
OLLI