Går det på något enkelt sätt att räkna hur många "hej" variablen kalle innehåller?


kalle = "hej på dig. hej hej hej"

<code>
Dim myArr
Dim antalHej
Dim kalle

kalle = "hej på dig. hej hej hej"

myArr = Split(kalle," ")
For i = LBound(myArr) To UBound(myArr)
'Använd LCase(myarr(i)) eller UCase(myArr(i)) om den skall räkna hej
'som stavas med stora och små bokstäver.Hej, hEj,heJ osv....
If myarr(i) = "hej" Then
antalHej = antalHej + 1
End If
Next

</code>

//Putte

En "fuling" ;)

antal = (Len(Kalle) - Len(Replace(Kalle, "hej","")))/Len("hej")

/Johan

Får väl kompletera med yterligare en lösning:
<code>
Function CountWords(Text, Word, Optional Compare = vbTextCompare)
Dim Position
Dim WordLength
Position = InStr(1, Text, Word, Compare)
WordLength = Len(Word)
Do While Position
CountWords = CountWords + 1
Position = InStr(Position + WordLength, Text, Word, Compare)
Loop
End Function
</code>

lol.... många bra svar. tack! ;)

Hmmm... Ingen av koderna funkar när man hämtar koden med

kalle = "GetHTML("http://www.google.com") "


Här är hela koden för funktionen
---------------------------------------

<%
On Error Resume Next
Set XMLHttp = Server.CreateObject ("Microsoft.XMLHTTP")
Response.Write "<BTestar...<br>"

Response.Write GetHTML("http://www.google.com")
Response.End
%>


<%
Function GetHTML(strPage)

XMLHttp.Open "GET", strPage ,False,"",""
XMLHttp.Send

If Err.Number = 0 Then
If XMLHttp.Status = 200 then
GetHTML = XMLHttp.ResponseText
Else
GetHTML = "Incorrect URL"
End if
Else
GetHTML = Err.Description
End If
Set XMLHttp = Nothing
End Function
%>