räkna grejer i en sträng

Finns säkert nån klurig fördefinerad funktion för det där.. men det här borde funka:

<%
txt = "hejhej<BR>hm<BR>vem är du<BR>"

numbr = UBound(Split(txt,"<BR>"))
%>

Antal <BR> är <%=numbr%>

-Eitraz

Nackdelen med Eitraz kod är att den är skiflägeskänslig.

<%
strText ="hejhej<BR>hm<BR>vem är du<BR> "

Set objRegExp = New regexp
objRegExp.Global = true
objRegExp.IgnoreCase = true
objRegExp.Pattern = "\<BR\>"
Set Matches = objRegExp.Execute(strText)
Response.write Matches.count&" stycken &lt;BR&gt;"
%>

Eller så här då ;)
Icke skiftlägekänsligt längre..

<%
txt = "hejhej<BR>hm<BR>vem är du<BR>"

numbr = UBound(Split(UCase(txt),"<BR>"))
%>

Antal <BR> är <%=numbr%>

-Eitraz

En smidig funktion:

Function InStrCount(ByVal sStr, _
	ByVal sFind)
	
	InStrCount = (Len(sStr) - Len(Replace(sStr, sFind, "", 1, -1, 1))) / Len(sFind)
	
End Function

Response.Write InStrCount("test mfvmkfmbbf testvkmdvfkfbtest", "test")

Funkar och går att använda som vanliga InStr. Enda skillnaden är att när den hittar något så sägger den inte var den hittar det först, utan istället hur många gånger den hittar det. :)

Eitraz andra kod passa bäst, tack!