[VB6] Selezionare contenuto di un file

[jack61]

Con VB6 ho necessità di selezionare il contenuto di un file tipo questo:

NAME: nome1 IP: ipnumero1 DATA-ORA: data1
NAME: nome2 IP: ipnumero2 DATA-ORA: data2
NAME: nome1 IP: ipnumero3 DATA-ORA: data3
NAME: nome4 IP: ipnumero4 DATA-ORA: data4

Devo caricare in una listbox i vari nomi ma nel caso nel file compaia più di una volta lo stesso nome venga preso solo quello più recente (non importa controllare la data: se è più semplice basta prendere quello più in basso nel file). ho necessita di prendere il più recente poiché ho impostato sul click della listbox che mi venga un msgbox con IP e Data. Come posso fare?

[oregon]

Aprire il file in lettura e leggi tutte le linee, una per una.

Quando incontri l'EOF, copi l'ultima linea letta nella listbox

[jack61]

potresti indicarmi a livello di codice come si fa? scusa ma sono un niubbo nella programmazione!

[oregon]

Originariamente inviato da jack61
sono un niubbo nella programmazione!

Questo non è un buon motivo per chiedere codice pronto senza impegnarsi un po' ... studiando si impara.

Prova a cercare in questo stesso forum

VB6 lettura file

e trai spunti dalle discussioni più attinenti.

[jack61]

a dir la verità non cerco codice gia pronto. per il momento sono riuscito a buttar giu questo e per il momento funziona.

Dim Arr() As String
file = "C:\lista.txt"
Open file For Input As #1
List1.Clear
While Not EOF(1)
Input #1, riga
Arr = Split(riga, " ")

List1.AddItem Arr(1) & " " & Arr(3)
Wend
Close #1

come ho gia chiesto prima però non so come cancellare una riga meno recente con una con stesso nome ma con Ip diverso (che si trova piu in basso nel file). qualche dritta in piU?

[oregon]

Originariamente inviato da jack61
a dir la verità non cerco codice gia pronto.

L'impressione era questa ... se avessi presentato il codice prima, ci saremmo risparmiati qualche post ...

In ogni caso, avevi detto che avresti semplicemente considerato l'ultima linea e il mio suggerimento andava in questa direzione ... pensi possa bastare?

[jack61]

non riuscendo a trovare vie di uscita mi è venuto in mente che potrei leggere il file dal fondo o comunque invertire le righe del file creando un nuovo file "inverso" al primo e poi leggere quest'ultimo) e poi leggere solo il valore piu recente filtrando gli inserimenti della listbox (cioè se una stringa "nome2" è gia presente non viene aggiunta di nuovo). ora però mi nasce un altro problema: come faccio l'inverso di un file di testo?

[oregon]

Scusa, ma perché tutti questi problemi? Hai detto che ti bastava l'ultima riga?
Quindi ti basta fare la AddItem solo dopo aver chiuso il file

Dim Arr() As String
file = "C:\lista.txt"
Open file For Input As #1
List1.Clear
While Not EOF(1)
Input #1, riga
Arr = Split(riga, " ")
Wend
Close #1
List1.AddItem Arr(1) & " " & Arr(3)

[jack61]

no allora mi sono spiegato male... in caso di nome uguale carico la riga piu in basso nel file con quello stesso nome.

[oregon]

Allora leggi tutto il file all'interno di un array, senza inserire le righe nella listbox.

In seguito, puoi esaminare l'array a partire dall'ultimo elemento verso il primo.