nWeek The week number lIso Flag that indicates if nWeek is in ISO format.
Description
This function returns the week number of the year for a given date. It returns the week number in ISO format (range 0 - 52, by default or passing TRUE as second parameter) or 1 - 52 if lIso is FALSE.
cFileName is the required name of the file to be read.
nReadSize is the optional size to use when reading from the file. The default value is 4096 and the allowed range is 1 through 65535. Any value outside of this range causes the default value to be used.
Returns
An instance of the File Reader class
Description
TFileRead() is used to access a file one line at a time. You must specify the name of the file when an instance of the class is created.
The class data should be considered private to the class.
The class methods are as follows:
:New() Creates a new instance of the TFileRead() class.
:Open( [<nFlags>] ) Opens the file for reading. The optional nFlags
parameter can use any of the file open flags from fileio.ch. The default is FO_READ + FO_SHARED. Calling this method when the file is already open causes the next :ReadLine() to start over from the beginning of the file.
:Close() Closes the file.
:ReadLine() Returns one line from the file, stripping the
newline characters. The following sequences are treated as one newline: 1) CR CR LF; 2) CR LF; 3) LF; and 4) CR. Note: LF CR is 2 newlines.
:Name() Returns the name of the file.
:IsOpen() Returns .T. if the file is open.
:MoreToRead() Returns .T. if there are more lines to be read
(think of it as an inverse EOF function).
:Error() Returns .T. if an error has occurred.
:ErrorNo() Returns the current error code.
:ErrorMsg( [<cPre>] ) Returns a formatted error message.
Examples
LOCAL oFile := TFileRead():New( "test.txt" )
oFile:Open()
IF oFile:Error()
? oFile:ErrorMsg( "FileRead:" )
ELSE
DO WHILE oFile:MoreToRead()
? oFile:ReadLine()
ENDDO
oFile:Close()
ENDIF