[proxy]

т.е., при чтение данных из реестра, Вы желаите указать тип считываемых данных, так?

если так, - то зачем?
помойму в справке по RegRead этого не требуется:

RegRead ( "keyname", "valuename" ) Параметры keyname Ключ реестра. valuename название значения.

??

[semiono]

И поэтому я получаю:

Код:

Windows Registry Editor Version 5.00

[HKCU\Software\DashSignature\Knagalis]
"X"="VMKJGNDIDNWLDMKJGNDIDNWLD"

При том что в реестре на самом деле REG_EXPAND_SZ, в итоге у меня получается непригодный регфайл.

Код:

Switch @OSArch
    Case "x86"
        $sRegVSTs = "HKLM\Software\VST"
    Case "x64"
        $sRegVSTs = "HKLM\Software\Wow6432Node\VST"
EndSwitch

$sInsVSTs = RegRead($sRegVSTs, "VSTPluginsPath")

$sRegKey = "HKEY_CURRENT_USER\Software\DashSignature\Knagalis"

$sZz = RegRead($sRegKey, "X")

$sFile_Content = _
    "Windows Registry Editor Version 5.00" & @CRLF & @CRLF & _
    "[" & $sRegKey & "]" & @CRLF & _
    '"X"=' & '"' & $sZz & '"' & @CRLF & @CRLF

$sRegFile = $sInsVSTs & "\Knagalis\Knagalis.reg"

FileSetAttrib($sRegFile,"-RASHNOT",0)

$hFileOpen = FileOpen($sRegFile, 10)
FileWrite($hFileOpen, $sFile_Content)
FileClose($hFileOpen)

FileSetAttrib($sRegFile,"-RASHNOT",0)

FileSetTime($sRegFile, '20010101000000', 0, 1)
FileSetTime($sRegFile, '20010101000000', 1, 1)
FileSetTime($sRegFile, '20010101000000', 2, 1)

Мне нужно создать бэкап файл, простой рег. Таковы мои нехитрые действия.

К слову сказать утилита reg.exe, тоже не пригодна, так как экспортировать умеет весь "keyname", целиком.
А это неудобно, нужны только выборочно "valuename" !

[proxy]

т.е. получется:

"X"="VMKJGNDIDNWLDMKJGNDIDNWLD" »

а какой вид должен получиться?

[semiono]

Код:

[HKEY_CURRENT_USER\Software\DashSignature\Knagalis]
"X"=hex(2):56,00,4d,00,4b,00,4a,00,47,00,4e,00,44,00,49,00,44,00,4e,00,57,00,\
  4c,00,44,00,4d,00,4b,00,4a,00,47,00,4e,00,44,00,49,00,44,00,4e,00,57,00,4c,\
  00,44,00,00,00

Такой.

[proxy]

так уже похоже?

Код:

$sSerial = 'VMKJGNDIDNWLDMKJGNDIDNWLD'
MsgBox(0, '', Binary($sSerial))

далее преобразовывать?

[semiono]

Да пожалуйста! Только мне странно, что сам RegRead() не разбирает типов! Ну это нивкакие ворота! Что за экспорт всё в одну кучу в REG_SZ

MsgBox(0, '', Binary($sSerial))

Теперь видимо надо запятых добавить?
Только я боюсь, что такой ручной парсинг всёравно упрёться в ошибки, так как могут переносы строк встретиться.
Но а как узнать где и когда! Хотя вроде бы перенос осуществляется двумя байтами нулей? "00 00"
Там как бы юникод чтоль, по два байта на символ...?
Эх, как я однажды влез в PendingFileRenameOperation, так и не понял что к чему там, опять такая же история...

Мне просто нужен способ для разных программ, чтоб каждый раз не искать решение.

А всё же о чём говорилось в справке?
"use with StringSplit(..., @LF) to get each entry."

[proxy]

Только мне странно, что сам RegRead() не разбирает типов!

в полне согласен, тупизм....Но
1 либо что то не доконца мы понимаем
2 либо действительно тупизм ))

...сожалею, но точного ответа не знаю..

вариант без слешей:

Код:

Local $sSerial, $i, $sSerialResult

$sSerial = StringLower(StringTrimLeft(Binary('VMKJGNDIDNWLDMKJGNDIDNWLD'), 2))

For $i=1 To StringLen($sSerial) Step 3
    $sSerialResult &= StringMid($sSerial, $i, 2)
    If $i < StringLen($sSerial)-2 Then $sSerialResult &= ',00,'
Next

MsgBox(0, '', $sSerialResult)

а слеши там точно нужны?
если вставлять серийник в програму от которой он без слешей - все сработает?


можно судить так:
ставить слеш после первых 11 пар, далее ставить после каждых 13 пар...

[semiono]

Очень любопытно! +1
Таг, теперь бы реализовать полностью. Получиться?
Если там нули ко всем символам прибавляються, интересно это ASCII чтоль? Ну хотябы так хорошо будет!
Пробел не нужен > ',00,' в регсинтаксе это идёт подряд без пропусков....
Слеши добавишь?

ЗЫ я и не задумывался никогда, чтоли второй байт юникода всегда равен нулю? Хм зачем он тогда нужен
или это лишь в китайском используют этот байт? Похоже что в нормальном языке всегда нуль! Тогда это удобно будет!

Сейчас я слеши уберу из регфайла и проверю!
Да не нужны! Это видимо для читабельности регфайлов придумали! Проверил.

"valuename"=hex(2):юникод,через,запятые+(плюс два байта нулей= ) 00,00(так сказать закрывашка)

[proxy]

...я уже почти и слеши расставил, думал над красотами ))

но если не нужны - то так:

Код:

Local $sSerial, $i, $sSerialResult

$sSerial = StringLower(StringTrimLeft(Binary('VMKJGNDIDNWLDMKJGNDIDNWLD'), 2))

For $i=1 To StringLen($sSerial) Step 2
    $sSerialResult &= StringMid($sSerial, $i, 2)
    If $i < StringLen($sSerial)-2 Then $sSerialResult &= ',00,'
Next
$sSerialResult = 'hex(2):' & $sSerialResult & ',00,00,00'

MsgBox(0, '', $sSerialResult)

осталось проверить верность всех цыфирок )

вся разбивка совпадает, все ок ..