[R] Choix version oracle

[africanism]

Bonjour j'ai une ou plusieurs erreur dans mon script mais je ne voit pas d'où ça vient

j'ai un menu au depart et je doir choisir la version de oracle que je veut et par rapport a ca il me modifi le path .

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Oracle", 337, 110, 398, 218)
$Info = GUICtrlCreateCombo("", 24, 24, 281, 25)
GUICtrlSetData(-1, "8.1.7|9.2", "8.1.7")
$Ok = GUICtrlCreateButton("OK", 108, 56, 113, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###


While 1
    $Msg = GUIGetMsg()
    $line = StdoutRead($Info)
    Dim $line
    If @error Then ExitLoop
    If $line <> "" Then
        $resultat = StringInStr($line, "8.1.7")
        If $resultat <> 0 Then
            RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment", "Path", "REG_SZ", "C:\\oracle\\10IDS_R2\\BIN\\;C:\\Program Files\\Microsoft SQL Server\\80\\Tools\\Binn\\;c:\\oracle\\10IDS_R2\\jdk\\jre\\bin\\client;c:\\oracle\\10IDS_R2\\jdk\\jre\\bin\\classic;c:\\oracle\\10IDS_R2\\jdk\\jre\\bin;c:\\oracle\\10IDS_R2\\jlib;c:\\oracle\\10IDS_R2\\bin;c:\\oracle\\10IDS_R2\\jre\\1.4.2\\bin\\client;c:\\oracle\\10IDS_R2\\jre\\1.4.2\\bin;C:\\Program Files\\Windows Resource Kits\\Tools\\;C:\\WINDOWS\\system32;C:\\WINDOWS;C:\\WINDOWS\\System32\\Wbem;C:\\Program Files\\Common Files\\OCR\\Version15.2;C:\\Program Files\\Support Tools\\;C:\\Program Files\\Common Files\\Adobe\\AGL;C:\\Program Files\\Hewlett-Packard\\OpenView\\service desk 4.5\\client\\bin;C:\\Program Files\\QuickTime\\QTSystem\\")
            Exit
        Else
            RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment", "Path", "REG_SZ", "C:\\oracle\\11IDS_R2\\BIN\\;C:\\Program Files\\Microsoft SQL Server\\80\\Tools\\Binn\\;c:\\oracle\\11IDS_R2\\jdk\\jre\\bin\\client;c:\\oracle\\11IDS_R2\\jdk\\jre\\bin\\classic;c:\\oracle\\11IDS_R2\\jdk\\jre\\bin;c:\\oracle\\11IDS_R2\\jlib;c:\\oracle\\11IDS_R2\\bin;c:\\oracle\\11IDS_R2\\jre\\1.4.2\\bin\\client;c:\\oracle\\11IDS_R2\\jre\\1.4.2\\bin;C:\\Program Files\\Windows Resource Kits\\Tools\\;C:\\WINDOWS\\system32;C:\\WINDOWS;C:\\WINDOWS\\System32\\Wbem;C:\\Program Files\\Common Files\\OCR\\Version15.2;C:\\Program Files\\Support Tools\\;C:\\Program Files\\Common Files\\Adobe\\AGL;C:\\Program Files\\Hewlett-Packard\\OpenView\\service desk 4.5\\client\\bin;C:\\Program Files\\QuickTime\\QTSystem\\")
            Exit
        EndIf
    EndIf
WEnd

Pouvez vous m'aider
Merci a tous

[GaRydelaMer]

Bonjour

ca devrait fonctionner comme ca pas tester pour pas écrire dans ma base de registre.

Code : Tout sélectionner

#include <GUIConstants.au3>

#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Oracle", 337, 110, 398, 218)
$Info = GUICtrlCreateCombo("", 24, 24, 281, 25)
GUICtrlSetData(-1, "8.1.7|9.2", "8.1.7")
$Ok = GUICtrlCreateButton("OK", 108, 56, 113, 25, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
    $Msg = GUIGetMsg()
    If $Msg = $GUI_EVENT_CLOSE Then Exit
    
    ; on attend de cliquer sur OK
    If $Msg = $ok Then
        ; je lis la valeur séléctionner dans la liste deroulante
        Switch GUICtrlRead($Info)
            ; suivant la valeur je mofidife la chaine pour le registre
            Case "8.1.7"
                $reg = "C:\\oracle\\10IDS_R2\\BIN\\;C:\\Program Files\\Microsoft SQL Server\\80\\Tools\\Binn\\;c:\\oracle\\10IDS_R2\\jdk\\jre\\bin\\client;c:\\oracle\\10IDS_R2\\jdk\\jre\\bin\\classic;c:\\oracle\\10IDS_R2\\jdk\\jre\\bin;c:\\oracle\\10IDS_R2\\jlib;c:\\oracle\\10IDS_R2\\bin;c:\\oracle\\10IDS_R2\\jre\\1.4.2\\bin\\client;c:\\oracle\\10IDS_R2\\jre\\1.4.2\\bin;C:\\Program Files\\Windows Resource Kits\\Tools\\;C:\\WINDOWS\\system32;C:\\WINDOWS;C:\\WINDOWS\\System32\\Wbem;C:\\Program Files\\Common Files\\OCR\\Version15.2;C:\\Program Files\\Support Tools\\;C:\\Program Files\\Common Files\\Adobe\\AGL;C:\\Program Files\\Hewlett-Packard\\OpenView\\service desk 4.5\\client\\bin;C:\\Program Files\\QuickTime\\QTSystem\\"
            Case "9.2"
                $reg = "C:\\oracle\\11IDS_R2\\BIN\\;C:\\Program Files\\Microsoft SQL Server\\80\\Tools\\Binn\\;c:\\oracle\\11IDS_R2\\jdk\\jre\\bin\\client;c:\\oracle\\11IDS_R2\\jdk\\jre\\bin\\classic;c:\\oracle\\11IDS_R2\\jdk\\jre\\bin;c:\\oracle\\11IDS_R2\\jlib;c:\\oracle\\11IDS_R2\\bin;c:\\oracle\\11IDS_R2\\jre\\1.4.2\\bin\\client;c:\\oracle\\11IDS_R2\\jre\\1.4.2\\bin;C:\\Program Files\\Windows Resource Kits\\Tools\\;C:\\WINDOWS\\system32;C:\\WINDOWS;C:\\WINDOWS\\System32\\Wbem;C:\\Program Files\\Common Files\\OCR\\Version15.2;C:\\Program Files\\Support Tools\\;C:\\Program Files\\Common Files\\Adobe\\AGL;C:\\Program Files\\Hewlett-Packard\\OpenView\\service desk 4.5\\client\\bin;C:\\Program Files\\QuickTime\\QTSystem\\"
        EndSwitch
        ; j'écris dans le registre
        RegWrite("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment", "Path", "REG_SZ", $reg)
        ; je quitte
        Exit
    EndIf
WEnd

Je pense que tu peux aussi optimiser la liste de tes chemins pour la variable d'environnement Path.

Aussi voir plutôt pour lire la valeur existante du registre et effectuer un remplacement si tu trouves "oracle" sinon tu ajoute, si demain tu rajoute une valeur au path ton programme n'en tiendra pas compte.