[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