如何搜索注册表匹配值，详情请进

xg911335

HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall下有个名为“测试用”的KEY，里面有个Val是"installPath"="D:\\123\\测试用1.0.1.45-ID测试"的路劲值。
现在的问题是，“测试用”这个KEY（项）有个变化，变化如下：

测试用1.0.1.45-ID测试
测试用1.0 - ID测试（含空格）
测试用1.0 - ID（含空格）
测试用1-0-1-45-ID测试（含空格）

但不管怎么变化，前3个字不变。
现在怎么才能读取这个变化的KEY(项)里Val(值)的路径呢？


我自己认为是做个循环读取UNINSTALL里的KEY，在用正则来匹配KEY........................................................但代码上不知道怎么写。

For $i= 1 to 20
           $t = "测试用"
           $var = RegEnumKey("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
           If @error <> 0 then ExitLoop
           if $var = StringRegExp($t,""&$i&"问号",3) Then
                  。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。代码
           EndIf
   Next

谁能帮我写一段这样的代码，也当给我个列子吧。先谢过了

大绯狼

何必用正则。。。。用STRINGLEFT

afan

For $i = 1 to 300
        $var = RegEnumKey("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
        If @error <> 0 then ExitLoop
        If StringLeft($var,3) = "测试用" then
                $p = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" & $var, "installPath")
                msgbox(0, $i, $p)
        EndIf
Next

netegg

用for不大合适吧，while 1可能好些

lynfr8

用while比较方便点

afan

$i = 1
While 1
        $var = RegEnumKey("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
        If @error <> 0 then ExitLoop
        If StringLeft($var,3) = "测试用" then
        ;If StringInStr($var,"测试用",0,1,1) <> 0  then ;也可用这句
        ;If StringRegExp($var,"测试用(.*)",3) <> 1 then  ;或者也可用这句
                $p = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" & $var, "installPath")
                msgbox(0, $i, $p)
        EndIf
        $i = $i + 1
WEnd

都行~

xg911335

非常感谢楼上的所有兄弟。受益良多。
怎么还要$i = $i + 1呢？

afan

给下个循环传递个变量，不然就死循环了

xg911335

感谢afan兄。
另外在问一下。。
如果我读取的是：比如"C:\Program Files\newsoft\new.exe"的值，那么如何让它返回的路径像这样呢"C:\Program Files\newsoft\"？？？

afan

$i = 1
While 1
        $var = RegEnumKey("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall", $i)
        If @error <> 0 then ExitLoop
        If StringLeft($var,3) = "测试用" then
                $p = RegRead("HKLM\SOFTWARE\Microsoft\Windows\CurrentVersion\Uninstall" & $var, "installPath")
                $str = stringRegExp($p, ".*\", 1)
                msgbox(0, $i, $str[0])
        EndIf
        $i = $i + 1
WEnd

xg911335

非常感谢。最后在问一个小问题。
msgbox(0, $i, $str[0])
这个为要家[0]呢？

afan

因为 stringRegExp 返回的是数组，呵呵

xg911335

感谢。。。呵呵。