u6697\u9ed1\u897f\u6e38\u8bb0 这样的编码如何转换为中文？

razc

如何在AU3上里面转换出来！

kevinch

1. $str="\u6697"
   
2. $str=StringReplace($str,"\u","0x")
   
3. MsgBox(0,"",ChrW($str))

复制代码

这样试下

lpxx

解密结果 暗黑西游记

去掉\u,还原十六进制就可以了。

lpxx

依照2楼的代码

1. 
   
2. $str = "\u0020\u0041\u0075\u0074\u006f\u0049\u0074\u4e2d\u6587\u8bba\u575b"
   
3. $a = StringSplit(StringReplace($str, "\u", Chr(44)), Chr(44))
   
4. $b = ""
   
5. For $i = 2 To $a[0]
   
6.         $b = $b & ChrW("0x" & $a[$i])
   
7. Next
   
8. MsgBox(0, "", $b)
   

复制代码

komaau3

这么多答案 ，原理一样 我这效率可能偏慢 不过适合混杂编码文本处理

1. Local $str = '\u6697\u9ed1\u897f\u6e38\u8bb0'
   
2. 
   
3. ConsoleWrite(UniDecode($str) & @CRLF)
   
4. 
   
5. Func UniDecode($sUni, $sExp = '\\u')
   
6.         Local $sStr = ''
   
7.         $sHex = StringRegExp($sUni, $sExp & '(\w{4})', 3)
   
8.         If @error = 0 Then
   
9.         For $i = 0 To UBound($sHex) - 1
   
10.                         $sText = ChrW(Dec($sHex[$i]))
    
11.                         $sStr = StringRegExpReplace($sUni, $sExp & $sHex[$i], $sText, 1)
    
12.                         $sUni = $sStr
    
13.         Next
    
14.         EndIf
    
15.         Return $sStr
    
16. EndFunc   ;==>UniDecode

复制代码

whitehead

标记一下，备用