Schulung, Beratung und Entwicklung

Schmidt IT

Gesellschaft für IT Beratung, Schulung und Entwicklung

NEWS

Content Management System ®CMAssist

Ersetzen mit Regulären Ausdrücken in Visual Basic

Dieses Beispiel zeigt Ihnen wie Sie eine Funktion wie Replace selber schreiben können, die aber wesentlich mehr kann als die von Microsoft Visual Basic.

Public Function Filter(Text As String, Muster As String) As String

    Dim Ergebnis As String, Laenge As Long, Pos As Long, Zeichen As String

    

    

    Laenge = Len(Text)

    For Pos = 1 To Laenge

        Zeichen = Mid(Text, Pos, 1)

        If Zeichen Like Muster Then

            Ergebnis = Ergebnis & Zeichen

        End If

    Next

    Filter = Ergebnis

End Function

Der Aufruf dieser Funktion erfolgt dann mit: 

x = Filter("Ich werde gefiltert", "[a-z|A-Z]")

Das Beispiel filtert in dem Text alle Zeichen herraus die keine Buchstaben sind.