SetFormat, IntegerFast, H
str := "ЁЁ"
MsgBox, % NumGet(str, "UInt")
While code := NumGet(str, A_Index - 1, "UChar")
MsgBox, % code
VarSetCapacity(var, StrPut(str, "UTF-8"))
StrPut(str, &var, "UTF-8")
MsgBox, % NumGet(var, "UInt")
While code := NumGet(var, A_Index - 1, "UChar")
MsgBox, % codeВ UTF-8 Ё — 0x81D0, a в URL — в обратном порядке: %D0%81
]]>0x1 — это 0x01
0x4 — это 0x04
Вместе 0x0401
Жутко не понятно, почему не по порядку - 0x0104.
]]>encoding := "UTF-16"
VarSetCapacity(var, StrPut(str, encoding))
StrPut(str, &var, encoding) не нужно.
SetFormat, IntegerFast, H
str := "Ё"
While code := NumGet(str, A_Index - 1, "UChar")
MsgBox, % code0x1 — это 0x01
0x4 — это 0x04
Вместе 0x0401
UTF-16 — 2 байта на символ (16 бит).
Но может быть и 4?
Один символ кодировки UTF-16 представлен последовательностью двух байтов или двух пар байтов
Ещё меньше понимаю что за 1 потом 4 в этом коде:
SetFormat, IntegerFast, H
str := "Ё"
encoding := "UTF-16"
VarSetCapacity(var, StrPut(str, encoding))
StrPut(str, &var, encoding)
While code := NumGet(Var, A_Index - 1, "UChar")
MsgBox, % codeSetFormat, IntegerFast, H
str := "ЁЁ"
VarSetCapacity(var, StrPut(str, "UTF-8"))
StrPut(str, &var, "UTF-8")
MsgBox, % NumGet(var, "UInt")SetFormat, IntegerFast, H
str := "ЁЁ"
MsgBox, % NumGet(&str, "UInt")С первым MsgBox понятно, а во втором число 0x401 как то логично "разбивается" на 0xd0 & 0x81?
Ё = 0x401 — это UTF-16, а %D0%81 — это UTF-8.
]]>
URIEncode(str, encoding := "UTF-8") {
VarSetCapacity(var, StrPut(str, encoding)), StrPut(str, &var, encoding)
While code := NumGet(Var, A_Index - 1, "UChar")
UrlStr .= (code > 0x7F || code < 0x30 || code = 0x3D) ? Format("%{:02X}", code) : Chr(code)
Return UrlStr
}
Есть ли ошибки, и смущает расхождение с оригиналом:
SubStr("0" . SubStr(code, 3), -1)
После процента обязательно должно быть 2 знака?
И для общего развития, по поводу индекса в Unicode и значений байтов (собственно а есть ли тут связь?).
SetFormat, IntegerFast, h
; в комментариях значения как и в NumGet
str := ","
MsgBox, % Ord(str) ; 0x2c
str := "Ё"
MsgBox, % Ord(str) ; 0xd0 & 0x81С первым MsgBox понятно, а во втором число 0x401 как то логично "разбивается" на 0xd0 & 0x81?
Ап: По поводу:
После процента обязательно должно быть 2 знака?
Разобрался, поправил.
]]>text := """кодировка URL"""
GoogleSearch := "https://www.google.ru/search?q="
MsgBox, % url := GoogleSearch . URIEncode(text)
Run, % url
URIEncode(str, encoding := "UTF-8")
{
PrevFormat := A_FormatInteger
SetFormat, IntegerFast, H
; кодируем стоку в указанную кодировку с помощью StrPut()
VarSetCapacity(var, StrPut(str, encoding))
StrPut(str, &var, encoding)
; последовательно перебирая символы, кодируем их в URL-формат
While code := NumGet(Var, A_Index - 1, "UChar") ; пока code не равно 0, что означает конец строки
{
bool := (code > 0x7F || code < 0x30 || code = 0x3D) ; отсеиваем символы, которые кодировать не нужно
UrlStr .= bool ? "%" . SubStr("0" . SubStr(code, 3), -1) : Chr(code)
}
SetFormat, IntegerFast, % PrevFormat
Return UrlStr
}