|
Schmidt IT Gesellschaft für IT Beratung, Schulung und Entwicklung |
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.
| Tel. +49 (0)221-337778-0 | www.dozent.net |