Progress bar processando un txt

[gaullo]

Sto eseguento complesse operazioni leggendo i dati da un file txt.
La durata di tale operazione è di circa 4 min...
Ho subito pensato ad utilizzare la progress bar, ma una volta iniziato mi sono domandato come potessi ottenere il valore max ? (non èsiste un comando simile al recordcount??)
Mi chiedevo se inoltre esiste un indice che identifica il numero della "riga" del file txt che sto processando, in modo da associarla al value

ecco come apro il file

 

Open CommonDialog1.FileName For Input As #1 

Do While Not EOF(1)
   Line Input #1, record
   ......'istruzioni e calcoli vari
Loop

L'unico metodo che mi veniva in mente era la semplice variabile contatore.... ma in questo modo perderei molto tempo

Spero che qualcuno possa darmi una mano.

[ilmagowalter]

la funzione filelen(pippo.txt) restituisce la lunghezza del file espressa in byte

ciao

[gaullo]

E come posso utilizzare questa informazione per settare il .max??
Leggendo il file txt riga per riga pensavo che conoscendo il numero di righe (di andata a capo) potessi settare tale numero come progressbar.max, ma l'unico modo che conosco per ottenere tale valore e scorrere il file contando le "righe", che farebbe allungare tutta la procedura.
Non esiste una funzione che emula il recordcount dei recordset???

[Drocchia]

mi passi il codice che usi per l'avanzamento della progress bar che vedi d adattartelo?

[ilmagowalter]

utilizzi filelen per settare il .max
quando leggi utilizzi la len(record) per il .value

[gaullo]

forse ho capito...mi metto a lavoro

[gaullo]

Perfetto....non ci serei mai arrivato...grazie per le dritte
:mavieni: :mavieni: :mavieni:

:quote:

ecco il codice

[code]

ProgressBar1.Visible = True
ProgressBar1.Min = 0
ProgressBar1.Max = FileLen(CommonDialog1.FileName)

Open CommonDialog1.FileName For Input As #1

Do While Not EOF(1)
ProgressBar1.Value = ProgressBar1.Value + Len(record)
ProgressBar1.Refresh
Line Input #1, record
....
....
loop
Close #1

[Drocchia]

bravo

[ilmagowalter]

[antocasi]

Grazie,
ho copiato il codice sopra e funziona benissimo.

La barra di avanzamento però appare sopra alla Finestra di dialogo che apro per chiedere quale file importare e non riesco a farla sparire (non esiste la proprietà Visible), sempre che si possa.
Come faccio???