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

玩酷之家

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

读取unicode文本文件到Text

[复制链接]

92

主题

97

帖子

361

积分

中级会员

Rank: 3Rank: 3

积分
361
发表于 2018-9-8 13:52:20 | 显示全部楼层 |阅读模式
使用方法:text1.text = ReadUniFile("c:\a.txtl")

  1. '模块代码
  2. Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)

  3. Public Function ReadUniFile(ByVal sFile As String) As String
  4.     Dim a As Long
  5.     a = FileLen(sFile)
  6.     ReDim buff(a - 1) As Byte
  7.     ReDim buff1(a - 3) As Byte
  8.     Open sFile For Binary As #1
  9.     Get #1, , buff
  10.     Close #1
  11.     CopyMemory buff1(0), buff(2), a - 2
  12.     Dim s As String
  13.     s = StrConv(buff1, vbNarrow)
  14.     ReadUniFile = s
  15. End Function
复制代码



回复

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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