[semiono]

Молодцы! Приставить к награде пора! Я в восторге!

[proxy]

7 миллионов доллоров, semiono, 7 миллионов

+ еще обновление:

Можно считывать как отдельную величину, так и все имеющиеся величины в ключе. Учтено: длина строки < 76, и @CRLF в конце. Уже лучше расставляются слеши, вся разбивка на StringRegExpReplace. »

эть, не чем же заняться в свободное время ...

[amel27]

коль пошла такая пьянка, кину и свой вариант

Код:

$hFile = FileOpen("C:\TEST\TEST.reg", 8+2)

_RegValSave($hFile, "HKEY_LOCAL_MACHINE\System\CurrentControlSet\Services\USBSTOR","DisplayName|Start|ImagePath")
_RegValSave($hFile, "HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion","DevicePath|ProgramFilesDir", 1)
_RegValSave($hFile, "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\0","ViewView2", 1)

Func _RegValSave($file, $key, $vals = "", $iAdd = 0)
    Local $val, $txt = ""
    If Not(IsArray($vals)) Then $vals = StringSplit($vals,",;|",2)
    For $i=0 To UBound($vals)-1
        $val = RegRead($key, $vals[$i])
        If @error Then ContinueLoop
        $txt &= _RegValFormat($vals[$i], $val, @extended) &@CRLF
    Next
    If $txt == "" Then Return SetError(1, 0, 0)

    If IsString($file) Then $file = FileOpen($file, 8+2)
    If $file = -1 Then Return SetError(2, 0, 0)
    If $iAdd =0 Then FileWrite($file,'Windows Registry Editor Version 5.00'&@CRLF)
    Return FileWrite($file, @CRLF&"["& $key &"]"&@CRLF& $txt)
EndFunc

Func _RegValFormat($sVal, $xData, $iType = 1)
    If $iType=1 Then Return '"'& $sVal &'"="'& $xData &'"' ; REG_SZ
    If $iType=4 Then Return '"'& $sVal &'"=dword:'& Hex(Int($xData),8) ; REG_DWORD

    Local $sLeft='"'& $sVal &'"=hex('& $iType &'):', $sData, $iData, $iWrap=80
    If $iType=2 Then $xData=StringToBinary($xData & Chr(0), 2) ; REG_EXPAND_SZ
    If $iType=3 Then $sLeft='"'& $sVal &'"=hex:' ; REG_BINARY
    If $iType=7 Then $xData=StringToBinary(StringRegExpReplace($xData &@LF,"[\n\r]+",Chr(0)) &Chr(0), 2) ; REG_MULTI_SZ
    If Not(IsBinary($xData)) Then $xData = Binary(StringRegExpReplace($xData,"^(?i:\s*0x)?((?:[[:xdigit:]]{2})+)$","0x\1"))
    $xData = StringTrimRight(StringRegExpReplace(Hex($xData),"(..)", "\1,"), 1)

    While StringLen($sLeft)+StringLen($xData)>$iWrap
        $iData = Int(($iWrap-StringLen($sLeft)-1)/3)*3
        $sData&= $sLeft & StringLeft($xData, $iData) &"\" &@CRLF
        $xData = StringMid($xData, $iData+1)
        $sLeft="  "
    WEnd
    Return $sData & $sLeft  & $xData
EndFunc

эть, не чем же заняться в свободное время ... »

честно говоря, не пойму чем semiono не устроил батник

[proxy]

коль пошла такая пьянка, кину и свой вариант »

, и как всегда все жуууутко замудренно и за рег-экспанно )))

semiono, нормальные герои всегда идут в обход (c)

пора, semiono, тему завершать?

[semiono]

Завершение уже не зависит от моего решения
Однако я нажал. +1

[semiono]

Чтоб это доброе дело продолжалось, было б, зделать утиль regEx.exe которая читает ввод командой строки,
например, # regex /export HKLM\Microsoft\'Windows NT\.la -la-la' C:\'.my reg.reg' и делает это. ?

[amel27]

зделать утиль regEx.exe которая читает ввод командой строки »

сколько угодно, только тестируйте

Код:

Global $KEY, $VAL, $ADD = False, $OUT=StringRegExpReplace(@ScriptFullPath,".[^.]+$", ".reg")

Global $aParms = StringRegexp($CmdLineRaw, '/(\w+)(?:[\s:]+(?:"([^"]+)"|([^\s/"]+)))?', 4)
If @error Then Exit -1 ; Ошибка: не указано ни одного параметра
For $aParm In $aParms
    If UBound($aParm)=2 Then Assign($aParm[1], True)
    If UBound($aParm)>2 Then Assign($aParm[1], $aParm[UBound($aParm)-1])
Next

Global $iMode=8+2
If $ADD Then $iMode = 1

If $VAL=="*" Then $VAL = _RegEnumVals($KEY)
_RegValSave($OUT, $KEY, $VAL, $iMode)
Exit @error ; ошибки выполнения _RegValSave()

; =============================================================================
; _RegEnumVals($key)
; -----------------------------------------------------------------------------
; Перечисление всех параметров заданного ключа реестра
; $key        : имя ключа реестра
;
; При успехе  : возвращает массив имен параметров со счетчиком
; При неудаче : возвращает пустой массив
; =============================================================================
Func _RegEnumVals($key)
    Local $aRes[1]=[-1],$sVal=0
    Do
        $aRes[0] +=1
        ReDim $aRes[$aRes[0]+1]
        $aRes[$aRes[0]] = $sVal
        $sVal = RegEnumVal($key, $aRes[0]+1)
    Until @error
    Return $aRes
EndFunc ; ==> _RegEnumVals

; =============================================================================
; _RegValSave($file, $key, [$vals, [, $mode]])
; -----------------------------------------------------------------------------
; Сохранение заданных параметров в REG-файл
;
; $file       : имя файла или хэндл
; $key        : имя ключа реестра
; $vals       : одно или несколько имен параметров, разделенных ",|;"
 ;             : или массив элементов со счетчиком
; $mode       : режим открытия файла (см. FileOpen)
;
; При успехе  : возвращает 1
;
; При неудаче : возвращает 0
;             :   @error=0, неверный режим открытия
;             :   @error=1, не обнаружено ни одного из заданных параметров
;             :   @error=2, ошибка открытия файла
; =============================================================================
Func _RegValSave($file, $key, $vals = "", $mode = 10)
    Local $dat, $txt = ""
    If Not(IsArray($vals)) Then $vals = StringSplit($vals,",;|")
    For $i=1 To $vals[0]
        $dat = RegRead($key, $vals[$i])
        If @error Then ContinueLoop
        $txt &= _RegValFormat($vals[$i], $dat, @extended) &@CRLF
    Next
    If $txt=="" Then Return SetError(1, 0, 0)
    If IsString($file) Then
        $file = FileOpen($file, $mode)
        If $file = -1 Then Return SetError(2, 0, 0)
        If BitAND($mode,2) Then FileWrite($file,'Windows Registry Editor Version 5.00'&@CRLF)
    EndIf
    $key = StringRegExpReplace($key, "^HKLM\\", "HKEY_LOCAL_MACHINE\\")
    $key = StringRegExpReplace($key, "^HKCU\\", "HKEY_CURRENT_USER\\")
    $key = StringRegExpReplace($key, "^HKCR\\", "HKEY_CLASSES_ROOT\\")
    $key = StringRegExpReplace($key, "^HKU\\" , "HKEY_USERS\\")
    $key = StringRegExpReplace($key, "^HKCC\\", "HKEY_CURRENT_CONFIG\\")

    Return FileWrite($file, @CRLF&"["& $key &"]"&@CRLF& $txt)
EndFunc ; ==> _RegValSave

; =============================================================================
; _RegValFormat($sVal, $xData[, $iType])
; -----------------------------------------------------------------------------
; Вывод значения параметра реестра в формате REG-файла
;
; $sVal   : имя параметра
; $xData  : значение параметра, поддерживаемые комбинации тип+значение:
;             $iType=1, $xData - текстовая строка
;             $iType=2, $xData - текстовая строка
;             $iType=3, $xData - HEX или бинарная строка
;             $iType=4, $xData - целое 32-х битное число
;             $iType=7, $xData - одна или несколько текстовых строк
;         : при несоответствии, параметр преобразуется к требуемому типу
; $iType  : тип параметра
;             $iType=1 - REG_SZ
;             $iType=2 - REG_EXPAND_SZ
;             $iType=3 - REG_BINARY
;             $iType=4 - REG_DWORD
;             $iType=7 - REG_MULTI_SZ
;         : все другие значения $iType форматируются как REG_BINARY
; =============================================================================
Func _RegValFormat($sVal, $xData, $iType = 1)
    Local $sData='"'& $sVal &'"=hex('& $iType &'):', $iWidth
    If $sVal=="" Then $sVal="@"

    If $iType=1 Then Return '"'& $sVal &'"="'& $xData &'"' ; REG_SZ
    If $iType=2 Then $xData=StringToBinary($xData & Chr(0), 2) ; REG_EXPAND_SZ
    If $iType=3 Then $sData='"'& $sVal &'"=hex:' ; REG_BINARY
    If $iType=4 Then Return '"'& $sVal &'"=dword:'& Hex(Int($xData),8) ; REG_DWORD
    If $iType=7 Then $xData=StringToBinary(StringRegExpReplace($xData &@LF,"[\n\r]+",Chr(0)) &Chr(0), 2) ; REG_MULTI_SZ

    If Not(IsBinary($xData)) Then $xData = Binary(StringRegExpReplace($xData,"^(?i:\s*0x)?((?:[[:xdigit:]]{2})+)$","0x\1"))
    $xData = StringTrimRight(StringRegExpReplace(Hex($xData),"(..)", "\1,"), 1)

    $iWidth = 80-StringLen($sData)
    While StringLen($xData) > $iWidth
        $sData&= StringLeft($xData, Int(($iWidth-1)/3)*3) &"\"&@CRLF&"  "
        $xData = StringTrimLeft ($xData, Int(($iWidth-1)/3)*3)
        $iWidth = 78
    WEnd
    Return $sData & $xData
EndFunc ; _RegValFormat

компилировать консольным приложением (RegSave), пример использования:

Код:

@Echo Off

RegSave /OUT:C:\TEST\TEST.reg /KEY:HKLM\SYSTEM\CurrentControlSet\Services\USBSTOR /VAL:DisplayName,Start,ImagePath
RegSave /OUT:C:\TEST\TEST.reg /KEY:HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion /VAL:DevicePath,ProgramFilesDir /ADD
RegSave /OUT:C:\TEST\TEST.reg /KEY:HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Streams\0 /VAL:* /ADD

[semiono]

****
Регистр букв я сам исправил! Надеюсь правильно
If $iType=4 Then Return '"'& $sVal &'"=dword:'& StringLower(Hex(Int($xData),8)) ; REG_DWORD
...
$xData = StringTrimRight(StringRegExpReplace(StringLower(Hex($xData)),"(..)", "\1,"), 1)

Добавил ещё один &@CRLF в конец reg-файла, чтоб как у M$ было идентично.

1. Нашёл и более серьёзную проблему!!!
В именах пробелы нельзя использовать!
Хорошо что /key: double-quoted поддерживается:
"HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager" ,
но c "Value Name" облом ???!!!

2. Где в скрипте добавить ConsoleWrite() чтобы Success... выводилось согласно логике?

[semiono]

Оказывается наполовину работает! Вообщем такое срабатывает /val "New Value #1"
Проблемма возникает при перечислении: /val "New Value #1","New Value #2", даже если один из параметров не имеет пробелов.
Причём, точки /val: можно не указывать, как я заметил.
Ну и всякие трансцендентальные типы REG_DWORD_BIG_ENDIAN скрипт не пережёвывает, впрочем это хорошо.

хух! нашёл "недокументированные возможности", можно так вбивать:
/val "New Value #2,New Value #1" — это валидно для работы RegSave* скрипта!

---
(!) есть небольшое различие в hex(7): записи пустых параметров.
regedit.exe "ExcludeFromKnownDlls"=hex(7):00,00
regsave.exe "ExcludeFromKnownDlls"=hex(7):00,00,00,00

--- я добавил вывод в консоль, для приличия похоже, что логично работает...

Код:

Global $aParms = StringRegexp($CmdLineRaw, '/(\w+)(?:[\s:]+(?:"([^"]+)"|([^\s/"]+)))?', 4)
If @error Then
ConsoleWrite("2001-2005 GmbH, Semiono. Coded by Amel27." & @CRLF & @CRLF)
ConsoleWrite(" //xregs.exe synops: ..." & @CRLF & @CRLF)
ConsoleWrite(@TAB & '{/val: "value1,value2,value3,etc."}|{/val:*}|{/add}...' & @CRLF)
ConsoleWrite(@TAB & '{/key: "[HKCR,HKCU,HKLM,HKU,HKCC]\Subkey"}' & @CRLF)
ConsoleWrite(@TAB & '{/reg: "[Drive:]\PATH\File.reg"}' & @CRLF) ; /out я переделал в $REG
	Exit -1 ; Ошибка: не указано ни одного параметра
EndIf

For $aParm In $aParms
    If UBound($aParm)=2 Then Assign($aParm[1], True)
    If UBound($aParm)>2 Then Assign($aParm[1], $aParm[UBound($aParm)-1])
Next

Global $iMode=8+2
If $add Then $iMode = 1

If $val=="*" Then $val = _RegEnumVals($key)
_RegValSave($reg, $key, $val, $iMode)

If @error = 1 Then
ConsoleWrite(@CRLF & "2001-2005 GmbH, Semiono. Coded by Amel27." & @CRLF)
ConsoleWrite("Failed! ..." & @CRLF)
	Exit @error ; ошибки выполнения _RegValSave()
EndIf

If @error = 0 Then 
ConsoleWrite(@CRLF & "2001-2005 GmbH, Semiono. Coded by Amel27." & @CRLF)
ConsoleWrite("Success! ..." & @CRLF)
EndIf

----

А почему Func _RegValSave($file, $key, $vals = "", $mode = 42) не даёт юникод файл?
Или это от BitAND() операций ещё зависит в данном скрипте?

----
Я ещё кое что на-бета тестил...
Вот проблемма:
[HKEY_LOCAL_MACHINE\Software\Classes\WinRAR\shell\open\command]
"@"="C:\I\Apps\WinRAR\WinRAR.exe "%1""

Должно быть:
[HKEY_LOCAL_MACHINE\Software\Classes\WinRAR\shell\open\command]
@="C:\\I\\Apps\\WinRAR\\WinRAR.exe \"%1\""

И ещё очень не хватает опции сохранения всех субключей...
Я попытался запустить без /val: свитчера, чтобы сохранить следущее:
xregs.exe /key: "HKLM\Software\Classes\.rar" /reg: "c:\file.reg"
xregs.exe /key: "HKLM\Software\Classes\WinRAR\DefaultIcon" /reg: "c:\file.reg" /add
xregs.exe /key: "HKLM\Software\Classes\WinRAR\shell\open\command" /reg: "c:\file.reg" /add
Но они затирают по-моему друг друга. Вообщем что-то там непонятное было...

Мне пришла идея! Может лучше зделать другие разделители для коммандной строки?
Чтобы вообще это не противоречило скрипту, и чтоб не надо было экранировать.

Ещё одна косметичиская фишка если не трудно, надо чтобы при /add не добавлялись @CRLF & @CLRF
перед каждым субкейем, но это я сам виноват, я к концу регфайла же дописал & @CLRF,
правда в конце файла это уместно.