Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0396: Umlaute in einer TextBox direkt ersetzen

VB 5/6-Tipp 0396: Umlaute in einer TextBox direkt ersetzen

 von Darko Konrad

Schwierigkeitsgrad:

Verwendete API-Aufrufe: keine

Download: Download des Beispielprojektes [2,26 KB]

'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 --------------

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.