liongodmien 发表于 2008-11-7 11:16:58

支持中文字符完整转换成ANSI二进制代码

看到有个朋友问了个中文不能完整转换成ＡＮＳＩ二进制码的问题，自己试了下情况，然后做了这个代码，希望对大家有所帮助

Func String2Binary($sString)
        Dim $BinaryString
        For $i = 1 To StringLen($sString)
                $M = StringMid($sString, $i, 1)
                For $K = 32 To 126
                        If $M = Chr($K) Then
                                $BinaryString &= BinaryMid(Binary($M), 1)
                                ContinueLoop 2
                        EndIf
                Next
                $BinaryString &= BinaryMid(Binary($M & $M), 1)
        Next
        $BinaryString = StringReplace($BinaryString, '0x', '')
        $BinaryString = Binary('0x' & $BinaryString)
        Return $BinaryString
EndFunc   ;==>String2Binary


再修改把循环检测去掉，提高运行速度：

Func String2Binary($sString)
        Dim $BinaryString
        For $i = 1 To StringLen($sString)
                $STR = StringMid($sString, $i, 1)
                If String(Binary($STR)) > 0xFF Then Return Binary($sString)
                If String(Binary($STR)) < 0x80 Then
                        $BinaryString &= String(Binary($STR))
                Else
                        $BinaryString &= String(Binary($STR & $STR))
                EndIf
        Next
        $BinaryString = StringReplace($BinaryString, '0x', '')
        Return Binary('0x' & $BinaryString)
EndFunc   ;==>String2Binary


[ 本帖最后由 liongodmien 于 2008-11-9 12:01 编辑 ]

itljl 发表于 2008-11-8 15:40:33

请教转换成二进码有些什么用？另外，还能够再转换回来吗？

yufengshizhe 发表于 2008-11-13 00:07:15

感觉论坛还是很冷清 不知道什么时候能回到往昔

itljl 发表于 2008-12-19 22:34:21

转二进制代码有什么用？

bachelor66 发表于 2009-5-27 15:25:37

怎么转回来呢？？？

fzlrfzlr 发表于 2009-6-2 04:01:06

谢谢分享~~~~~~

TheBelief 发表于 2009-6-30 11:31:00

顶你:face (33):

TheBelief 发表于 2009-6-30 11:31:02

顶你:face (33):

huangke 发表于 2009-7-1 16:25:16

二进制码转中文可以吗?

virsnow 发表于 2009-7-25 18:09:02

在做一份二进制转中文 的就好了

foxdcj 发表于 2009-7-27 17:38:34

可以做加密用啊.

bishan 发表于 2009-7-28 23:23:14

看不懂啊。

xqe 发表于 2009-8-5 21:35:41

倒过来怎么转啊？？

sonny 发表于 2010-1-17 11:19:59

我只能说太感谢了~~字符转换问题得到解决~~

sxltme 发表于 2010-1-17 19:43:24

我只能说太感谢了
页: [1] 2
查看完整版本: 支持中文字符完整转换成ANSI二进制代码