Unicode Controls & Classes for VB6 - Version 4

clsUniFile.ReadLine Function

Read a line from a file with the given encoding

Syntax
Public Function ReadLine (ByRef sRet As String, _
ByVal iFileEnc As eFileEncoding) As Boolean
Parameters
Parameter Description
ByRef sRet As String The returning string (without the vbCrLf char at the end)
ByVal iFileEnc As eFileEncoding File encoding
Remarks
'Read each line in file
If CFile.OpenFileRead(FileName) Then
fEncoding = CFile.ReadBOM()

While Not CFile.Eof()
'Read line from file
rc = CFile.ReadLine(inStrg, fEncoding)
If (rc = False) Then GoTo FILE_ERR
Wend

CFile.CloseFile
End If