Antal forekomster i en string

count = 0
For Each hej In hurlumhej
  count = count + 1
next

Response.Write count

kan det bruges ?

Dim strSearch
strKeyWord = "hej"
strSearch = "hej for søren sikke, ej hej med dig, et godt vejr hvad?! hej haj hejhej"

arrCount = Split(strSearsh, " ")
For i = 0 To UBound(arrCount)
  If arrCount(i) = strKeyWord Then
      lngTimes = lngTimes +1
  End If
Next
Response.Write(lngTimes)

//>Rune

Mmnn Ja i princippet jo. Men hvis nu jeg kunne finde ud af at beskrive mit spørgsmål rigtigt.

Problemet er, at jeg er ved at lave en chat. Og smart eller ej, har jeg valgt at putte alle chatstrenge ind i en application.
Hver gang man bliver skrevet til, dvs. når andre skriver ens navn på skærmen, bliver beskeden fremhævet.

Problemet er jo nu, at jeg skal have fortalt mit script, hvornår det skal fremhæve beskeden. 1. det skal være brugeren med det tilhørende navn, 2. den må ikke fremhæve alle beskeder, bare fordi der står "Chatnavn : ...". det er kun de beskeder andre skriver, der indeholde mit navn fx. der skal fremhæves. Jeg er lidt på bunden.

Dim strSearch
strKeyWord = "hej"
strSearch = "hej for søren sikke, ej hej med dig, et godt vejr hvad?! hej haj hejhej"

arrCount = Split(strSearch, " ")
For i = 0 To UBound(arrCount)
  If arrCount(i) = strKeyWord Then
      lngTimes = lngTimes + 1
  End If
Next

sådan var det vidst...

//>Rune

Men i mit eksempel vil hejhej ikke blive registreret.. Så skal du til at ind og bruge funktionen InStr()

//>Rune

Det er nogle pokkers gode svar! =)
Men hvad nu hvis jeg gerne vil tælle et antal forekomster fra højre mod venstre endtil et bestemt tegn med InStrRev

F.eks. kunne tegnet være " : ". Man kan forresten ikke bruge InStrRev, for der skal man kende tegnets numeriske placering. Så den går ikke.

Er der en hvis grænse for hvor langt et brugernavn mand må have?`

//>Rune

lngOrder = InStr(strSearch,strKeyWord)
    lngLength = Len(strSearch) - lngOrder
    Response.Write(Right(strSearch,lngLength))

//>Rune

strKeyWord = "haj"
strSearch = "hej for søren sikke, ej hej med dig, et godt vejr hvad?! hej haj hejhej"

lngOrder = InStr(strSearch,strKeyWord)
lngLength = Len(strSearch) - lngOrder
Response.Write(Right(strSearch,lngLength))

Hmm.. syntes du ikke snart 15 poinz er lidt lidt snart...?
//>Rune

Hvis så fx. du vil have alt efter :, så skal du bare sætte variablen strKeyWord til ":"

//>Rune

Jorv, det var vist lidt lidt. Men så er det da ikke mig der skaber inflation i pointene! ;). Tak for hjælpen.

Var så lidt...
Thx 4 Poinz

//>Rune