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)				&& Move pointer to BOF
>
>

>
>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!