Why is there garbled characters when reading Japanese?

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

It's not your fault, it's the system's fault.
Japanese and Chinese encoding methods are the same.
It's just that the controls you use to display Japanese do not support multiple languages.
I believe it can be displayed normally under the Japanese system (it is estimated that the Chinese will become garbled)

cys748

wdh840822:)
I already did it in Japanese, but it still became garbled when it was Japanese
what happened? ^ _ ^

cys748

555, does anyone know how to fix the code, it won't work for a long time, the little girl please "prawn" ^ _ ^

rr091289

Save as unicode file

cys748

rr091289:)
According to your method, it is still not feasible to save the file as UNICODE. I do n’t know why ..
And in principle, files cannot be changed, only through code changes
Is there any other way ^ _ ^

fan3786

Is it easy to use now?
   Use the CONVSTR function to convert!