请教一个乱码恢复的问题.

Question

1.现在的数据  装街环仿
2.原来的数据  白纸坊东路小弟我也是第一次遇到这样的乱码还要恢复的.
请各位指教一下要怎么做才能恢复原来的数据.
一时无从下手.

Answer 1

应该是编码方式的问题吧，你转换成Unicode看看

Answer 2

不象只是因为UNICODE转换,可能还有别的什么变换

Answer 3

我知道了！这个是作了转换的，汉字：白 的区位码是：B0 D7；而汉字： 装 的区位码是： D7 B0 也就是 把原汉字区位码的高低位字节交换后形成新的区位码再求汉字。

Answer 4

Option ExplicitPrivate Sub Command1_Click()
    Dim intP As Integer
    Dim bytP As Byte
    Dim uniByte() As Byte
On Error GoTo errSub
    If Text1.Text = "" Then Exit Sub
    uniByte = StrConv(Text1.Text, vbFromUnicode)
    For intP = LBound(uniByte) To UBound(uniByte) - 1 Step 2
        bytP = uniByte(intP)
        uniByte(intP) = uniByte(intP + 1)
        uniByte(intP + 1) = bytP
    Next intP
    Text2.Text = StrConv(uniByte, vbUnicode)
    Exit Sub
errSub:End SubPrivate Sub Form_Load()
    Label1.Caption = "原字符串"
    Label2.Caption = "新字符串"
    Command1.Caption = "转换"
    Text1.Text = "白纸坊东路"
    Text2.Text = ""
End Sub