slette alle bokstaver bortsett fra 1 type

[Vain]

har en textbox med forskjellige bokstaver i feks: "abc def aa kake! kake?"

 

hvordan beholder jeg bare a-ene i denne teksten? eventuelt hvordan teller jeg hvor mange a-er det er?

[Jonas]

Private Function TellTegn(Text As String, tegn As String) As Double

If Len(tegn) >= Len(Text) Then

   TellTegn = 0
   
Else
   
   Dim i
   For i = 0 To Len(Text) - Len(tegn)
       
       If Left(Right(Text, Len(Text) - i), Len(tegn)) = tegn Then TellTegn = TellTegn + 1
       
   Next i
   
End If

End Function

Og den brukes slik:

MsgBox TellTegn("aaaokijuhuaa", "a")

[Vain]

perfekt

 

akkurat det jeg trengte. Den koden der gjorde at programmet mitt fungerte