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

玩酷之家

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

读取UTF-8文本文件到Text

[复制链接]

93

主题

98

帖子

370

积分

中级会员

Rank: 3Rank: 3

积分
370
发表于 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, 2019-2-18 12:44 , Processed in 0.163429 second(s), 18 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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