Hi Claudius,
will mich ja nicht einmischen ;-)
> > Und? Wie findet man jetzt gewisse Zeichen in einem String? ;-)
Eine zugegebenermassen Komplexe GL�sung w�re evtl.:
Dim strText
Dim i
Dim j
Dim Found
Dim toSearch
strText = "Hauptstr. 47"
toSearch = "1;2;3;4;5;6;7;8;9"
Found = False
arrSearch() = Split(toSearch, ";")
For i = 0 To Len(strText)
For LBound(arrSearch) To UBound(arrSearch)
If Mid(strText, i, 1) = arrSearch(j) Then
Found = True
Exit If
End If
Next
Next
Sollte so funktionieren (Habs aber nicht getestet ;-)
Kannst also einen beliebigen String nehmen und testen ob bestimmte Zeichen
drin vorkommen.
Aber DU h�ttest das ja sowieso gewu�t :-)
Ciao
Buchi
| [aspdecoffeehouse] als [email protected] subscribed
| http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv
| Sie k�nnen sich unter folgender URL an- und abmelden:
| http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
