>>Hey Gang...
>>
>>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.
>
>Maybe you don't need to count lines at all. You can count bytes - use fSeek() to get the current position, you know the total length of the file, and there you are.
>
>Also, if your file generally has less than 65000 lines (seeing that you are using VFP8), you can simply
>
>nLines=alines(aRows, filetostr(lcYourFileName))
>
>OTOH, if your file has more records but you can be sure that no record is longer than 255 bytes,
>
>create cursor crsRows (cLine c(254))
>append from (lcYourFileName) type SDF
>
>and then you just scan through this cursor, and chop cRow just like you'd do with lcText above. If your lines are longer, then
>
>create cursor crsRows (cLine1 c(250), cLine2 c(250), cLine3 c(250), ...)
>append from (lcYourFileName) type SDF
>
>and then your lcText=trim(cLine1+cline2+cline3+...) for each record.
Thanks for the help !!
Tommy Tillman A+ NetWork+ MCP