'+++++++++++++++++++++++++++++++++++++
' Get output object
' Return output object
' eg.
' Dim wo as object
' Call GetWriteObject(wo)
'+++++++++++++++++++++++++++++++++++++
Function GetWriteObject(ByRef TextStream As Object)
Set TextStream = CreateObject("ADODB.Stream")
With TextStream
.Mode = 3
.Open
.CharSet = "UTF-8"
.Position = TextStream.Size
End With
End Function
'+++++++++++++++++++++++++++++++++++++
' Write content to object
' eg.
' Dim wo as object
' Call GetWriteObject(wo)
' strA = "This is sample."
' writeContent(strA, wo)
'+++++++++++++++++++++++++++++++++++++
Function WriteContent(ByVal strContent As String, ByRef TextStream As Object)
TextStream.WriteText strContent
End Function
'+++++++++++++++++++++++++++++++++++++
' Write content to file
' eg.
' Dim wo as object
' Call GetWriteObject(wo)
' strA = "This is sample."
' writeContent(strA, wo)
' WriteFile(strPath, wo)
'+++++++++++++++++++++++++++++++++++++
Function WriteFile(ByVal strFilename As String, ByRef TextStream As Object, Optional ByVal adSaveCreateOverWrite As String = "2")
TextStream.SaveToFile strFilename, adSaveCreateOverWrite
TextStream.Close
End Function
读取成UTF-8,并以UTF-8编码写入文本文件