Konvertiert einen String zu Binärdaten.
StringToBinary ( expression [, flag] )
| expression | Ausdruck der zu Binärdaten konvertiert werden soll. |
| flag | [optional] Setzt das Format wie der String als binär gespeichert werden soll: flag = 1 (Standard), Binärdaten sind ANSI flag = 2, Binärdaten sind UTF16 Little Endian flag = 3, Binärdaten sind UTF16 Big Endian flag = 4, Binärdaten sind UTF8 |
Example()
Func Example()
; Definiert den String der später konvertiert wird.
; Anmerkung: Dieser String könnte in der Hilfe Datei und sogar in manchen Texteditoren als ?? dargestellt werden.
; Dieses Beispiel wurde als UTF-8 mit BOM gespeichert.
; Es sollte in Editoren die auf BOM Basis veränderbare Codeseiten unterstützen korrekt angezeigt werden.
Local Const $sString = "Hallo - ??"
; Temporäre Variablen in denen die Konvertierungsresultate gespeichert werden.
; $sBinary wird den Originalstring in Binärform enthalten und
; $sConverted wird das Resultat enthalten nachdem es in das ursprüngliche Format gebracht wurde
Local $sBinary, $sConverted
; Konvertiert den originalen UTF-8 String in einen ANSI kompatiblen Binärstring.
$sBinary = StringToBinary($sString)
; Konvertiert den ANSI kompatiblen Binärstring zurück in einen String.
$sConverted = BinaryToString($sBinary)
; Zeigt die Ergebnisse. Die letzten beiden Zeichen werden als ?? dargestellt, da sie in ANSI nicht repräsentiert werden können.
DisplayResults($sString, $sBinary, $sConverted, "ANSI")
; Konvertiert den originalen UTF-8 String in einen UTF16-LE Binärstring.
$sBinary = StringToBinary($sString, 2)
; Konvertiert den UTF16-LE Binärstring zurück in einen String.
$sConverted = BinaryToString($sBinary, 2)
; Zeigt die Ergebnisse.
DisplayResults($sString, $sBinary, $sConverted, "UTF16-LE")
; Konvertiert den originalen UTF-8 String in einen UTF16-LE Binärstring.
$sBinary = StringToBinary($sString, 3)
; Konvertiert den UTF16-LE Binärstring zurück in einen String.
$sConverted = BinaryToString($sBinary, 3)
; Zeigt die Ergebnisse.
DisplayResults($sString, $sBinary, $sConverted, "UTF16-BE")
; Konvertiert den originalen UTF-8 String in einen UTF-8 Binärstring.
$sBinary = StringToBinary($sString, 4)
; Konvertiert den UTF-8 Binärstring zurück in einen String.
$sConverted = BinaryToString($sBinary, 4)
; Zeigt die Ergebnisse.
DisplayResults($sString, $sBinary, $sConverted, "UTF8")
EndFunc ;==>Example
; Hilfsfunktion welche die Nachricht für die Darstellung formatiert. Sie empfängt folgende Parameter:
; $sOriginal - Der originale String vor der Konvertierung.
; $sBinary - Der originale String nachdem er in Binärform konvertiert wurde.
; $sConverted - Der originale String nachdem er in Binärform und zurück konvertiert wurde.
; $sConversionType - Ein für den Benutzer lesbarer Name für den bei der konvertierung verwendeten Kodierungstyp.
Func DisplayResults($sOriginal, $sBinary, $sConverted, $sConversionType)
MsgBox(4096, "", "Original:" & @CRLF & $sOriginal & @CRLF & @CRLF & "Binär:" & @CRLF & $sBinary & @CRLF & @CRLF & $sConversionType & ":" & @CRLF & $sConverted)
EndFunc ;==>DisplayResults