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

razc · 发表于 2012-7-20 20:50:28

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

kevinch · 发表于 2012-7-20 21:05:43

$str="\u6697"
$str=StringReplace($str,"\u","0x")
MsgBox(0,"",ChrW($str))

这样试下

lpxx · 发表于 2012-7-20 22:34:10

本帖最后由 lpxx 于 2012-7-20 22:37 编辑

解密结果暗黑西游记

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

lpxx · 发表于 2012-7-20 23:04:45

依照2楼的代码

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

komaau3 · 发表于 2012-7-21 07:41:09

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

Local $str = '\u6697\u9ed1\u897f\u6e38\u8bb0'
 
ConsoleWrite(UniDecode($str) & @CRLF)
 
Func UniDecode($sUni, $sExp = '\\u')
        Local $sStr = ''
        $sHex = StringRegExp($sUni, $sExp & '(\w{4})', 3)
        If @error = 0 Then
        For $i = 0 To UBound($sHex) - 1
                        $sText = ChrW(Dec($sHex[$i]))
                        $sStr = StringRegExpReplace($sUni, $sExp & $sHex[$i], $sText, 1)
                        $sUni = $sStr
        Next
        EndIf
        Return $sStr
EndFunc   ;==>UniDecode

whitehead · 发表于 2012-7-22 12:10:22

标记一下，备用

		自动登录	找回密码
密码			加入

[效率算法] u6697\u9ed1\u897f\u6e38\u8bb0 这样的编码如何转换为中文？

相关帖子