在线求中文转GB2312编码的urlencode函数

sunafter · 发表于 2009-9-12 21:36:21

本帖最后由 sunafter 于 2009-9-13 00:19 编辑

只搜到一个中文转UTF8的函数，但是要用到中文转GB2312编码的函数，本人比较菜，写不出来，求大侠告知！
比如http://www.baidu.com/s?wd=%C4%E3%BA%C3
就是百度搜索你好，我想要的函数就是一个能将“你好”转换成“%C4%E3%BA%C3”
感谢afan大侠的帮助，问题已经解决！

sunafter · 发表于 2009-9-12 22:35:58

急求啊，谢谢！！！

sunafter · 发表于 2009-9-12 22:37:34

这是一个将中文转换成UTF8的函数，我想要转换成ANSI(gb2312)编码，求啊！

Func _UnicodeURLEncode($UnicodeURL)        ;==>_UnicodeURLEncode
    Local $UnicodeBinaryLength,$UnicodeBinary,$UnicodeBinary2
        $UnicodeBinary = StringToBinary ($UnicodeURL,4)
    $UnicodeBinary2 = StringReplace($UnicodeBinary, '0x', '', 1)
    $UnicodeBinaryLength = StringLen($UnicodeBinary2)
    Local $EncodedString,$UnicodeBinaryChar,$EncodedString
    For $i = 1 To $UnicodeBinaryLength Step 2
        $UnicodeBinaryChar = StringMid($UnicodeBinary2, $i, 2)
        If StringInStr("$-_.+!*'(),;/?:@=&abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ1234567890", BinaryToString ('0x' & $UnicodeBinaryChar,4)) Then
            $EncodedString &= BinaryToString ('0x' & $UnicodeBinaryChar)
        Else
            $EncodedString &= '%' & $UnicodeBinaryChar
        EndIf
    Next
    Return $EncodedString
EndFunc

afan · 发表于 2009-9-12 22:43:27

非要函数吗？那我整一个试试

afan · 发表于 2009-9-12 23:12:40

MsgBox(0, 0, cn2ansi('你好'))

Func cn2ansi($wchar)
        Dim $kg = ''
        For $i = 1 To StringLen($wchar)
                $kg &= ' '
        Next
        Local $wz = StringToBinary($wchar & $kg), $anstr = '%'
        For $ii = 3 To StringLen($wz) Step 2
                $anstr &= BinaryToString(StringMid($wz, $ii, 2)) & '%'
        Next
        Return StringTrimRight($anstr, 1)
EndFunc   ;==>cn2ansi

sunafter · 发表于 2009-9-13 00:17:49

MsgBox(0, 0, cn2ansi('你好'))

Func cn2ansi($wchar)
Dim $kg = ''
For $i = 1 To StringLen($wchar)
$kg &= ' '
Next
Local $wz = StringToBinary($wchar & $kg), $anstr = '%'
For $ii = 3 To St ...
afan 发表于 2009-9-12 23:12

膜拜啊，感谢！！！！

bing614 · 发表于 2009-9-13 03:12:06

本帖最后由 bing614 于 2009-9-13 03:15 编辑

此函数AU3已经有了。

#include <INet.au3>
MsgBox(0, "",  _INetExplorerCapable("中国人"))

sunafter · 发表于 2009-9-13 03:29:07

此函数AU3已经有了。#include
MsgBox(0, "", _INetExplorerCapable("中国人"))
bing614 发表于 2009-9-13 03:12

结果不正确啊，少了一部分

bing614 · 发表于 2009-9-13 05:58:07

#include <INet.au3>

MsgBox(0, "", _INetExplorerCapable("中国人"))

liangxm · 发表于 2015-11-26 17:06:16

afan 发表于 2009-9-12 23:12

这为啥要搞个$kg，后面多了那么多空格？

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

在线求中文转GB2312编码的urlencode函数

评分