用户登录  |  用户注册
首 页源码下载网络学院最新源码源码排行屏蔽广告
当前位置:新兴网络 > 网络学院 > 编程开发 > Visual Basic

VB 读取UTF-8编码文件函数

减小字体 增大字体 作者:佚名  来源:本站整理  发布时间:2010-08-14 11:57:00
VBScript code复制代码
参数:Path 文件路径
      Unicode 文件编码
Public Function File_get_contents(Path As String, Optional Unicode = "GB2312")

    Dim arrBinary() As Byte

    Open Path For Binary As #1
        ReDim arrBinary(LOF(1) - 1)
        Get #1, , arrBinary()
    Close #1

    File_get_contents = BytesToBstr(arrBinary, Unicode)

End Function

Public Function BytesToBstr(Binary, Unicode)
     Dim objstream As Object
     Set objstream = CreateObject("ADODB.Stream")
     objstream.Type = 1
     objstream.Mode = 3
     objstream.Open
     objstream.Write Binary
     objstream.Position = 0
     objstream.Type = 2
     objstream.Charset = Unicode
     BytesToBstr = objstream.ReadText
     objstream.Close
End Function

'读取UTF-8编码文件测试
Private Sub Form_Load()
    Text1.Text = File_get_contents("c:\1.txt", "UTF-8")
End Sub

Tags:文件读取 UTF-8 GB2312

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(1)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

网络学院评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论