[Iska]

Вообщем кто имеет что сказать? »

Не понятно, в чём у Вас, собственно, проблема.

[semiono]

Например, в файл
D:\DVD\i386\HIVESYS.INF
в секцию
[AddReg]
нужно добавить строки:
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device0","DefaultSettings.BitsPerPel",0x00010001,32
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device0","DefaultSettings.XResolution",0x00010001,1024
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device0","DefaultSettings.YResolution",0x00010001,768
HKLM,"SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000","DefaultSettings.BitsPerPel",0x00010001,32
HKLM,"SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000","DefaultSettings.XResolution",0x00010001,1024
HKLM,"SYSTEM\CurrentControlSet\Control\Video\{23A77BF7-ED96-40EC-AF06-9B1F4867732A}\0000","DefaultSettings.YResolution",0x00010001,768

Но если там уже есть эти параметры реестра, то нужно только изменить их значения чтобы строки не дублировались.
Это типично для формата INI, только здесь отсутствует знак равенства: DefaultSettings.BitsPerPel=32

[Creat0R]

Нужна функция или процедура чтобы записывать данные в файл в формате: »

Примерно так:

Код:

_RegFileWrite(@ScriptDir & '\File.reg', 'Add.Reg', 1, 'данные... 0x00000000 | "C:\zzzz" | 00 01 02 03 итп.')

Func _RegFileWrite($sFile, $sSect, $iKey, $sValue)
    Local $sReadFile, $sReadSect, $aSplit, $sTmpSect, $i, $hFile

    $sReadFile = FileRead($sFile)

    If Not @extended Then
        Return SetError(1)
    EndIf

    $sReadSect = StringRegExpReplace($sReadFile, "(?s).*?(\Q[" & $sSect & "]\E.*?)[\r\n]*(\[.*|$)", "\1")
    $aSplit = StringSplit(StringStripCR($sReadSect), @LF)

    For $i = 1 To $aSplit[0]
        If $i = $iKey + 1 Then
            $sTmpSect &= $sValue & @CRLF
        Else
            $sTmpSect &= $aSplit[$i] & @CRLF
        EndIf
    Next

    $sReadFile = StringReplace($sReadFile, $sReadSect, StringTrimRight($sTmpSect, 2))

    $hFile = FileOpen($sFile, 2)

    If $hFile = -1 Then
        Return SetError(2)
    EndIf

    FileWrite($hFile, $sReadFile)
    FileClose($hFile)
EndFunc

[semiono]

а продолжение можно попросить?

Найти:
[AddReg]
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device0","DefaultSettings.BitsPerPel"

и добавить значение:
,0x00010001,32

должно получиться так:

[AddReg]
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device1","DefaultSettings.BitsPerPel",0x00010001,16
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device2","DefaultSettings.BitsPerPel",0x00010001,16
; ...
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device0","DefaultSettings.BitsPerPel",0x00010001,32
; ...
HKLM,"SYSTEM\CurrentControlSet\Services\VgaSave\Device0","zzDefaultSettings.BitsPerPel",0x00010001,1 6
; ...

Если файл не существует его нужно создать, если секция не существует её нужно создать, если строка не найдена её нужно создать.

Я не сразу сообразил, прошу прощения, тут похоже лучше всего поделить строку на две части, для поиска взять всю ссылку реестра,
а для редактирования значение и тип параметра, так как значение всегда привязанно к типу данных.
И обязательно нужен поиск, так как указание номера строки неудобно в больших файлах когда номера строк вообще не известны и не фиксированны.
Не знаю насколько это сложно, но мне бы хотелось такой скрипт иметь.

[Creat0R]

продолжение можно попросить? »

Попросить можно, но вот не знаю кто это реализует, у меня лично ушло слишком много времени на попытку, т.ч я пока пас, сорри