Серый форум — AHK: Смена кодировки текста в переменной

Re: AHK: Смена кодировки текста в переменной

2015-02-24T08:43:10Z

В Юникоде код символа — это два байта, т.е. в хексе будет 4 символа. С поправкой на это, вроде всё работает.


StrToHex = Привет Мир!

StrtoHex:
SetFormat, Integer, H
CodeString =
Loop, Parse, StrToHex
{
  CharCode := Asc(A_LoopField)
  CodeString .= SubStr("000" . SubStr(CharCode, 3), -3)
}
StringUpper, CodeString, CodeString
MsgBox %CodeString%



HextoStr:
HextoStr = %CodeString%
Text =
Pos = 1
Loop, % StrLen(HextoStr) // 4
{
  CharCode := "0x" . SubStr(HextoStr, Pos, 4)
  Text .= Chr(CharCode)
  Pos += 4
}
MsgBox %Text%
return

Re: AHK: Смена кодировки текста в переменной

2015-02-24T08:12:04Z

Может и в UTF-16.
Я не особо понимаю как эти функции использовать: StrGet и StrPut.
Проблема возникает в этом скрипте, который переводит строку в HEX и обратно HEX в строку.
Раньше на версии AutoHotkey ANSI все работало отлично, а теперь на выходе бяки.

StrToHex = Привет Мир!

StrtoHex:
SetFormat, Integer, H
CodeString =
Loop, Parse, StrToHex
{
  CharCode := Asc(A_LoopField)
  If CharCode < 0x10
    CodeString .= "0" . SubStr(CharCode, 3)
  Else
    CodeString .= SubStr(CharCode, 3)
}
StringUpper, CodeString, CodeString
MsgBox %CodeString%



HextoStr:
HextoStr = %CodeString%
Text =
Pos = 1
Loop, % StrLen(HextoStr) / 2
{
  CharCode := "0x" . SubStr(HextoStr, Pos, 2)
  Text .= Chr(CharCode)
  Pos += 2
}
MsgBox %Text%
return

Re: AHK: Смена кодировки текста в переменной

2015-02-23T18:34:43Z

А вы уверены, что он там именно в UTF-8? Родная кодировка для строк в юникодном АНК — UTF-16. Но если таки да, т.е. переменная используется просто как буфер, то сначала прочитать StrGet как UTF-8, потом записать StrPut как ANSI. Или наоборот.

Учесть размер буфера, чтобы не вылезти за его пределы (во втором случае).

AHK: Смена кодировки текста в переменной

2015-02-23T17:22:24Z

Необходимо сменить кодировку текста в переменной с UTF-8 в ANSI и обратно.
Как это делается?
Рабочая версия AutoHotkey Unicode