Bolte IT Consulting

' @Author - Alexander Bolte
' @ChangeDate - 2014-10-08
' @Description - Writes a given text as a new line into a text file available at given file path.
' If target text file is not existing yet, it will be created before writing given String.
' If target text file is existing already, given data will be appended.
' @Param fileNam - target text file full path.
' @Param newLine - String to append in given target text file.
' @Param isUtf16Le - a boolean indicating if a text file should be Unicode (UTF-16-Little Endian) or ASCII encoded.
' True means a file should be UTF-16 Little Endian encoded.
Public Function writeLineToTextFile(ByVal fileNam As String, ByVal newLine As String, ByVal isUtf16Le As Boolean)
    Dim fs As New Scripting.FileSystemObject
    Dim ts As Scripting.TextStream
    
    If fs.FileExists(fileNam) Then
        Set ts = fs.OpenTextFile(fileNam, ForAppending, True, isUtf16Le)
    Else
        Set ts = fs.CreateTextFile(fileNam, True, isUtf16Le)
    End If
    
    If Not ts Is Nothing Then
        Call ts.WriteLine(newLine)
    End If
    
    ts.Close
    Set ts = Nothing
    Set fs = Nothing
End Function

Sub WriteUTF8WithoutBOM()
    Dim UTFStream As Object
    Set UTFStream = CreateObject("adodb.stream")
    UTFStream.Type = adTypeText
    UTFStream.Mode = adModeReadWrite
    UTFStream.Charset = "UTF-8"
    UTFStream.LineSeparator = adLF
    UTFStream.Open
    UTFStream.WriteText "This is an unicode/UTF-8 test.", adWriteLine
    UTFStream.WriteText "First set of special characters: öäåñüûú€", adWriteLine
    UTFStream.WriteText "Second set of special characters: qwertzuiopõúasdfghjkléáûyxcvbnm\|Ä€Í÷×äðÐ[]í³£;?¤>#&@{}<;>*~¡^¢°²`ÿ´½¨¸0", adWriteLine
 
    UTFStream.Position = 3 'skip BOM
 
    Dim BinaryStream As Object
    Set BinaryStream = CreateObject("adodb.stream")
    BinaryStream.Type = adTypeBinary
    BinaryStream.Mode = adModeReadWrite
    BinaryStream.Open
 
    'Strips BOM (first 3 bytes)
    UTFStream.CopyTo BinaryStream
 
    'UTFStream.SaveToFile "d:\adodb-stream1.txt", adSaveCreateOverWrite
    UTFStream.Flush
    UTFStream.Close
 
    BinaryStream.SaveToFile "C:\users\wjx130\upload\test_text_export_utf-8.txt", adSaveCreateOverWrite
    BinaryStream.Flush
    BinaryStream.Close
End Sub