Visual Basic 6 - Una ca***

Forum - Visual Basic 6 - Una ca***

antoniol (Normal User)
Pro

Messaggi: 84
Iscritto: 12/07/2006

Postato alle 16:06
Venerdì, 28/07/2006

Non riesco proprio a fare una cosa qualcuno mi può aiutare?

Praticamente ho un textbox dov'è c'è una frase...

Sto cercando di dividere le parola di questa frase e copiarle in Text2(k)....

Qualcuno mi può aiutare? NN so proprio dove sbattere la testa!!

HelP!

Skocci88 (Ex-Member)
Rookie

Messaggi: 34
Iscritto: 27/07/2006

Postato alle 11:01
Sabato, 29/07/2006

Non so se ho capito bene quello k vuoi fare, ma se l'intento è copiare ogni parola della frase in diverse textbox identificate da un contatore 'k' allora ecco:

Codice sorgente - presumibilmente VB.NET

Private Sub Command1_Click()
 
Dim k As Integer
Dim i As Integer
Dim frase As String
 
i = 1
k = 0
frase = Textfrase.Text
 
For i = 1 To Len(frase)
 If Asc(Mid(frase, i, 1)) = 32 Then
   Text2(k).Text = Trim(Left(frase, i))
   frase = Right(frase, (Len(frase) - i))
   k = k + 1
   i = 1
 ElseIf i = Len(frase) Then
   Text2(k).Text = frase
   Exit Sub
 End If
Next i
 
End Sub