Visual Basic 6 - ordinare contenuto text

Non ho capito bene questa tua affermazione.

p.s. Mia madre mi ha dato il permesso di comunicarti che la punizione (a differenza di come previsto) finirà domani. Quindi abbi pazienza fino a domani.

ecco il codice per il caricamento dati:

Dim campo() As String 'Array di stringhe
Dim x As Integer
Dim riga As String
Private Sub Command3_Click()
Open "c:\dati.txt" For Input As 1
Do While Not (EOF(1))
Input #1, riga
campo = Split(riga, "#")
Timer1.Enabled = True
Pause 0.1
Text1 = campo(0)
Text2 = campo(1)
Text3 = campo(2)
Text4 = campo(3)
Loop
Close #1
End Sub
Sub Pause(ByVal interval As Double)
    Dim Current As Double
    Current = Timer
    Do While Timer - Current < interval
    DoEvents
    Loop
End Sub
Private Sub Timer1_Timer() 'SCALATURA VALORI
For x = 0 To 3 '5 è la grandezza massima dell'array
If campo(x) = "" Then 'Vede se il campo(x) è vuoto, se si allora:
If (x + 1) >= 4 Then 'Vede se x ha superato il limite dell'array, allora:
Exit Sub 'esce dalla sub
End If
campo(x) = campo(x + 1) 'visto che il campo(x) è vuoto gli assegna il valore di quello successivo
campo(x + 1) = "" 'poi azzera il valore del campo() successivo
End If
Next x
End Sub

p.s. Mia madre mi ha levato la punizione =)

Grazie di tutto, complimenti per la tua conoscenza del vb. Sono contento che non sei più in punizione e grazie ancora!!

prego

se hai altri problemi e hai bisogno di aiuto chiedi al forum.

p.s. ora è un pò deserto a causa dell'estate.