为什么读日文时会有乱码？

cys748

Dim Revdstr() As Byte
'    Dim abc       As String
    Dim i         As Integer
    Dim n         As Integer
    Dim Hstr      As String '16
    Dim DECstr      As String '10
    Dim Data()  As String

    Open App.Path & "\" & "HELP.MSG" For Binary As #2
        ReDim Revdstr(LOF(2) - 1)
            Get #2, , Revdstr
'            abc = StrConv(Revdstr, vbUnicode)   '$$
    Close #2

    For i = 0 To UBound(Revdstr)
        Hstr = HEX(Revdstr(i))
        DECstr = DECstr & Chr(Revdstr(i))
'        Debug.Print Hstr    'tests
        If Mid(Hstr, 1, 1) = 0 Then
            ReDim Preserve Data(n) As String
            If n < n + 1 Then
                Data(n) = Left(DECstr, Len(DECstr))
                Debug.Print Data(n) 'tests
                n = n + 1
                DECstr = ""
            End If
        End If
    Next

wdh840822

不是你的错,是系统的错.
日文和中文编码方法一样的.
只是你用来显示日文的控件不支持多语言.
相信在日文系统下可以正常显示(估计到时中文变成乱码了)

cys748

wdh840822 ：）
我已经是在日文下做的了，可是还是到日语的时候就变成乱码
怎么回事？^_^

cys748

555,有没有人知道代码应该如何修正呢，改了很久也不行，小女子拜托各位"大虾"喽^_^

rr091289

保存为unicode文件

cys748

rr091289 :)
按你的方法我把文件另存为UNICODE依然不可行，不知道是什么原因..
而且原则上文件是不可以改变的，只能通过代码更改
有其他办法么^_^

fan3786

现在好用了么??
   使用CONVSTR函数转换!