Oppure

Loading
04/10/07 6:05
mash_mash
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
aaa
04/10/07 12:23
P4p3r0g4
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.
aaa
04/10/07 14:14
mash_mash
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
aaa
04/10/07 14:14
mash_mash
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
aaa