Genau diese Func hab ich aus Spass vor 2 Tagen auch gecoded
Wenn du willst, kannst du ja mal einen Speedvergleich durchführen
Spoiler anzeigen
#include <array.au3>
#include <String.au3>
Func _StringToBinary($sString)
Local $Return = ""
Local $a
$a = StringSplit(_StringToHex($sString), "")
For $i = 1 To $a[0] Step +1
Switch $a[$i]
Case "0"
$Return &= "0000"
Case "1"
$Return &= "0001"
Case "2"
$Return &= "0010"
Case "3"
$Return &= "0011"
Case "4"
$Return &= "0100"
Case "5"
$Return &= "0101"
Case "6"
$Return &= "0110"
Case "7"
$Return &= "0111"
Case "8"
$Return &= "1000"
Case "9"
$Return &= "1001"
Case "A"
$Return &= "1010"
Case "B"
$Return &= "1011"
Case "C"
$Return &= "1100"
Case "D"
$Return &= "1101"
Case "E"
$Return &= "1110"
Case "F"
$Return &= "1111"
EndSwitch
Next
Return $Return
EndFunc ;==>_StringToBinary
Func _BinaryToString($sString)
Local $Return = ""
Local $a
$a = StringRegExp($sString, '.{1,4}', 3)
For $i = 0 To uBound($a)-1 Step +1
Switch $a[$i]
Case 0000
$Return &= "0"
Case 0001
$Return &= "1"
Case 0010
$Return &= "2"
Case 0011
$Return &= "3"
Case 0100
$Return &= "4"
Case 0101
$Return &= "5"
Case 0110
$Return &= "6"
Case 0111
$Return &= "7"
Case 1000
$Return &= "8"
Case 1001
$Return &= "9"
Case 1010
$Return &= "A"
Case 1011
$Return &= "B"
Case 1100
$Return &= "C"
Case 1101
$Return &= "D"
Case 1110
$Return &= "E"
Case 1111
$Return &= "F"
EndSwitch
Next
$Return = _HexToString($Return)
Return $Return
EndFunc ;==>_BinaryToString
$Blub = _BinaryToString(_StringToBinary("Test ^^"))
msgbox(0,"",$Blub)