Clear
lcFile2Read="name_and_path_your_large_file"
lnFileMode=1 && only for read
llForceCreateNew=.F.
lnFormat=0 && ASCII &&
lcResultString=""
lnHowManyCharactersPerRead = 1

loFSO = CREATEOBJECT('Scripting.FileSystemObject')
If loFSO.FileExists(lcFile2Read)
   loTextStream=loFSO.OpenTextFile(lcFile2Read,lnFileMode,llForceCreateNew,lnFormat)
*!*   loFile=loFSO.OpenTextFile(lcFile2Read,lnFileMode,llForceCreateNew) && valid command
   DO WHILE !loTextStream.AtEndOfStream
      * you can read on the byte by byte basis
      * lcResultString=lcResultString+loTextStream.Read(lnHowManyCharactersPerRead)
      * here may be your code for text psrsing
      
      
      * or you can read on the text line basis
      lcResultString=loTextStream.ReadLine
      ? lcResultString
   ENDDO
   loTextStream.Close
Endif

Release loFSO