Reading a sting from a variable

[prpldodge]

I want to add the path of office to the environmental path. I can read the registry but do not want to add the path if it already there. Here is what I am trying. I am using the message box to see what is returned but it keeps coming back it can not find it. I have verified the path is in the path statement.

Global $join, $path,

$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")

$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment","path")

$result = StringInStr("$cur","path")

MsgBox(4096, "Program files are in:", $result)

Alan

[weaponx]

Unlike some other languages, AutoIt will not render variables in quotes.

$result = StringInStr("$cur","path")

$result = StringInStr($cur,$path)

Edited December 5, 2007 by weaponx

[prpldodge]

Unlike some other languages, AutoIt will not render variables in quotes.

$result = StringInStr("$cur","path")

$result = StringInStr($cur,$path)

Thank you weaponix for your fast response

Ok if I understand you I can take out the quotes and it should work. I tried that and I still get a 0 as the results. I assume that means it did not find it. I have verified it is there so I guess I am still missing something. Is there a better way?

Alan

[SpookMeister]

When you are having this kind of problem, always take another look at what is in your variables:

$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")
$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "path")
$result = StringInStr($cur, $path)

MsgBox(4096, "Program files are in:", $cur & @CRLF & $path & @CRLF & $result)

[edit] hehe, forgot to pull the original quote issue out of my example

Edited December 5, 2007 by SpookMeister

[Monamo]

When you are having this kind of problem, always take another look at what is in your variables:

$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")
$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "path")
$result = StringInStr($cur, $path)

MsgBox(4096, "Program files are in:", $cur & @CRLF & $path & @CRLF & $result)

[edit] hehe, forgot to pull the original quote issue out of my example

Same general thought process - this example will break all of the %PATH% entries into individual lines for easier readability:

Global $join, $path, $cur
$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")
$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment","path")
$envpaths = StringSplit($cur,";")

$envlist = ""
For $i = 1 To $envpaths[0]
    $envlist &= $envpaths[$i] &@LF
Next

MsgBox(4096, "Comparison:", "Winword.exe path:" &@LF &$path &@LF &@LF &"**************"  &@LF &@LF &"Environment Variable 'Path' entries:" &@LF &$envlist)

[prpldodge]

When you are having this kind of problem, always take another look at what is in your variables:

$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")
$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "path")
$result = StringInStr($cur, $path)

MsgBox(4096, "Program files are in:", $cur & @CRLF & $path & @CRLF & $result)

[edit] hehe, forgot to pull the original quote issue out of my example

Thanks. Why can it stare you right in the eye and you not see it. There was a "\" at the end of the path statement and not in the other.

Alan

[prpldodge]

Thanks. Why can it stare you right in the eye and you not see it. There was a "\" at the end of the path statement and not in the other.

Alan

OK I thought this should be so simple but I am not getting the results. Caution running this it could mess up your path statement. It just returns the $cur

Global $join, $path, $cur, $result, $newpath
$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")
$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment","Path")
$result = StringInStr($cur,$path)
$newpath = StringTrimRight($path, 1)

If $result < 1 then
         
      If StringRight($CUR, 1) = ';' then 
        RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', 'REG_SZ', $cur & $newpath) 
            
                    
      If StringRight($CUR, 1) not = ';'then
        RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', 'REG_SZ', $cur & ";" & $newpath) 

    endif

ElseIf $result > 0 then
    
    MsgBox(0, 'Path does not need to be changed ', $cur)

    EndIf

EndIf
MsgBox(0, 'Path Changed', $cur)

[picaxe]

Global $path, $cur, $result, $newpath
$path = RegRead("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\winword.EXE", "Path")
$cur = RegRead("HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment", "Path")
$newpath = StringTrimRight($path, 1)
$result = StringInStr($cur, $newpath)
If $result = 0 Then
    Select
        Case StringRight($cur, 1) = ';'
            RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', 'REG_SZ', $cur & $newpath)
        Case StringRight($cur, 1) <> ';'
            RegWrite('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path', 'REG_SZ', $cur & ";" & $newpath)
    EndSelect
    MsgBox(0, 'Path Changed', RegRead('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path'))
ElseIf $result > 0 Then
    MsgBox(0, 'Path does not need to be changed ', RegRead('HKLM\SYSTEM\CurrentControlSet\Control\Session Manager\Environment', 'Path'))
EndIf