Funktion: Tælle forekomster i streng?

tja du kan splitte den og så få størrelsen
tekst = "noget med | af og til |"
tekstArr = split(tekst,"|")
antalForekomster = ubound(tekstArr)+1

Du kan bruge en funktion som:

Function NbrOfString(SearchFor As String, SearchIn As String) As Integer
Dim Nbr As Integer
Dim i As Integer
Nbr = 0
If SearchFor <> "" Then
    Do
        i = InStr(i + 1, SearchIn, SearchFor)
        If i > 0 Then Nbr = Nbr + 1
    Loop Until i = 0 Or i = Len(SearchIn)
End If
NbrOfString = Nbr
End Function

kjulius >> det her er asp og ikke asp.net ;o)
Men man kan selvfølgelig gøre tilsvarende, men hvorfor bruge 12 linjers kode når 3 er nok ;o)

busschou-->: Du mener fordi parametrene er typecastede? axkris spurgte efter en funktion. Men okay, du har selvfølgelig ret. VBScript understøtter ikke typecasting. Det var nu ikke asp+/asp.net kode, men bare en rutine fra alm. VBA (Access). Til brug i alm. ASP, bør det vel være:

Function NbrOfString(SearchFor, SearchIn As String)
Dim Nbr, i
Nbr = 0
If SearchFor <> "" Then
    Do
        i = InStr(i + 1, SearchIn, SearchFor)
        If i > 0 Then Nbr = Nbr + 1
    Loop Until i = 0 Or i = Len(SearchIn)
End If
NbrOfString = Nbr
End Function

Mht. antallet af linier, så har du formodentlig ret, men jeg har alligevel et par forbehold, jeg gerne vil indskyde:

1) Du har ikke defineret det som en funktion og heller ikke dim'et dine variable (som man altid bør - anvende Option Explicit - for at undgå problemer med variabler), så alene det vil bringe din kode op på flere linier.

2) Du har brugt funktionen Split, som kun tillader brugen at ét tegn, som den streng der skal tælles. Du kan altså ikke tælle alle forekomster af strengen "xyz".

Takker :-)

kjulius >> ja jeg har ikke defineret det som en funktion da jeg mener det er overflødigt  at lave en funktion når der kun kræves i princippet en linje nemlig
antal = ubound(split(tekst,"|"))+1
Jeg er ikke enig at man altid bør Dim´e sine variable og benytte Option Explicit. Brugen af Option Explicit er 100% valgfri og er i mine øjne et værktøj man kan benytte hvis man føler behov for det, hvis man har meget kode. Jeg bruger det af og til, men finder det ikke altid nødvendig men det er selvfølgelig en smags sag :o)
Ligesom du pointerer at der blev bedt om en funktion, så kan jeg pointere for at der blev bedt om at tælle forekomsten af "|" hvorfor det er unødvendigt at gøre mere ud af det :o)
Anyway så kan jeg da igen lave det samme på een linje for "xyz" nemlig sådan her
antal = ubound(split(tekst,"xyz"))+1
Jeg kan ikke se i dokumentationen at der står noget om der _kun_ må være eet tegn omvendt kan jeg ikke se der står at der må være fler, jeg kan blot konstatere at det virker hos mig :o)

busschou--> Tja, tjo, jeg har godt nok ikke tjekket om Split funktionen også virker med længere strenge. Jeg kiggede i dokumentationen http://msdn.microsoft.com/library/en-us/script56/html/vsfctSplit.asp og lagde mærke til definitionen:

delimiter
Optional. String character used to identify substring limits.

Der står character - altså ental, så det troede jeg på! :-(

Din one-liner er da også meget smart, så hatten af for det! :-)

kjulius >> kom selv lidt i tvivl da du skrev det, og kiggede selv samme sted og det er misvisende, underligt nok :o)

busschou--> Du bør da forøvrigt ikke addere 1 til din ubound. Det er jo ikke antallet af elementer strengen deles op i, men antallet af forekomster af søgestrengen, der skal returneres. Det bør da være

antal = ubound(split(tekst,"xyz"))

Er du ikke enig?

jo