Tælle forekomsten af en string i en variabel ?!?

Jeg har lavet en funktion, som kan det du beder om:


Public Function Forekomst(searchIn, searchFor) As Integer
    Dim intResult As Integer, intNextPos As Integer, intTemp As Integer
   
    Forekomst = 0
    intNextPos = 1
   
    If Len(searchIn) = 0 Then Exit Function
   
lblRetry:
   
    \'Hvis vi har nået slutningen af strengen, afslut:
    If intNextPos > Len(searchIn) Then Exit Function
   
    \'Find den næste forekomst:
    intTemp = InStr(intNextPos, searchIn, searchFor)
   
    \'Hvis der ikke bliver fundet noget, afslut:
    If intTemp = 0 Then Exit Function
   
    \'Hvis der bliver fundet noget, forøg forekomst med 1:
    If intTemp > intNextPos Then
        Forekomst = Forekomst + 1
        intNextPos = intTemp + 1
    End If

GoTo lblRetry

End Function


Denne funktion kan du fx bruge på denne måde:


Private Sub Command1_Click()
    \'Denne MsgBox skulle gerne vise 4.
    MsgBox Forekomst(\"Hej # dette # er # en # test\", \"#\")
End Sub

Altså syntaksen er:

variabel = Forekomst([I hvilken streng du vil søge] , [hvad du vil søge efter])

    searchFor = \"#\"
    searchIn = \"Hej # dette er # en # test # !\"
    result = 0
    temp = 1
   
    Do While Not temp = 0
   
        temp = InStr((temp + 1), searchIn, searchFor)
       
        If Temp > 0 Then
            result = result + 1
        End If
   
    loop
   
    Response.Write(result)

Ovenstående = Svar

En lidt simplere funktion er følgende:


Public Function Forekomst(searchIn, searchFor) As Integer
   
    Dim strCheck As String
   
    \'Fjern indholdet af searchFor fra searchIn
    \'og gem det i strCheck:
    strCheck = Replace(searchIn, searchFor, \"\")
   
    \'Træk længden af strCheck fra længden af searchIn
    \'så får du forskellen, som divideres med længden
    \'af searchFor. Hermed opnår du antallet af gange
    \'searchFor optræder i searchIn:
    Forekomst = (Len(searchIn) - Len(strCheck)) / Len(searchFor)
   
End Function



Denne funktion kaldes på samme måde, som den jeg skrev før!

Rettelse:

\'Fjern indholdet af searchFor fra searchIn
\'og gem det i strCheck:

skulle være:

\'Fjern indholdet af searchFor fra searchIn
\'og gem det resterende i strCheck:

Kunne gøres kortere:

    searchFor = \"#\"
    searchIn = \"Hej # dette er # en # test # !\"
    result = 0
    temp = 1
   
    Do While Not temp = 0   
        temp = InStr((temp + 1), searchIn, searchFor)
        result = result + 1   
    loop

    result = result - 1
   
    Response.Write(result)

(hehe -- shit -- jeg så ikke lige at det var i ASP-kategorien! Sorry :)

Dette er den korteste metode jeg kan komme på:


strCheck = Replace(searchIn, searchFor, \"\")
intResult = (Len(searchIn) - Len(strCheck)) / Len(searchFor)

Response.Write intResult

Jeg takker for hjælpen :-)

mikbj: undrede mig osse over \"dim as integer\" - det er da vist kun i VB den går?