#include <WinAPI.au3>
#include <FileConstants.au3>
#include "Quoted-printable.au3"

Global $sSourceString, $sDestString

; Beispiel 1 :
; ------------
; --> Störung
$sSourceString = 'St=C3=B6rung'
$sDestString   = _QuotedPrintable_DecodeEncodedWord("=?utf-8?Q?" & $sSourceString & "?=")
MsgBox(64, 'Beispiel 1 : ', 'Original : ' & $sSourceString & @CRLF & @CRLF & 'Decoded : ' & $sDestString)
ConsoleWrite("+ Original : " & $sSourceString & @CRLF)
ConsoleWrite("> Decoded  : " & _WinAPI_WideCharToMultiByte($sDestString, 65001) & @CRLF)


; Beispiel 2 :
; ------------
; --> Dies ist ein längerer großer Text mit den Umlauten Ä Ö und Ü sowie ä ö und ü. Außerdem das sz, also ß und Zeichen wie ? % $ § & !
$sSourceString = 'Dies ist ein l=C3=A4ngerer gro=C3=9Fer Text mit den Umlauten =C3=84 =C3=96 und =C3=9C sowie =C3=A4 =C3=B6 und =C3=BC. Au=C3=9Ferdem das sz, also =C3=9F und Zeichen wie ? % $ =C2=A7 & !'
$sDestString   = _QuotedPrintable_DecodeEncodedWord("=?utf-8?Q?" & $sSourceString & "?=")
MsgBox(64, 'Beispiel 1 : ', 'Original : ' & $sSourceString & @CRLF & @CRLF & 'Decoded : ' & $sDestString)
ConsoleWrite("+ Original : " & $sSourceString & @CRLF)
ConsoleWrite("> Decoded  : " & _WinAPI_WideCharToMultiByte($sDestString, 65001) & @CRLF)
; V2 : String in Textdatei schreiben :
Global Const $hFile = FileOpen(@ScriptDir & "\QuotedPrintable.txt", BitOR($FO_OVERWRITE, $FO_UTF8_NOBOM))
If Not @error Then
	FileWrite($hFile, $sDestString)
	FileClose($hFile)
Else
	MsgBox(16, 'Fehler : ', 'Fehler beim Schreiben in "\QuotedPrintable.txt" ! ' & @CRLF)
EndIf