欢迎光临

木子屋

标题: VB6.0读写utf-8文本文件示例

作者: dnawo

日期: 2012-05-01 10:02 PM

分类: Win编程

内容: VB的Scripting.FileSystemObject对象只能处理ANSI编码的文本文件，对于utf-8编码的文件，我们需要使用ADODB.Stream对象来操作。
1.VB写入utf-8文本文件
复制内容到剪贴板 程序代码Dim adostream As New ADODB.Stream
With adostream
.Type = adTypeText
.Mode = adModeReadWrite
.Charset = "utf-8"
.Open
.Position = 0
.WriteText "木子屋-http://www.mzwu.com/"
.SaveToFile "D:\test.txt", adSaveCreateOverWrite
.Close
End With
Set adostream = Nothing
2.VB读取utf-8文本文件
复制内容到剪贴板 程序代码Dim adostream As New ADODB.Stream
With adostream
.Type = adTypeText
.Mode = adModeReadWrite
.Charset = "utf-8"
.Open
.LoadFromFile "D:\test.txt"
MsgBox .ReadText
.Close
End With
Set adostream = Nothing

+ 查看当前日志评论 (0)

登录

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.586 ms

返回

标题: VB6.0读写utf-8文本文件示例

你没有权限发表评论

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.586 ms

返回

暂无评论

返回

────────────

木子屋

PJBlog3 v3.2.9.518 Inside.

Processed In 1.633 ms

返回