Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - conta caratteri
Forum - Visual Basic 6 - conta caratteri

Avatar
mash_mash (Normal User)
Expert


Messaggi: 230
Iscritto: 25/07/2007

Segnala al moderatore
Postato alle 8:05
Giovedì, 04/10/2007
ragazzi , vi stresso lo ammetto. ma e' cosi' interessante Vb che vorrei sempre saperne di piu'.
Ho provato a lavorare con il codice che mi hai scritto , ma ammetto ci ho capito pochino.
saro' piu chiaro nel descrivere il mio problema :
Ciao raga , sto ancora impazzendo con il mio ultimo problema : devo estrarre da una frase la qyuantita' du un carattere in essa contenuta : esempio :

textbox1.text = "100 + 100 + F + F + 100 + F"
'carattere da estrarre e contare = F
-istruzioni
-istruzioni
-istruzioni
Come risultato dovrei ottenere :
textbox2.text = "3 F"  'ovvero le 3 F della textbox1

Chi puo' aiutarmi a compilare un sorgente che soddisfi questa mia richiesta ?
E se possibile , e' troppo richiedere un commento ?
grazie

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 14:23
Giovedì, 04/10/2007
senza offesa ma ti ho già dato io un sorgente e un'altro (sorgente) credo galantonio.
non si possono fare programmi su richiesta. è la politica del sito.
ci vuole un po di impegno anche da parte tua.

PM Quote
Avatar
mash_mash (Normal User)
Expert


Messaggi: 230
Iscritto: 25/07/2007

Segnala al moderatore
Postato alle 16:14
Giovedì, 04/10/2007
Vero , hai perfettamente ragione , e' solo che continuo a picchiar la testa e non capire dove sbagliavo.
Ho risolto comunque con il codice di gantonio appropriamente modificato , di seguito lo enuncio :

Sub ContaF()
Dim i As Long
Dim c As Long
c = 0
For i = 1 To Len(TextBox11.Text)
If Mid$(TextBox11.Text, i, 1) = "F" Then c = c + 1
Next i
TextBox12.Text = CStr(c) & " F"
End Sub

PM Quote
Avatar
mash_mash (Normal User)
Expert


Messaggi: 230
Iscritto: 25/07/2007

Segnala al moderatore
Postato alle 16:14
Giovedì, 04/10/2007
Vero , hai perfettamente ragione , e' solo che continuo a picchiar la testa e non capire dove sbagliavo.
Ho risolto comunque con il codice di gantonio appropriamente modificato , di seguito lo enuncio :

Sub ContaF()
Dim i As Long
Dim c As Long
c = 0
For i = 1 To Len(TextBox11.Text)
If Mid$(TextBox11.Text, i, 1) = "F" Then c = c + 1
Next i
TextBox12.Text = CStr(c) & " F"
End Sub

PM Quote