Visual Basic 6 - Una ca***

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!

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:

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

Fammi sapere !

Perchè tutto questo codice skocci?

Basta usare la funzione:

Split

Ops..Non la conoscevo !!

Grazie vi sono veramente grato...

Ma come per la funzione Splint qual'è il codice?

Consulta l'MSDN.