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

来源：互联网发布：linux 常用软件包下载编辑：程序博客网时间：2024/05/22 11:43

其实，这个问题很简单，可偏偏很多人不知道，于是写了这个
先用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