count()?

kan man slet ikke det????

Prøv med:

strMinVar = "hejsa, hejsa, hej"
arrMinVar = Split(strMinVar,", ")

intCounts = 0

For i = 0 To UBound(arrMinVar)
  If arrMinVar(i) = "hejsa" Then
      intCounts = intCounts + 1
  End If
Next

Response.Write("Ordet hejsa opstod " & intCounts & " gange")

//>Rune

njaa, vil ikke virke godt nok...
Strengen er ikke nødvendigvis adskilt af kommaer... kun i eksemplet :s
Har du ikke et andet godt råd?

splitVed("hejsa")
strMinVar = "hejsa, hejsa, hej"
arrMinVar = Split(strMinVar,splitVed)

Len(arrMinVar) Eller Ubound(arrMinVar)
-ved ikke om Len kan bruges sådan i vbscript, det kan den i jscript

Du kan bruge denne:

mintekst = "dette er en tekst hvor vi tæller hejsa, hvor hejsa optræder to gange"
Function countword(tekststreng,word)
    tekststreng = replace(tekststreng,".","")
    tekststreng = replace(tekststreng,",","")
    tekststreng = replace(tekststreng,"!","")
    tekststreng = replace(tekststreng,"?","")
    tekststreng = replace(tekststreng,"""","")

    For each item in Split(tekststreng," ")
        if lcase(item) = lcase(word) then
            countword = countword+1
        end if
    Next
End Function

response.write countword(mintekst,"hejsa")

SBK får pointene, da det var den løsning jeg vælger at bruge.
Fandt godt nok ud af svaret inden jeg læste det her, men det kunne du jo ikke vide :p

Tak for hjælpen allesammen!!!

Hvis du bruger sbk's løsning, så får du også talt ord med der indeholder teksten, hvis du f.eks. søger efter hej, så tæller den både hejsa og hej.

cht det skal den vel også, det gør enhver søgealgorimte (umiddelbart)

ok, det har du selvfølgelig ret i, det tænkte jeg ikke lige på.