Question

VB输出UTF-8编码的TXT文件？

Private Sub Command1_Click()
Dim a As String
a = Text1.Text
Dim fFile As Integer
fFile = FreeFile
Open "1.txt" For Append As fFile
Print #fFile, a
Close fFile
＃————————
这样保存的记事本是默认的ANSI编码的，如果想保存成UTF-8编码要怎么改啊？谢谢大家了！我是新手……
End Sub

Answer 1

试下这个

Function SaveTextAsUTF8(filePath, Text)
Const adTypeText = 2
Const adSaveCreateOverWrite = 2

'Create Stream object
Dim TextStream
Set TextStream = CreateObject("ADODB.Stream")
With TextStream
.Open
.CharSet = "UTF-8"
.Position = TextStream.Size
.WriteText Text
.SaveToFile filePath, adSaveCreateOverWrite
.Close
End With
Set TextStream = Nothing

End Function