Gianni, you skipped something very important, the part that skip the lines so the Line property is updated:
'Skip lines one by one Do While txsInput.AtEndOfStream <> True txsInput.SkipLine ' or strTemp = txsInput.ReadLineLoop
2017-04-28 15:08 GMT+02:00 Gianni Turri giannit62@gmail.com:
On Thu, 27 Apr 2017 17:12:49 +0200, "Fernando D. Bozzo" fdbozzo@gmail.com wrote:
Hi Mike:
A very fast method is using the FileSystemObject:
loFSO = CREATEOBJECT("Scripting.FileSystemObject") loFile1 = loFSO.OpenTextFile(lcArchivo1, 1)
Look at the syntax on Microsoft web site for the read method. It does not have the limitation of VFP's fread/fgets
loFSO = createobject("Scripting.FileSystemObject")
loFile = loFSO.OpenTextFile(m.filename, 8, .f.) ? loFile.Line -1
This method overcome VFP memory / file size limits.
Source: http://stackoverflow.com/questions/7416553/function-to- count-number-of-lines-in-a-text-file
-- Gianni
[excessive quoting removed by server]