汉字转二进制，编码丢失如何解决?

baikaifang

例如汉字“水中燃烧”以ANSI方式编码的二进制值是 0xCBAED6D0C8BCC9D5，但在使用 StringToBinary 以 ANSI 编码 方式转换后得到的二进制值却是 0xCBAED6D0 ，后面的8位丢失了，然后再用 BinaryToString 以 ANSI 编码 方式转换回来后的汉字是“水中ŸĄ”，出现了乱码，请大家指定一下，如何用 ANSI编码方式 转换汉字后不丢失二进制值。

$Hex = StringToBinary("水中燃烧", 1)
MsgBox(0,"ANSI 编码", "“水中燃烧” 转二进制是：" & $Hex)
MsgBox(0,"ANSI 编码", "二进制 " & $Hex & " 转汉字是：" & BinaryToString($Hex, 1))
MsgBox(0,"正确的编码", "二进制 0xCBAED6D0C8BCC9D5 转汉字是：" & BinaryToString("0xCBAED6D0C8BCC9D5", 1))

上面提到的值 0xCBAED6D0C8BCC9D5 是我用工具 HttpWatch 捕捉网页所提交的表单得到的。

解决方法见4楼

ddx13

$Hex = StringToBinary("水中燃烧", 2)
MsgBox(0,"ANSI 编码", "“水中燃烧” 转二进制是：" & $Hex)
MsgBox(0,"ANSI 编码", "二进制 " & $Hex & " 转汉字是：" & BinaryToString($Hex, 2))
MsgBox(0,"正确的编码", "二进制 0xCBAED6D0C8BCC9D5 转汉字是：" & BinaryToString("0xCBAED6D0C8BCC9D5", 1))

baikaifang

谢谢楼上的回复，你的代码还不行，因为我现在需要知道的是如何把 "水中燃烧" 这个四个汉字直接转换成二进制 0xCBAED6D0C8BCC9D5 ，而不是使用 UTF 方式转换，为什么这么要求呢，因为我在用 "水中燃烧" 登陆一个网站的时候，该网站POST到服务器数据中的用户名是用 0xCBAED6D0C8BCC9D5 表示的，由于我需要做一个通用登陆器，所以必须直接将汉字转换成以上形式。 曾在论坛里看到有朋友说 编码转换 有字节、单字、双字、四字 等转换方式，1楼的代码 StringToBinary("水中燃烧", 1) 转换后，丢失了后面8位，会不会是因为AU3默认是以字节的方式转换的，因此会丢失后半部，所以请懂的朋友指导一下，谢谢！

baikaifang

问题解决了，在论坛里找到一段代码，是论坛的朋友 auto 写的，在这里谢谢了！

解决后的代码如下：

MsgBox(0,"",UrlEncode("水中燃烧"))

Func UrlEncode($Url)
Local $UrlLen
$UrlLen = StringLen($Url)
Local $EnStr,$UrlChar,$EnStr
For $i = 1 To $UrlLen Step 1
        $UrlChar = StringMid($Url, $i, 1)
                if ascw($UrlChar) > 256 Then
                        $str =StringReplace(StringToBinary($UrlChar&" ",1),"0x","")
                        $EnStr &= StringLeft($str,2) & StringRight($str,2)
                Else
                        $str =StringReplace(StringToBinary($UrlChar),"0x","")
                        $EnStr &= $str
                EndIf
Next
Return $EnStr
EndFunc

原贴地址：http://www.autoitx.com/forum.php ... hlight=%B1%E0%C2%EB

user3000

收藏，以后一定用得着！