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