请选择 进入手机版 | 继续访问电脑版

玩酷之家

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 251|回复: 0

读取UTF-8文本文件到Text

[复制链接]

92

主题

97

帖子

361

积分

中级会员

Rank: 3Rank: 3

积分
361
发表于 2018-9-8 13:18:36 | 显示全部楼层 |阅读模式
调用方法:text1.text = ReadUTF8("c:\a.txt")

  1. '模块代码
  2. Public Function ReadUTF8(ByVal sUTF8File As String) As String
  3.      If Len(sUTF8File) = 0 Or Dir(sUTF8File) = vbNullString Then Exit Function
  4.      Dim ados As Object
  5.      Set ados = CreateObject("adodb.stream")
  6.      With ados
  7.          .Charset = "utf-8"
  8.          .Type = 2
  9.          .Open
  10.          .LoadFromFile sUTF8File
  11.          ReadUTF8 = .ReadText
  12.          .Close
  13.      End With
  14.      Set ados = Nothing
  15. End Function
复制代码



回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

Archiver|手机版|小黑屋|玩酷之家 ( 鄂ICP备14012049号-1 )

GMT+8, 2018-12-12 16:12 , Processed in 0.162623 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表