#include "common.ch" 
 #include "hbclass.ch" 
  
 CLASS StringFileReader 
  
 	DATA cString     INIT "" //возвращаемая строка 
  
 PROTECTED: 
 	DATA hFile       INIT -1 
 	DATA nPos	     INIT 0 //позиция начала чтения следующей строки 
 	DATA cFile       INIT "" //имя открытого файла 
 	DATA ErrorCode   INIT 0 
 	DATA Ok          INIT .F. 
 	 
 EXPORTED: 
 	METHOD OpenFile(cFile) 
 	METHOD CloseFile() 
 	METHOD Reset() 
 	METHOD NextString() 
 	METHOD IsOk() 
 ENDCLASS 
 //------------------------------------- 
 METHOD Init(  ) CLASS StringFileReader 
 	::nPos:=0 
 RETURN Self 
 //------------------------------------- 
  
 PROCEDURE Destroy() CLASS StringFileReader 
 	if ::hFile > -1 
 		FClose(::hFile) 
 	endif 
 	::nPos:=0 
 	::cFile:="" 
 	::cString:="" 
 RETURN  
 //------------------------------------- 
  
 METHOD OpenFile(cFile) CLASS StringFileReader 
 	local nHandle  
 	if ::hFile > -1 
 		::CloseFile() 
 	endif 
 	 
 	nHandle := FOPEN(cFile, 0) // 0 FO_READ Open for reading (default) 
 	if nHandle=-1 //error 
 		::ErrorCode:=FERROR() 
 		::Ok:=.F. 
 	else 
 		::hFile :=nHandle 
 		::Ok:=.T. 
 		::cFile:=cFile 
 		::nPos:=0 
 	endif 
 RETURN ::Ok 
 //------------------------------------- 
  
 METHOD CloseFile() CLASS StringFileReader 
 	::Ok := FClose(::hFile) 
 	if ::Ok 
 		::hFile:=-1 
 		::cFile:="" 
 	endif 
 RETURN ::Ok 
 //------------------------------------- 
  
 METHOD IsOk() CLASS StringFileReader 
 	local Ok:=::Ok 
 RETURN Ok 
 //------------------------------------- 
  
 METHOD Reset() CLASS StringFileReader 
 	::nPos:=0 
 	::Ok:=.T. 
 RETURN ::Ok 
 //------------------------------------- 
  
 METHOD NextString() CLASS StringFileReader 
 	#define F_BLOCK 256 
 	#define CRLF chr(13)+chr(10) 
 	local cBuffer := SPACE(F_BLOCK) 
 	local nReaded 
 	local nMax:=FSeek(::hFile,0,2) //2 FS_END Seek from end of file  
 	local Pos1:=::nPos 
 	local n1:=FSeek(::hFile,Pos1,0) //Seek from beginning of file 
 	 
 	::Ok:=.F. 
 	if Pos1>nMax 
 		::cString:="" 
 	else 
 		nReaded:=FREAD(::hFile, @cBuffer, F_BLOCK) 
 		if nReaded>0 
 			n1:=hb_At(CRLF, cBuffer) 
 			if n1>0 
 				::cString:=left(cBuffer,n1-1) 
 				::nPos:=pos1+n1+2-1 //позицию 
 			else 
 				::cString:=left(cBuffer,nReaded) 
 				::nPos:=nMax+1 
 			endif 
 			::Ok:=.T. 
 		endif 
 	endif 
 return ::Ok