Hallo,
ich habe einen String, und will von diesem String wissen, wieviel mal ein bestimmter String darin vorkommt.
Beispiel
String1:
Das ist ein Test
Suche nach „s“
Rückgabe:
3 (s ist 3 mal in String 1 vorhanden)
Gibt es dafür eine Funktion, oder muss ich über irgendeinen Umwege gehen?
Danke im voraus
Gruß
Thomas
Habe mal folgendes gebaut:
strSearched = Durchsuchter Text
strSought = Gesuchter Text
bIgnoreCase = zwischen Groß-/Kleinschreibung unterscheiden j/n.
Private Function GetStrCount(ByVal strSearched As String, \_
ByVal strSought As String, \_
Optional ByVal bIgnoreCase As Boolean = False) As Integer
Dim intStrPos As Integer
Dim intStrCount As Integer
On Error Resume Next
If bIgnoreCase Then strSearched = LCase(strSearched)
intStrPos = InStr(1, strSearched, strSought)
While intStrPos \> 0
intStrCount = intStrCount + 1
intStrPos = InStr(intStrPos + 1, strSearched, strSought)
Wend
GetStrCount = intStrCount
End Function
VG/SF
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
Danke
Danke, funktioniert.
Gruß
Thomas