Unicode Controls & Classes for VB6 - Version 4

clsUniFile.WriteUnicodeLine Function

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

Syntax
Public Function WriteUnicodeLine (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