如何读取UNICODE格式的中英文混合内容的文本文件并正确的显示到控件中。

[programfish]

如何读取UNICODE格式的中英文混合内容的文本文件并正确的显示到控件中。

[of123]

text1 = strconv(strdata, vbfromunicode)

[Tiger_Zhao]

Option Explicit

Private Sub Form_Load()
    Dim hFile As Integer
    Dim iBOM As Integer
    Dim bytes() As Byte
    
    hFile = FreeFile()
    Open "C:\1.txt" For Binary Access Read As #hFile
    Get #hFile, , iBOM
    If iBOM <> &HFEFF Then
        MsgBox "不是 Unicode 格式文件。", vbExclamation
        Close #hFile
        Exit Sub
    End If
    
    ReDim bytes(LOF(hFile) - 3)
    Get #hFile, , bytes
    Close #hFile
    
    Text1 = bytes
End Sub

[zhuweiping2003]

有用VC写的代码不

[jxufeng]

有啊，到vc版上问，除了unicode还有utf-8