See
http://www.berezniker.com/content/pages/visual-foxpro/counting-lines-ascii-file>
>Any quick way to Count the number of Lines in a Text File?
>
>I have some data coming in a delimited textfile. Each line represents a normal record.
>
>What I did was to open the file, and loop through each line of data and keep track of how many times this was done until I reach the end of the file.... like this...
>
>
>*Count the number of records in the file...
> lnNumOfRecords = 0
> DO WHILE !FEOF(lnHandle)
> lcText = ALLTRIM(FGETS(lnHandle))
> lnNumOfRecords = lnNumOfRecords + 1
> ENDDO
> filetop = FSEEK(lnHandle, 0)
>
>
>
>Kinda slow with a LARGE file....
>
>I needed to know how many lines, because with this known, I can then use this info in a Thermometer when I REALLY process the text file.
>
>Thanks!
--sb--