VB：如何读出unicode编码的txt文件内容

最新推荐文章于 2021-09-18 11:44:38 发布

rainstormmaster

最新推荐文章于 2021-09-18 11:44:38 发布

阅读量6.7k

点赞数 2

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： vb byte string function

本文链接：https://blog.youkuaiyun.com/rainstormmaster/article/details/1595322

VB 专栏收录该内容

13 篇文章

订阅专栏

本文介绍了一种使用VBScript读取Unicode文件的具体方法。通过2进制方式打开文件，读取数据到byte数组中，去除文件头（FF FE），再转换为字符串。此方法适用于需要处理Unicode文件的开发者。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

其实，这个问题很简单，可偏偏很多人不知道，于是写了这个
先用2进制方式打开文件，读出数据到byte数组中，然后用copymemory去掉文件头（头两个字符分别是FF FE（16进制））得到一个新的byte数组，最后利用strconv函数即可，下面给出代码：
Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, source As Any, ByVal Length As Long)

Private Function ReadUniFile(ByVal sFile As String) As String
    '没加错误处理，大家自己加吧
    Dim a As Long
    a = FileLen(sFile)
    ReDim buff(a - 1) As Byte
    ReDim buff1(a - 3) As Byte
    Open sFile For Binary As #1
    Get #1, , buff
    Close #1
    CopyMemory buff1(0), buff(2), a - 2
    Dim s As String
    s = StrConv(buff1, vbNarrow)
    ReadUniFile = s
End Function