Read a line of text

[Jeff Barnes]

Hi,

Is there a function to read a specific line of text from a .txt file?

Something like: cText := ReadText( cFile, nLine )

[Jeff Barnes]

Just an addition to my original post ....

I am looking for something where I do not have to load the entire file into memory if possible.

[nageswaragunupudi]

Code: Select all  Expand view

function ReadText( cFile, nLine )

   local cBuf     := MemoRead( cFile )
   local nAt
   
   if ( nAt := NumAt( CRLF, cBuf, nLine ) ) == 0
      cBuf        := ''
   else
      cBuf        := SubStr( cBuf, nAt + 2 )
      if ( nAt := At( CRLF, cBuf ) ) > 0
         cBuf     := Left( cBuf, nAt - 1 )
      endif
   endif

return cBuf
 

Please link ct.lib

[Richard Chidiak]

Jeff

This is what i use and it works ok for me

Code: Select all  Expand view

local   aEol     := { Chr(13) + Chr(10), Chr(10) }, ;
      SLINE    := SPACE(20), ;
      hFile

hFile := FOPEN(xxxxx)
WHILE HB_FReadLine( hFile, @sLine, aEol ) == 0
  // retreive sline here
END
fclose(hFile)

 

Hth

Richard

[nageswaragunupudi]

Just an addition to my original post ....

I am looking for something where I do not have to load the entire file into memory if possible.

In such a case, this is the way.

Code: Select all  Expand view

function ReadText( cFile, nLine )

   local hFile    := HB_FUse( cFile )
   local cLine    := ""
   
   HB_FGoto( nLine )
   if .not. HB_FEof()
      cLine       := HB_FReadLN()
   endif
   HB_FUse()
   
return cLine
 

These functions are available in xHarbour

[Jeff Barnes]

Thanks everyone

[lailton.webmaster]

I use this way:

Code: Select all  Expand view

cString := MemoRead( "File.ext" )

nLines  := MLCount( cString, 400) // Line Count

? MemoLine( cString,400, 2 ) // return line 2 of cstring
 

Work fine for me.

[Gale FORd]

Don't forget about ttxtfile() class. It works pretty good for manipulating text files.