clsUniFile.WriteAnsiLine Function

Writes an ANSI line to a file (with vbCrLf at the end)

Syntax

Public Function WriteAnsiLine (ByRef s As String) As Boolean

Parameters

Parameter	Description
ByRef s As String	The string to write

Remarks

'Write lines into file
If CFile.OpenFileWrite(FileName) Then
    If (bWriteAnsi) Then
        CFile.WriteBOM fe_ANSI
        CFile.WriteAnsiLine "Test Line 1"
        CFile.WriteAnsiLine "Test Line 2"
        CFile.WriteAnsiLine "Test Line 3"
        CFile.WriteAnsiLine "Test Line 4"
    Else
        CFile.WriteBOM fe_UTF16LE
        CFile.WriteUnicodeLine "Test Line 1"
        CFile.WriteUnicodeLine "Test Line 2"
        CFile.WriteUnicodeLine "Test Line 3"
        CFile.WriteUnicodeLine "Test Line 4"
    End If

    CFile.CloseFile
End If