用VB读取unicode 编码的中英文字符混合的文本文件，中文显示乱码怎么解决？
更新日期：2024.05.02
用API函数，以下是在CSDN搜到的，自己调试了下，可以
--------------------------------------------------
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
Private Sub Command1_Click()
Dim str As String
str = ReadUniFile(App.Path + "\12.txt")
Text1.Text = str
End Sub
如果是 一般Unicode 可以（UTF-8 复杂多）
Unicode 文件首两字节应该是 0xFF（&HFF） 0xFE （&HFE）
每两个字节读一次 用ChrW（） 转为字符
人工转换……
open "[path]" for binary as #1
二进制一个一个读……
--------------------------------------------------
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
Private Sub Command1_Click()
Dim str As String
str = ReadUniFile(App.Path + "\12.txt")
Text1.Text = str
End Sub
如果是 一般Unicode 可以（UTF-8 复杂多）
Unicode 文件首两字节应该是 0xFF（&HFF） 0xFE （&HFE）
每两个字节读一次 用ChrW（） 转为字符
人工转换……
open "[path]" for binary as #1
二进制一个一个读……
