getting registry value with stringregexp

[gcue]

hello.

i am trying to get the registry value from a registry file

Windows Registry Editor Version 5.00

[hkey_current_user\control panel\desktop]

"ScreenSaverIsSecure"="1"

[hkey_current_user\control panel\desktop]

"ScreenSaveTimeOut"="900"

here's what i have but it just outputs the whole line.. how do I isolate the actual value?

$array = StringRegExp($data, '(?i:"ScreenSaverIsSecure"=".")', 1)
_ArrayDisplay($array)

thanks in advance =)

Edited August 15, 2011 by gcue

[BrewManNH]

If you look at any .reg file, they're set up just like a .ini file, so you could use IniRead to get the values much easier than with a RegExp. You might have to use IniReadSectionNames to be sure that the entry is there, but it shouldn't be hard to do it that way.

[gcue]

absolutely brilliant!

many thanks =)

[gcue]

using IniRead to read registry files works great! except when trying to read values that carry over to a new line

"DispFileName"=hex(2):40,00,69,00,65,00,66,00,72,00,61,00,6d,00,65,00,2e,00,64,\

00,6c,00,6c,00,2c,00,2d,00,31,00,37,00,33,00,31,00,35,00,00,00

anyone have a workaround?

[hannes08]

Basically I thing you'll have to check whether your value has a trailing backslash, and then read all the lines until a new value starts...

If StringRight($value, 1) = "\" Then
    _FileReadToArray($file, $array)
    For $i = 1 To $array[0]
        If StringInString($array[$i], '"Searchstring"=' Then
            $value = StringTrimRight(StringTrimLeft($array[$i], StringLen('"Searchstring"=')),1)
            While 1
                $i += 1
                If StringLeft($array[$i],1) <> '"' Then
                    If StringRight($array[$i], 1) = "\" Then
                        $value &= StringTrimRight($array[$i] , 1)
                    Else
                        $value &= $array[$i]
                    EndIf
                Else
                  ExitLoop 2
                EndIf
            Wend
        EndIf
    Next
EndIf

... untested

Edited August 17, 2011 by Hannes123

[gcue]

thanks hannes =)

i also did it tried it this way:

$line_count = _FileCountLines($reg_file)

$new_data = ""

for $y = 1 to $line_count
    $line = FileReadLine($reg_file, $y)

    if StringRight($line, 1) = "\" Then
        $y += 1
        $line = StringReplace($line, "\", "")
        $next_line = FileReadLine($reg_file, $y)
        $line = $line & StringStripWS($next_line,1)
    EndIf

    $new_data &= $line & @CRLF
Next

FileDelete($reg_file)
FileWrite($reg_file, $new_data)