[VB6] Contare le lettere

[stebux]

Come si fa a contare quante lettere ci sono in una determinata stringa?

Per esempio: nella stringa "Ciao a tutti quanti" voglio sapere quante "A" ci sono?

[stebux]

Ho risolto...

[marguppy]

Come??? :rollo:

[zero85]

Io farei così

function conta()
dim testo, appoggio as string
dim lungehzza, conta as integer

conta = 0
testo = txttesto.text
lunghezza = Len(testo)

for i = 1 to lunghezza
  appoggio = mid(testo, i , 1)
  if appoggio = "a" then
    conta = conta + 1
  end if
next K

end function

[stebux]

Originariamente inviato da marguppy
Come??? :rollo:

esattamente come ha detto zero85

[Mabi]

Per velocizzare il ciclo e quindi il conteggio si potrebbe utilizzare la InStr:

Const StrProva = "xxxxxAxxxxAxAxxxAxxA"

MsgBox CStr(Ripetizioni(StrProva, "A"))


Private Function Ripetizioni(ByVal Stringa As String, ByVal Lettera As String) As Integer
Dim PosCar As Integer

PosCar = InStr(PosCar + 1, Stringa, Lettera)
Do Until PosCar = 0
  Ripetizioni = Ripetizioni + 1
  PosCar = InStr(PosCar + 1, Stringa, Lettera)
Loop
End Function

In questo modo non controlli tutti i caratteri ma solo quelli scelti

[ciro78]

sbagliato.....

[Mabi]

[ciro78]

lascia perdere avevo capito un'altra cosa...meglio che dopo una certa ora non rispondo....ciao e scusate il disturbo