xyold1 发表于 2010-10-19 15:11:19

如何构造二进制数据类型[已解决]

本帖最后由 xyold1 于 2010-10-19 15:48 编辑

像字符串以一对英文双引号括起来
数字添加前缀 0x用十六进制来表示
可是二进制数据应怎么写呢？

要将一系列计算结果以0和1的形式组合在一起，再对其进行位运算，可是如果用字符串“010101”的方式无法进行运算，基础有点差，帮一下，谢谢啦

xyold1 发表于 2010-10-19 15:47:57

好象转成16进制就可以了

;===============================================================================

; 说明:   二进制转换为十六进制

; 语法:   _BinaryToHex($sBinStr[, $iLength = 0])

; 参数:   $sBinStr - 需要转换的二进制字符

;         $iLength - [可选] 返回长度

; 需要:   无

; 返回:   成功 - 十六进制字符

;         失败 - 空字符 "", 并设置 @error 到 1

; 备注:   限制: 输入最大 2147483647 个字符

;===============================================================================

Func _BinaryToHex($sBinStr, $iLength = 0)

      Local $sHexStr = ""

      If NOT StringRegExp($sBinStr, "^+$") Then Return SetError(1, 0, "")



      While Mod(StringLen($sBinStr), 4)

                $sBinStr = "0" & $sBinStr

      WEnd

      For $i = 1 To StringLen($sBinStr) Step 4

                Switch StringMid($sBinStr, $i, 4)

                        Case "0000"

                              $sHexStr &= "0"

                        Case "0001"

                              $sHexStr &= "1"

                        Case "0010"

                              $sHexStr &= "2"

                        Case "0011"

                              $sHexStr &= "3"

                        Case "0100"

                              $sHexStr &= "4"

                        Case "0101"

                              $sHexStr &= "5"

                        Case "0110"

                              $sHexStr &= "6"

                        Case "0111"

                              $sHexStr &= "7"

                        Case "1000"

                              $sHexStr &= "8"

                        Case "1001"

                              $sHexStr &= "9"

                        Case "1010"

                              $sHexStr &= "A"

                        Case "1011"

                              $sHexStr &= "B"

                        Case "1100"

                              $sHexStr &= "C"

                        Case "1101"

                              $sHexStr &= "D"

                        Case "1110"

                              $sHexStr &= "E"

                        Case "1111"

                              $sHexStr &= "F"

                EndSwitch

      Next



      If $iLength = 0 Then

                While StringLeft($sHexStr, 1) = "0"

                        $sHexStr = StringTrimLeft($sHexStr, 1)

                WEnd

      Else

                For $i = 1 To $iLength - StringLen($sHexStr)

                        $sHexStr = "0" & $sHexStr

                Next

      EndIf



      Return $sHexStr

EndFunc   ;==>_BinaryToHex

pusofalse 发表于 2010-10-19 17:10:44

RtlUnicodeStringToInteger
页: [1]
查看完整版本: 如何构造二进制数据类型[已解决]