Number of lines in a ascii file 4

[FoxWing]

Hi,

can anyone advice me what function can i use to get the number of lines in a txt file ?


Thanks in advance.

 

[DSummZZZ]

Try something like:

cText = FILETOSTR("MyFile.txt")
?OCCURS(CHR(10), cText)

-Dave Summers-

Even more Fox stuff at:

http://www.davesummers.net/foxprolinks.htm

 

[Olaf Doschke]

Hi FoxWing,

This works for files with less than 65000 lines:
? alines(aDummy,filetostr("d:\yourfile.txt"))

Maybe even easier is
? occurs(filetostr("d:\yourfile.txt"),chr(13))

But that would not count a line without a carriage return at the end, so would perhaps miss by 1, but not always.

Bye, Olaf.

 

[dbMark]

You may want to verify what code sequence you have there for line breaks. I've seen CHR(13), CHR(10), and combined CHR(13)+CHR(10), but never in reverse order CHR(10)+CHR(13). I mention this in case you remove only one of 2 characters.

dbMark

 

[darrellblackhawk]

And finally... one to just obfuscate the obvious, but
counts lines regardless of the termination character.
i.e. lf's or cr's

( note: not fully fool-proof ;-) )

function GetLineCount
  lparam cFile
  local nBytesCR, nBytesLF, nBytes, cLines
  nBytes = 0
  if vartype(cFile) == "C" .and. file(cFile)
    cLines   = filetostr(cFile)
    nBytesCR = occurs(chr(13),cLines)
    nBytesLF = occurs(chr(10),cLines)
    nBytes   = iif(inlist(right(cLines,1),chr(10),chr(13)),0,1)
    nBytes   = max(nBytesCR,nBytesLF) - nBytes
  endif
  return nBytes
endfunc

 

[FoxWing]

Thanks for the advices from all of you (Dave,Olaf,dbMark,darrellblack). Because of you, i got it working now.

Cheers.