Регфайл, синтаксис.

[semiono]

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

[proxy]

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

+ еще обновление (http://forum.oszone.net/post-1150669-15.html):
Можно считывать как отдельную величину, так и все имеющиеся величины в ключе.
Учтено: длина строки < 76, и @CRLF в конце.
Уже лучше расставляются слеши, вся разбивка на StringRegExpReplace. »

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

[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 не устроил батник (http://forum.oszone.net/post-1148673-3.html)

[proxy]

коль пошла такая пьянка, кину и свой вариант »
:up:, и как всегда все жуууутко замудренно и за рег-экспанно )))

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,
правда в конце файла это уместно.