VB contare quanti caratteri a una stringa

[allejo]

Private Sub Form_Load()
Dim var As String
var = "assdaresada"
totale=??????? 'contare qunti caratteri ha "a" nella stringa var
End Sub

grazie

[xegallo]

len(var)

[allejo]

ma questo calcola la lunghezza!

e io voglio quanti "a" ci sono nella stringa var

supponiamo

var = "assdaresada"

totale=4

mi sono spiegato bene?

[xegallo]

function iContaquanti(sInput as string,sFind as string)as integer
   dim flag as boolean
   dim i as integer
   dim iChar as integer
   dim sTemp as string
   flag = false
   do until flag = true
      iChar = instr(iChar + 1,sinput,sfind)
      if ichar = 0 then 
         flag = true
         exit do
      end if
      i = i + 1
   loop
   icontaquanti = i
end function

[sebamix]

Dim strStringa As String
strStringa = "anjksdaawgea"
MsgBox Len(strStringa) - Len(Replace(strStringa, "a", ""))

[caimano73]

che io sappia non esiste una funzione predefinita, per cui dovresti fare un parsing della stringa. Però puoi usare la funzione instr che cerca l'occorenza di una sottostringa all'interno di una stringa a partire da un certo carattere, e restituisce -1 se non l'ha trovata o la posizione in cui l'ha trovata.
Partendo quindi da 0 potresti cercare con un ciclo il singolo carattere 'a' come stringa, uscire quando il risultato è -1 e incrementare un contatore ogni voltra che hai ciclato.
Naturalmente il carattere iniziale sarà 0 e poi diventa la posizione in cui hai trovato il carattere cercato.

[caimano73]

Originariamente inviato da caimano73
che io sappia non esiste una funzione predefinita, per cui dovresti fare un parsing della stringa. Però puoi usare la funzione instr che cerca l'occorenza di una sottostringa all'interno di una stringa a partire da un certo carattere, e restituisce -1 se non l'ha trovata o la posizione in cui l'ha trovata.
Partendo quindi da 0 potresti cercare con un ciclo il singolo carattere 'a' come stringa, uscire quando il risultato è -1 e incrementare un contatore ogni voltra che hai ciclato.
Naturalmente il carattere iniziale sarà 0 e poi diventa la posizione in cui hai trovato il carattere cercato.

ok, xegallo mi ha anticipato, ma l'idea di sebamix è più performante

[allejo]

Grazie 1000.

[Cartman]

figo quello di sebamix
C.