Серый форум — AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (teadrinker) — Thu, 13 Jan 2022 15:25:51 +0000

Alectric, просьба, если видите, что было сделано замечание по оформлению, а исправления пока не сделаны, новые посты в теме создавать не нужно.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (Alectric) — Thu, 13 Jan 2022 14:52:27 +0000

С переключателем.

global encoding
gui,1:font,s8,Tahoma
Gui,1:Add,Radio,Checked vChoice w100 gsubm,utf-16
Gui,1:Add,Radio,xp y+10 w100 gsubm,utf-8
gui,1:add,text,,Вставь сюда текст:
gui,1:add,edit,vintext w400 h100 gConvert,
gui,1:add,text,,Вставь сюда HEX:
gui,1:add,edit,vouttext w400 h100 gConvert2,
gui,show
return

Convert:
gui,1:submit,nohide
size:=STRToDATA(intext,tmp1,encoding)
HEXText:=DATAtoHEX(&tmp1,0,size)
GuiControl,,outtext,%HEXText%
return

Convert2:
gui,1:submit,nohide
size:=HEXstrToDATA(outtext,tmp1,0)
StrText:=DATAtoSTR(&tmp1,encoding,size)
GuiControl,,intext,%StrText%
return

subm:
gui,1:submit,nohide
encoding:=Choice-1
gosub,Convert
return

STRToDATA(str,byref var,enc)
{
    size:=enc?strlen(str):strlen(str)*2
    varsetcapacity(var,size)
    StrPut(str,&var,enc?"utf-8":"utf-16")
    return size
}

DATAtoHEX(var,st,size,sw=0)
{
    loop,% size
    {
        hex.=format("{:02X},",numget(var+0,(sw?(size-a_index):(st+a_index-1)),"uchar"))
        if (!mod(a_index,23) and a_index!=size)
            hex.="\`n"
    }
    stringtrimright,hex,hex,1
    return hex
}

HEXstrToDATA(str,byref var,swap=0)
{
    stringreplace,str,str,%a_space%,,all
    stringreplace,str,str,`\,,all
    stringreplace,str,str,`n,,all
    if RegExMatch(str,"00")
      encoding:=0
    stringreplace,str,str,`,,,all
    size:=ceil(strlen(str)/2)
    varsetcapacity(var,size+2)
    loop,% size
    {
        stringright,tmp2,str,2
        if !swap
            NumPut("0x"tmp2,var,size-a_index,"Uchar")
        else
            NumPut("0x"tmp2,var,a_index-1,"Uchar")
        StringTrimRight,str,str,2

    }
    return size
}

DATAtoSTR(var,enc,size,sw=0)
{
  return StrGet(var,enc?size:size/2,enc?"utf-8":"utf-16")
}

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (teadrinker) — Thu, 13 Jan 2022 14:36:33 +0000

BlackCat, пожалуйста, не пишите каждое предложение с новой строки, у нас тут не вотсап. Ставьте точку в конце каждого предложения. Много точек ставить не нужно, это выглядит глупо. Исправьте пожалуйста свои посты.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (BlackCat) — Thu, 13 Jan 2022 13:38:38 +0000

Alectric возможно, но это лишние "переключалки" в gui.
Хотел сделать максимально простой интерфейс без лишних заморочек.
Возможно придется делать лишнюю фигню в gui, печалька
Или оставить все, как есть - код дает сбой только на одной фигне, которая может и не встретиться вовсе.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (Alectric) — Thu, 13 Jan 2022 13:35:22 +0000

Нужно делать переключатель ANSI - Unicode, наверно.

Справка пишет:

Gui, Add, Radio, vMyRadioGroup, Wait for all items to be in stock before shipping.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (BlackCat) — Thu, 13 Jan 2022 13:33:58 +0000

Alectric ну да, я тестил на кириллице.
Вообще это проблемка - кириллица часто встречается в реестре.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (Alectric) — Thu, 13 Jan 2022 13:29:57 +0000

Еще раз поправил. HEX строку в нижний вставляй, в верхнем текст изменится. Только мой вариант с русским текстом не дружит.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (BlackCat) — Thu, 13 Jan 2022 13:24:16 +0000

Alectric нифика оно не мурлычит.
К тому-же 4 окна неудобно.
Если бы как-то научить распознавать код текс/хекс.
В моем коде делает эта фигня:

Convert:
	GuiControlGet, Source
	If RegExMatch(Source, "^\h*(\d\d,|\d\w,)+"){
		GetTxt()
		}
		Else {
			GetHex()
			}

Но на двух цифрах с запятой дает сбой.
Либо шаблон нужно сделать крутой, либо что-то придумать другое - без RegEx

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (Alectric) — Thu, 13 Jan 2022 13:18:08 +0000

Поправил, попробуй.

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (BlackCat) — Thu, 13 Jan 2022 13:09:10 +0000

Alectric а в обратку-то оно не переводит
В смысле, если конвертированный результат строки в hex опять вставить для перевода, выход опять в hex.
Мой код переводит туда-сюда, если до бесконечности вставлять и конвертировать результат.
Проблема только в том, что он распознает не как строку, а как hex, если строка начинается с двух цифр и запятой (38, попугаев - пример).

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (Alectric) — Thu, 13 Jan 2022 12:59:00 +0000

Дело было вечером, делать было нечего.

gui,1:font,s8,Tahoma
gui,1:add,edit,vintext w400 h100 gConvert,
gui,1:add,edit,vouttext w400 h100 gConvert2,
gui,show
return

Convert:
gui,1:submit,nohide
size:=STRToDATA(intext,tmp1,0)
HEXText:=DATAtoHEX(&tmp1,0,size)
GuiControl,,outtext,%HEXText%
return

Convert2:
gui,1:submit,nohide
size:=HEXstrToDATA(outtext,tmp1,0)
StrText:=DATAtoSTR(&tmp1,0,size)
GuiControl,,intext,%StrText%
return


STRToDATA(str,byref var,swap=0)
{
  size:=strlen(str)
  varsetcapacity(var,size+2)
  loop,parse,str
  {
    if !swap
      NumPut(asc(a_loopfield),var,a_index-1,"Uchar")
    else
      NumPut(asc(a_loopfield),var,size-a_index,"Uchar")
  }
  return size
}

DATAtoHEX(var,st,size,sw=0)
{
  loop,% size
  {
    hex.=format("{:02X},",numget(var+0,(sw?(size-a_index):(st+a_index-1)),"uchar"))
    if (!mod(a_index,23) and a_index!=size)
      hex.="\`n"
  }
  stringtrimright,hex,hex,1
  return hex
}







HEXstrToDATA(str,byref var,swap=0)
{
  stringreplace,str,str,%a_space%,,all
  stringreplace,str,str,`\,,all
  stringreplace,str,str,`n,,all
  stringreplace,str,str,`,,,all
  size:=ceil(strlen(str)/2)
  varsetcapacity(var,size+2)
  loop,% size
  {
    stringright,tmp2,str,2
    if !swap
      NumPut("0x"tmp2,var,size-a_index,"Uchar")
    else
      NumPut("0x"tmp2,var,a_index-1,"Uchar")
    StringTrimRight,str,str,2

 }
  return size
}

DATAtoSTR(var,st,size,sw=0)
{
  loop,% size
    str.=chr(numget(var+0,(sw?(size-a_index):(st+a_index-1)),"uchar"))
  return str
}

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (BlackCat) — Thu, 13 Jan 2022 10:01:00 +0000

teadrinker постараюсь разобраться, ежели че - к вам приду за помощью
Благодарю!

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (teadrinker) — Thu, 13 Jan 2022 09:59:34 +0000

Запятые, конечно, они не вставят, для этого можно регулярку использовать. Как вставить запятые через две цифры, разберётесь?

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (BlackCat) — Thu, 13 Jan 2022 09:56:17 +0000

teadrinker благодарю за ответ и подсказку!
Хотелось бы уточнить - эти функции конвертируют в формат реестра?
Нужно получать результат такого вида:

22,00,25,00,50,00,72,00,6f,00,67,00,72,00,61,00,6d,00,46,00,69,00,6c,\
  00,65,00,73,00,25,00,5c,00,4e,00,6f,00,74,00,65,00,70,00,61,00,64,00,2b,00,\
  2b,00,5c,00,6e,00,6f,00,74,00,65,00,70,00,61,00,64,00,2b,00,2b,00,2e,00,65,\
  00,78,00,65,00,22,00,20,00,22,00,25,00,31,00,22,00,00,00

Re: AHK: RegHex Converter - ввод данных с двумя цифрами и запятой

null@example.com (teadrinker) — Thu, 13 Jan 2022 09:45:22 +0000

Для конвертации в hex и обратно не нужно использовать регулярки, есть winapi функции CryptBinaryToString и CryptStringToBinary, ищите примеры использования.