>>>HI all!!
>>>
>>>I wonder if someone has an specific technique to get the number of lines from a text file...
>>>
>>>thanks
>>
>>create cursor Dummy (TxtFld C (250))
>>append from TextFile SDF
>>nLines = Reccount()
>>
>
>Thanks !!
>Very clever!
>
Low level file reads might be faster:
LOCAL lnHandle, lnCount
*-----------------------------------------
*-- Get a file handle
*-----------------------------------------
lnhandle = FOPEN("myFile.txt")
*-----------------------------------------
*-- Move to the first line
*-----------------------------------------
=FSEEK(lnhandle, 0, 0)
*-----------------------------------------
*-- Loop through each line and count
*-----------------------------------------
lnCount = 0
DO WHILE !FEOF()
lnCount = lnCount + 1
=FREAD(lnHandle)
ENDDO
RETURN lnCount
