BinaryEx

[DXRW4E]

expandcollapse popup

; #FUNCTION# ========================================================================================================================
; Name...........: _IntToBinaryEx
; Description ...: Converts a Int into Binary.
; Syntax.........: _IntToBinaryEx($iNumber[, $iFlags])
; Parameters ....: $iNumber - Int 32Bit Number
;                  $iFlags  - Optional, TrimLeft NULL Binary (Default = 7)
; Return values .: Success  - If the function succeeds, the return A String Binnary, If the function fails, the return value is None ''
; Author ........: DXRW4E
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _IntToBinaryEx(111) - Return "01101111"
; Note ..........:
; ===================================================================================================================================
Func _IntToBinaryEx(Const ByRef $iNumber, $iFlags = 7)
    Local $sBinary, $iBit = 2147483648
    For $y = 1 To 32
        $sBinary &= BitAND($iNumber, $iBit) ? "1" : "0"
        $iBit /= 2
    Next
    If $iFlags Then $sBinary = StringRegExpReplace($sBinary, "^(0000){1," & $iFlags & "}", "")
    Return $sBinary
EndFunc


; #FUNCTION# ========================================================================================================================
; Name...........: _BinaryToIntEx
; Description ...: Converts a binary variant into a Int.
; Syntax.........: _BinaryToIntEx($sBinary)
; Parameters ....: $sBinary - String Binary
; Return values .: Success  - If the function succeeds, the return A Int 32 Bit, If the function fails, the return value is 0
; Author ........: DXRW4E
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _BinaryToIntEx("01101111") - Return 111
; Note ..........:
; ===================================================================================================================================
Func _BinaryToIntEx($sBinary)
    Local $iNumber = 0, $iBit = 1
    $sBinary = StringSplit($sBinary, "", 1)
    If Not $sBinary[0] Then Return $iNumber
    For $i = $sBinary[0] To 1 Step -1
        If $sBinary[$i] == "1" Then $iNumber += $iBit
        $iBit *= 2
    Next
    Return $iNumber
EndFunc


; #FUNCTION# ========================================================================================================================
; Name...........: _StringToBinaryEx
; Description ...: Converts a string into Binary
; Syntax.........: _StringToBinaryEx($sString[, $iFlags])
; Parameters ....: $sString - String\Text\Data
;                  $iFlags  - Optional
;                  |0 (or False) - UTF-16
;                  |1 (or True)  - ANSI (Default)
; Return values .: Success  - If the function succeeds, the return A String Binnary, If the function fails, the return value is None ''
; Author ........: DXRW4E
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _StringToBinaryEx("DXRW4E") - Return "010001000101100001010010010101110011010001000101"
; Note ..........:
; ===================================================================================================================================
Func _StringToBinaryEx(Const ByRef $sString, $iFlags = 1)
    Local $sBinary, $iBit, $ieBit = ($iFlags ? 128 : 32768), $iEncoding = ($iFlags ? 8 : 16)
    Local $aArray = StringToASCIIArray($sString)  ;; StringToASCIIArray($sString, 0, Default, BitAND($iFlags, 1))
    For $i = 0 To UBound($aArray) - 1
        $iBit = $ieBit
        For $y = 1 To $iEncoding
            $sBinary &= BitAND($aArray[$i], $iBit) ? "1" : "0"
            $iBit /= 2
        Next
    Next
    Return $sBinary
EndFunc


; #FUNCTION# ========================================================================================================================
; Name...........: _BinaryToStringEx
; Description ...: Converts a Binary variant into a string.
; Syntax.........: _BinaryToStringEx($sBinary[, $iFlags])
; Parameters ....: $sBinary - String Binary
;                  $iFlags  - Optional
;                  |0 (or False) - UTF-16
;                  |1 (or True)  - ANSI (Default)
; Return values .: Success  - If the function succeeds, the return A String, If the function fails, the return value is None ''
; Author ........: DXRW4E
; Modified.......:
; Remarks .......:
; Related .......:
; Link ..........:
; Example .......: _BinaryToStringEx("010001000101100001010010010101110011010001000101") - Return "DXRW4E"
; Note ..........:
; ===================================================================================================================================
Func _BinaryToStringEx($sBinary, $iFlags = 1)
    Local $sString, $iBit, $iNumber, $iEncoding = ($iFlags ? 7 : 15)
    $sBinary = StringSplit($sBinary, "", 1)
    If Not $sBinary[0] Or Mod($sBinary[0], ($iEncoding + 1)) Then Return SetError(1, 0, "")
    For $i = 1 To $sBinary[0] Step ($iEncoding + 1)
        $iBit = 1
        $iNumber = 0
        For $y = $i + $iEncoding To $i Step -1
            If $sBinary[$y] == "1" Then $iNumber += $iBit
            $iBit *= 2
        Next
        $sString &= ($iFlags ? Chr($iNumber) : ChrW($iNumber))
    Next
    Return $sString
EndFunc

MsgBox(0, "BinaryEx", _BinaryToIntEx("01101111") & " - " & _IntToBinaryEx(111))
MsgBox(0, "BinaryEx", _BinaryToStringEx("010001000101100001010010010101110011010001000101") & " - " & _StringToBinaryEx("DXRW4E"))

BinaryEx.au3

Edited June 12, 2014 by DXRW4E

[czyt]

Nice One，friend.

[kaesereibe]

or convert base with _strtoui64 & _i64toa
Function by eukalyptus

#include <MsgBoxConstants.au3>

Func _TranslateBase($sNumber, $iOldBase = 10, $iNewBase = 2) ; _TranslateBase() by eukalyptus
    If $iOldBase < 2 Or $iOldBase > 128 Or $iNewBase < 2 Or $iNewBase > 128 Then Return SetError(1, 1, False)
    Local $iNum, $aRes, $tChr = DllStructCreate("char[64];")
    If $iOldBase <> 10 Then
        $aRes = DllCall("msvcrt.dll", "uint64:cdecl", "_strtoui64", "str", $sNumber, "ptr", 0, "int", $iOldBase)
        If @error Then Return SetError(1, 2, False)
        $iNum = $aRes[0]
    Else
        $iNum = Int($sNumber)
    EndIf
    $aRes = DllCall("msvcrt.dll", "ptr:cdecl", "_i64toa", "int64", $iNum, "ptr", DllStructGetPtr($tChr), "int", $iNewBase)
    If @error Then Return SetError(1, 3, False)
    Return DllStructGetData($tChr, 1)
EndFunc   ;==>_TranslateBase

$decToBin = _TranslateBase(111, 10, 2)
$binToDec = _TranslateBase(01101111, 2, 10)

MsgBox(4096, "TranslateBase", "Decimal to Binary:" & @CRLF & "111 to " & $decToBin)
MsgBox(4096, "TranslateBase", "Binary to Decimal:" & @CRLF & "01101111 to " & $binToDec)

Edited June 13, 2014 by jNizM