Finde bogstaver i en streng

Noget i stil med denne funktion?



<%
Response.Write("Antal A'er i AAABBCDDEEEEFHH: " & chountChars("AAABBCDDEEEEFHH", "A")

Function countChars(Streng, c)
  dim i, n
  n = 0
  for i=1 to len(Streng)
    if Streng(i)=c then n = n +1
  next
  countChars = n
End Function
%>

Function countChars(Streng, c)

kan i øvrigt skrives lidt pænere med type angivelse:

Function countChars(Streng As String, c As Char)

Er ikke lige sikker på at der er en type, der hedder Char - but you get the point :-)

der var jeg lidt sent ude, men da jeg lige har lavet koden også paster jeg lige.
Function countChars(strString, strChar)
intCounter = 0
Do while InStr(strString, strChar) > 0
  strString = Right(strString, len(strString)-InStr(strString, strChar))
  intCounter = intCounter+1
Loop
countChars = intCounter
End Function

--- Og på den 'regulære' måde:

Set re = New RegExp
re.Global = True
re.Pattern = "A"
Set m = re.Execute(Streng)

Response.Write "Count: " & m.Count

tusind tak, det var lige det

joker> Jeg vil nok anfægte din lidt... At ændre strString i hvert gennemløb er alt for meget overhead - og der er slet ingen grund til det.

ranglen> ja - hvorfor ikke bare lave det smart, når ny regexp er opfundet :-)