[R] RegEnumKey

[camil]

Bonjour,

Dans ma base de registre j'ai créé plusieurs clés pour tester RegEnumKey :
HKEY_LOCAL_MACHINE\System\0test\entree1\sortie1
HKEY_LOCAL_MACHINE\System\0test\entree2\sortie2

Quand je lance le Script il me sort :
1er MsgBox :
entree1 / sortie1
2eme MsgBox :
entree2 / sortie2

Je ne suis pas très fier de se Script, je souhaiterai les résultats sur un seul MsgBox.

Code: [Tout sélectionner] [Déplier/Replier]

For $i = 1 To 10

    $sSubKey1 = RegEnumKey("HKEY_LOCAL_MACHINE\System\0test\", $i)
   
For $n = 1 To 1

    $sSubKey2 = RegEnumKey("HKEY_LOCAL_MACHINE\System\0test\" & $sSubKey1 & "\", $n )

    MsgBox($MB_SYSTEMMODAL, "SubKey #" & $i & " : ", $sSubKey1 & " \ " & $sSubKey2 )

Next
    If $sSubKey1 = ""  Then ExitLoop
Next

GeSHi © Extension Codebox Plus

Merci pour l'aide,

[orax]

Il n'y a qu'une seule clé dans entree2 donc c'est l'instance 1.

Code : Tout sélectionner

$sSubKey2 = RegEnumKey("HKEY_LOCAL_MACHINE\System\0test\" & $sSubKey1 & "\", 1)

[camil]

Merci orax, je viens de modifier ça fait moins de boucle.

Mais pour afficher dans la même MsgBox mes instances, je ne sais pas comment faire ?

[walkson]

Code : Tout sélectionner

Local $cumul = ""
For ...
$cumul &= "SubKey #" & $i & " : ", $sSubKey1 & " \ " & $sSubKey2 & @CRLF
Next
Msgbox(0,"",$cumul)

Pourquoi 2 fois If $sSubKey1 = "" Then ExitLoop ??

[camil]

C'est un oublie, merci pour la ligne de code c'est impeccable.

Code : Tout sélectionner

#include <MsgBoxConstants.au3>

Local $cumul = ""

For $i = 1 To 10

    $sSubKey1 = RegEnumKey("HKEY_LOCAL_MACHINE\System\0test\", $i)

	If $sSubKey1 = ""  Then ExitLoop

    $sSubKey2 = RegEnumKey("HKEY_LOCAL_MACHINE\System\0test\" & $sSubKey1 & "\", 1 )

    $cumul &= "SubKey #" & $i & " : " & $sSubKey1 & " \ " & $sSubKey2 & @CRLF _
	           & "------------------------------------------" & @CRLF

Next

Msgbox(0,"",$cumul)

[Tlem]

@Camil
L'utilisation de la balise BBCode [ code2][ /code2] n'est prévue que pour une seule ligne de code, pas pour une série de lignes.
Merci de faire un peu plus attention la prochaine fois.