目录
功能介绍
这个代码可以将VB变量的Unicode字符存为UTF-8格式的文本文件。
代码演示
'工程要引用 Microsoft ActiveX Data Objects 2.8,下面两个通用方法建议放在模块中
Public Sub SaveAsUTF8(ByVal Text As String,ByVal FileName As String)
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream
oStream.Open
oStream.Charset = "UTF-8"
oStream.Type = adTypeText
oStream.WriteText Text
oStream.SavetoFile FileName,adSaveCreateOverWrite
oStream.Close
End Sub
Public Function LoadAsUTF8(ByVal FileName As String) As String
Dim oStream As ADODB.Stream
Set oStream = New ADODB.Stream
oStream.Open
oStream.Charset = "UTF-8"
oStream.LoadFromFile FileName
LoadAsUTF8 = oStream.ReadText()
oStream.Close
End Function
原文地址:https://www.jb51.cc/vb/256905.html
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。