Encoding UDF - Библиотека для работы с кодировками строк

#include <Encoding.au3>

$sANSI_String = "Тест"
$sUTF8_String = _Encoding_StringToUTF8($sANSI_String)

MsgBox(64, "UTF8 -> " & $sUTF8_String, "Is UTF-8 Format = " & _Encoding_IsUTF8Format($sUTF8_String))
MsgBox(64, "ANSI -> " & $sANSI_String, "Is UTF-8 Format = " & _Encoding_IsUTF8Format($sANSI_String))

#include <Encoding.au3>

$sOriginal_URL = "http://ru.wikipedia.org/wiki/Википедия"

$sStringURLToHex = _Encoding_URLToHex($sOriginal_URL)
$sStringHexToURL = _Encoding_HexToURL($sStringURLToHex)

MsgBox(64, 'Results', _
    StringFormat("Original: %s\n\nURL To Hex: %s\n\n\nOriginal: %s\n\nHex To URL: %s", _
        $sOriginal_URL, $sStringURLToHex, $sStringURLToHex, $sStringHexToURL))

#include <Functions_to_add_in_Encoding_UDF.au3>
Opt("MustDeclareVars", 1)

; Функцию _ConvertCyrillicStringTo1251 используем когда кодировка строки заранее неизвестна. Конвертит строки следующих 5 кодировок: KOI8-R, IBM-866, ISO-8859-5, HEX, UTF8
ConsoleWrite (_ConvertCyrillicStringTo1251 ("The only fun remained to me - put fingers in the mouth and whistle merrily") & @CRLF) ; latin
ConsoleWrite (_ConvertCyrillicStringTo1251 ("Мне осталась одна забава: пальцы в рот - и веселый свист.") & @CRLF) ; win
ConsoleWrite (_ConvertCyrillicStringTo1251 ("Џа®Є вЁ« бм ¤га­ п б« ў , зв® Ї®е Ў­ЁЄ п Ё бЄ ­¤ «Ёбв.") & @CRLF) ; dos
ConsoleWrite (_ConvertCyrillicStringTo1251 ("бИ! ЛБЛБС УНЕЫОБС РПФЕТС! нОПЗП Ч ЦЙЪОЙ УНЕЫОЩИ РПФЕТШ.") & @CRLF) ; koi
ConsoleWrite (_ConvertCyrillicStringTo1251 ("БвлФЭЮ ЬЭХ, звЮ п Т ±ЮУР ЭХ ТХаШЫ. іЮамЪЮ ЬЭХ, звЮ ЭХ ТХао вХЯХам.") & @CRLF) ; iso
ConsoleWrite (_ConvertCyrillicStringTo1251 ("Золотые далёкие дали! Всё сжигает житейская мреть.") & @CRLF) ; utf8
ConsoleWrite (_ConvertCyrillicStringTo1251 ("=E9 =D0=CF=C8=C1=C2=CE=C9=DE=C1=CC =D1 =C9 =D3=CB=C1=CE=C4=C1=CC=C9=CC =C4=CC=D1 =D4=CF=C7=CF=2C =DE=D4=CF=C2=D9 =D1=D2=DE=C5 =C7=CF=D2=C5=D4=D8=2E") & @CRLF) ; hex

; Нижеследующие функции используем когда кодировка известна
ConsoleWrite (_866TO1251("„ а Ї®нв  - « бЄ вм Ё Є апЎ вм, а®Є®ў п ­  ­Ґ¬ ЇҐз вм.") & @CRLF) ; dos
ConsoleWrite (_KOI8TO1251("тПЪХ ВЕМХА У ЮЕТОПК ЦБВПК С ИПФЕМ ОБ ЪЕНМЕ РПЧЕОЮБФШ.") & @CRLF) ; koi
ConsoleWrite (_ISO8859TO1251("їгбвм ЭХ бЫРФШЫШбм, Ягбвм ЭХ бСлЫШбм нвШ ЯЮЬлбЫл аЮЧЮТле ФЭХЩ.") & @CRLF) ; iso
ConsoleWrite (_HexSymbolsTOANSI("=CD=EE =EA=EE=EB=FC =F7=E5=F0=F2=E8 =E2 =E4=F3=F8=E5 =E3=ED=E5=E7=E4=E8=EB=E8=F1=FC =2D =C7=ED=E0=F7=E8=F2=2C =E0=ED=E3=E5=EB=FB =E6=E8=EB=E8 =E2 =ED=E5=E9=2E") & @CRLF) ; hex

; Функция _WhatIsCyrillicANSIEncoding определяет ANSI кодировки: KOI8-R, WINDOWS-1251, IBM-866, ISO-8859-5. Требует не менее 3-4 осмысленых русских слов для уверенного определения
ConsoleWrite (_WhatIsCyrillicANSIEncoding("оП ЛПМШ ЮЕТФЙ Ч ДХЫЕ ЗОЕЪДЙМЙУШ - ЪОБЮЙФ, БОЗЕМЩ ЦЙМЙ Ч ОЕК.") & @CRLF) ; koi
ConsoleWrite (_WhatIsCyrillicANSIEncoding("Вот за это веселие мути, отправляясь с ней в край иной,") & @CRLF) ; win
ConsoleWrite (_WhatIsCyrillicANSIEncoding("П еЮзг ЯаШ ЯЮбЫХФЭХЩ ЬШЭгвХ їЮЯаЮбШвм вХе, ЪвЮ СгФХв бЮ ЬЭЮЩ, -") & @CRLF) ; iso
ConsoleWrite (_WhatIsCyrillicANSIEncoding("—в®Ў §  ўбҐ §  ЈаҐеЁ ¬®Ё вп¦ЄЁҐ, §  ­ҐўҐаЁҐ ў Ў« Ј®¤ вм") & @CRLF) ; dos