[VB6] Contare lettere in una TextBox escludendo gli spazi

[Notorius]

Ciauz a tutti, vorrei sapere il codice per contare le lettere presenti in una text box ... cioè mi spiego meglio .... se in un textbox scrivo CIAO MAMMA il prog mi deve dire che in quella textbox ci sono 9 lettere ... è possibile ???
grazie in anticipo

[Lak3d]

nLettere=len(TexTBox.Text)

verifica se conta anche gli spazi... in caso fai così: nLettere=Len(Trim(TexTBox.Text))

[chico62]

Originariamente inviato da Lak3d
verifica se conta anche gli spazi... in caso fai così: nLettere=Len(Trim(TexTBox.Text))

Ovviamente, essendo lo spazio un carattere, viene contato.
Non e' comunque corretto l'utilizzo di Trim(TextBox.Text) in quanto Trim toglie solo gli spazi iniziali e finali, non quelli intermedi.
Casomai per eliminare gli spazi bisogna usare Replace:

Nlettere=Len(Replace(TextBox.Text," ",""))

Ciauz

CHico

[Notorius]

Originariamente inviato da Lak3d
nLettere=len(TexTBox.Text)

verifica se conta anche gli spazi... in caso fai così: nLettere=Len(Trim(TexTBox.Text))

ho provato tutti e due i codici ma gli spazi me li conta lo stesso ... soluzioni ??

EDIT: nn avevo aggiornato la pag e nn avevo visto l'ultima risposta sorry

[Notorius]

Originariamente inviato da chico62
Ovviamente, essendo lo spazio un carattere, viene contato.
Non e' comunque corretto l'utilizzo di Trim(TextBox.Text) in quanto Trim toglie solo gli spazi iniziali e finali, non quelli intermedi.
Casomai per eliminare gli spazi bisogna usare Replace:

Nlettere=Len(Replace(TextBox.Text," ",""))

Ciauz

CHico

ho provato il codice ma mi dice SUB O FUNCTION NN DEFINITA e nel debug mi seleziona REPLACE

[Lak3d]

Azz, è vero, ha ragione chico...

se ti da errore di sub o function non definita è perchè l'hai messo probabilmente fuori da qualsiasi procedura senza definirne una di tuo. Piazzalo sull'evento del pulsante che ti interessa ti conti le lettere quando pigiato.

[Notorius]

Originariamente inviato da Lak3d
Azz, è vero, ha ragione chico...

se ti da errore di sub o function non definita è perchè l'hai messo probabilmente fuori da qualsiasi procedura senza definirne una di tuo. Piazzalo sull'evento del pulsante che ti interessa ti conti le lettere quando pigiato.

e se vorrei assegnarlo ad un timer ??

[chico62]

Posta qualche linea di codice in più.
Non e' possibile che ti dia errore di quel genere in quel punto. La funzione Replace in VB6 esiste. Quindi l'errore è altrove.

Ciauz

CHico

[Lak3d]

assegnarlo ad un timer per far chè?

[MItaly]

... a meno che tu non abbia tolto dai riferimenti la libreria VBA...