Konvertiert einen UTF-16 (Wide Character) -String in einen Multibyte-String
#include <WinAPIConv.au3>
_WinAPI_WideCharToMultiByte ( $vUnicode [, $iCodePage = $CP_ACP [, $bRetNoStruct = True [, $bRetBinary = False]]] )
| $vUnicode | Text, DllStruct oder Zeiger zu einer Byte Arraystruktur welches den umzuwandelnden Unicode-Text enthält |
| $iCodePage | [optional] Legt die Kodierungsseite für die Umwandlung fest: $CP_ACP (0) - Windows ANSI Kodierungsseite des aktuellen Systems $CP_OEM (1) - OEM Kodierungsseite des aktuellen Systems $CP_MACCP (2) - Macintosh Kodierungsseite des aktuellen Systems $CP_THREAD_ACP (3) - Die Windows ANSI Kodierungsseite für den aktuellen Thread $CP_SYMBOL (42) - Symbol-Kodierungsseite $CP_UTF7 (65000) - UTF-7 $CP_UTF8 (65001) - UTF-8 |
| $bRetNoStruct | [optional] Flag welches festlegt, ob der Rückgabewert als String/Binärdatei oder DllStruct erfolgen soll (Standard True : String/Binär) |
| $bRetBinary | [optional] Flag welches festlegt, ob der Rückgabewert als Binärstring oder String erfolgen soll (Standard False : String) |
| Erfolg: | ein String/Binärdatei oder DllStructm welches ein Multibyte-String/Binärdatei enthält. |
| Fehler: | Setzt das @error Flag auf ungleich 0. Es ist _WinAPI_GetLastError() aufzurufen um erweiterte Fehlerinformationen zu erhalten. |
rdnet eine UTF-16-Zeichenfolge (Wide Character) einer neuen Zeichenfolge zu.
Der neue String muss nicht unbedingt aus einem Multibyte-Zeichensatz bestehen.
Das $bRetBinary-Flag ist für Benutzer von Multi-Byte-Codepages konzipiert und zwingt die Funktion, einen 0-terminierten Binärstring oder eine Struktur zurückzugeben, die sie abhängig von $bRetNoStruct enthält.
Suche nach WideCharToMultiByte in der MSDN Bibliothek.
#include <MsgBoxConstants.au3>
#include <WinAPIConv.au3>
;~ Global Const $CP = 0 ; ACP Standard Codepage
;~ Global Const $CP = GetACP() ; aktuelle Codepage
;~ Global Const $CP = 65001 ; UTF-8 sicherlich der beste Wert
Global Const $CP = 932 ; SHIFT_JIS
Local $sText = "データのダウンロードに失敗しました。"
;~ Local $sText = "abcdefg 1234567890"
Local $sOutput = @TAB & @TAB & "Codepage =" & $CP & @CRLF & @CRLF
$sOutput &= @TAB & "String[" & StringLen($sText) & "] = " & $sText & @CRLF & @CRLF
; ============== _WinAPI_WideCharToMultiByte Test ==============
Local $sTest = _WinAPI_WideCharToMultiByte($sText, $CP, True, False)
$sOutput &= "WideChar in String (MultiByte)" & @TAB & VarGetType($sTest) & " " & StringLen($sTest) & " :" & @CRLF & $sTest & @CRLF & @CRLF
$sTest = _WinAPI_WideCharToMultiByte($sText, $CP, True, True)
$sOutput &= "WideChar in Binary" & @TAB & VarGetType($sTest) & " " & BinaryLen($sTest) & " :" & @CRLF & $sTest & @CRLF & @CRLF
; ============== _WinAPI_MultiByteToWideChar Test ==============
Local $sMultiByte = _WinAPI_WideCharToMultiByte($sText, $CP, True, False)
$sOutput &= @CRLF & @TAB & "MultiByte[" & StringLen($sMultiByte) & "] = " & $sMultiByte & @CRLF & @CRLF
Local $tStruct = _WinAPI_MultiByteToWideChar($sMultiByte, $CP, 0, False)
$sOutput &= "MultiByte in Struct" & @TAB & @TAB & VarGetType($tStruct) & " " & DllStructGetSize($tStruct) & " :" & @CRLF & DllStructGetData($tStruct, 1) & @CRLF & @CRLF
$sTest = _WinAPI_MultiByteToWideChar($sMultiByte, $CP, 0, True)
$sOutput &= "MultiByte in String" & @TAB & VarGetType($sTest) & " " & StringLen($sTest) & " :" & @CRLF & $sTest & @CRLF & @CRLF
Local $iMB_TYPE = 0
If $sTest == $sText Then
$sOutput &= @CRLF & @TAB & @TAB & "Konvertierung OK"
Else
$sOutput &= @CRLF & @TAB & @TAB & " !!! Fehler bei der Konvertierung !!!"
$iMB_TYPE = $MB_ICONERROR
EndIf
MsgBox($MB_SYSTEMMODAL + $iMB_TYPE, "Ergebnisse", $sOutput)
Func GetACP()
Local $aResult = DllCall("kernel32.dll", "int", "GetACP")
If @error Or Not $aResult[0] Then Return SetError(@error + 20, @extended, "")
Return $aResult[0]
EndFunc ;==>GetACP