PDA

Visualizza la versione completa : [VB6] ordinamento dati


md76
01-07-2002, 13:58
Leggo il contenuto di un file di testo riga x riga e lo inserisco in un flexgrid e così tutto OK!, quando la routine parte a leggere tutte le righe del file parte dalla prima in alto a me servirebbe che partisse dalla prima dal basso. In questo modo l'ultima riga del file di testo è la prima inserita nel flexgrid. E possibile secondo Voi ?

JamesD
01-07-2002, 14:02
Il file lo leggi in maniera sequenziale dalla prima all'ultima perchè non penso che sia permesso leggere un file di testo dal fondo!
Il problema è però di semplice soluzione. Potresti ad esempio mettere le righe del file all'interno di un vettore e poi riempire la griglia al contrario!:ciauz:

md76
01-07-2002, 17:13
Mi potresti spiegare come risolvere il problema perfavore ?

JamesD
02-07-2002, 11:20
ok ci provo:



Dim tuoArray() As String

tuoFile = "percorso assoluto del tuo file"
Open tuoFile For Input As #1
While Not (EOF(1))
i = i + 1
ReDim Preserve tuoArray(i)

Input #1, tuoArray(i - 1)
Wend
Close #1
tuaFlex.Rows = UBound(tuoArray)

For i = 1 To tuaFlex.Rows
tuaFlex.TextMatrix(i - 1, 1) = tuoArray(UBound(tuoArray) - i)
Next i



Questo codice deovrebbe funzionare provalo e sappimi dire!!
Ciauz ciauz:ciauz: :ciauz:

Loading