Win编程 订阅所有【Win编程】的日志

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

编辑:dnawo 日期:2012-05-01

字体大小: 小 中 大
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


上一篇: UML辅助网站规划和设计指南
下一篇: ickd.cn-爱查快递API文档
文章来自: 本站原创
引用通告: 查看所有引用 | 我要引用此文章
Tags:
最新日志:
评论: 0 | 引用: 0 | 查看次数: 7045
发表评论
请登录后再发表评论！