Lettura da file in vb6

lunedì 03 marzo 2008 - 15.42

Elenco Threads

Stanze Forum

Aggiungi ai Preferiti

Cerca nel forum

bigmez Profilo | Newbie

1 messaggi | Data Invio: lun 3 mar 2008 - 15:42

salve ho un problemino che faccio un pò fatica a risolvere

sto facendo un'applicazione che mi permette di leggere e graficare le colonne di un txt.
In un primo monemto ho fatto l'applicazione utilizzando, con vb6, i collegamenti a excel, però un mio collega mi ha fatto giustamente notare che potrebbero sorgere dei problemi con diverse versioni di excel (io uso la 2003)

allora ho deciso di leggere il txt direttamente, però non sono molto pratico della cosa.

il file è circa il seguente :

01.02.2008 11:53:49

01.02.2008 12:34:04
N;2550;0.71;1.68;13.20;N.C.;10.18;00.00;90;0010;14.12;000027;18;
N;2537;0.67;1.68;13.20;N.C.;10.19;00.00;90;0010;14.12;000027;18;
....
N;2413;0.71;1.68;13.20;N.C.;10.19;00.00;90;0010;14.12;000027;15;

02.02.2008 01:19:12
N;2458;0.69;1.68;13.20;N.C.;10.18;00.00;90;0010;17.46;000027;15;
N;2439;0.69;1.68;13.20;N.C.;10.18;00.00;90;0010;17.46;000027;15;
...
N;2402;0.72;1.68;13.20;N.C.;10.16;00.00;90;0010;17.46;000018;53;

04.02.2008 07:38:04
N;2389;0.74;1.68;13.18;N.C.;10.19;00.00;90;0010;16.51;000018;53;
N;2403;0.69;1.68;13.20;N.C.;10.18;00.00;90;0010;15.89;000018;53;
...

eccetera, con la primissima riga da scartare, tutte le successive date (e ore) da mettere in una list box E una volta selezionata quella list box tutti i valori N;ecc ecc da salvare (io pensavo in una matrice...).
Però la cosa mi causa un pò di problemini, non usando vb da almeno 10 anni (l'età XD)
riuscireste a darmi delle dritte come fare?

p.s : i report sono differenti (li faccio scegliere tramite ricerca su pc), nel senso che da uno all'altro possono variare i numeri delle date (come quantità). Lo spazio però fra una data all'altra è identico

data
120 righe con N; ecc
spazio vuoto
data

p.s : il separatore è ovviamente il ;

grazie a tutti!

Dainesi Profilo | Senior Member

476 messaggi | Data Invio: mar 18 mar 2008 - 11:55

Leggi il file con Open file For Input As #n.

Quindi leggi leggi riga per riga ed analizzi il contenuto tramite

Do While Not EOF(n)
Input #n , myVar
'Qui analizzi myVar (la riga) per estrarre i dati o capire se è la riga vuota di separazione
Loop

Torna su

Stanze Forum

Elenco Threads

Partecipa anche tu! Registrati!

Hai bisogno di aiuto ?
Perchè non ti registri subito?

Dopo esserti registrato potrai chiedere
aiuto sul nostro Forum oppure aiutare gli altri

Consulta le Stanze disponibili.

Registrati ora !