[vb] numero di righe di un file...

[evil80]

Ciao volevo,sapere se esiste un modo (funzione,proprietà) per ottenere il numero di righe di un file di testo.
Insomma faccio delle operazioni piuttosto lunghe su un file di testo e vorrei inserire anche un progress bar che indichi l'avanzamento delle operazioni ma non so in che modo impostarne la proprietà MAX.

Sarebbe ridicolo dover prima scorrere l'intero file con un contatore per conoscerne il numero di righe ! (rallenterei tutto paurosamente...e cosi invece di migliorare il programma lo peggiorerei)

Aiutoooo!

Ciauz

[jabjoint]

Potresti ottenere il numero di bit del file no?
FLong = FileLen(nomefile)
se ti serve proprio ottenere il numero di righe,potresti vedere quanti bit è lunga una di quelle.
Poi dividi per quel numero.... BHo non so se ti sono stato utile cmq

[evil80]

le righe non sono tutte lunghe uguali,ma in media sui 20 caratteri...come faccio a sapere quanto occupa una riga da 20 caratteri ??

[jabjoint]

La riga da 20 caratteri occupa 20 byte.
Scusa per prima ho scritto "bit".
FileLen(nomefile) restituisce i byte presenti.
Quindi:

Dim nRighe as Long
nRighe = FileLen(nomefile) / 20
MsgBox "Nel file sono presenti: " nRighe

Semplice...