[R] Traitement en rafale association de fichiers

[jerebou]

Bonjour a tous,

je cherche a traiter un ensemble d'extensions pour supprimer dans un premier temps les clés du registre y faisant référence, et les réécrire correctement en y associant la bonne appli.

Le scénario est le suivant:

Il faut pouvoir n'actionner le traitement que pour une liste d'extension limitée et donnée, et supprimer ces clés pour les rajouter correctement ensuite, donc typiquement:

► Afficher le texte

$HKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes"
; pour toute extension de l'ensemble a définir, c'est ce que je ne sais pas traduire
RegDelete ($HKLM&"\extensionlambda")
RegWrite($HKLM&"\extensionlambda", "Nom de la clé", type de clé genre "REG_SZ", 'valeur attribuée')

Merci a vous.

[mikell]

J'ai pas bcp de temps, donc:
tu stockes tes extensions dans une array
tu fais une boucle "for $i=0 to UBound($array)-1" où chaque extension s'appellera $array[$i] avec tes instructions dedans
Fais gaffe avec la BDR quand même, fais une svgarde avant

[jerebou]

Merci beaucoup, je pense avoir compris mais je voudrais etre bien sur de la syntaxe, voila mon code apres avoir suivi tes indications:

► Afficher le texte

If @OSArch = "X64" Then
$HKCR = "HKEY_CLASSES_ROOT64"
$HKLM = "HKEY_LOCAL_MACHINE64\SOFTWARE\Classes\."
ElseIf @OSArch = "x86" Then
$HKCR = "HKEY_CLASSES_ROOT"
$HKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\."
EndIf

Dim $Array[6]=["ext1", "ext2", "ext3", "ext4", "ext5", "ext6"]

for $i=0 to UBound($Array)-1
;On vire chacune des clés du registre
RegDelete($HKCR&$Array)
RegDelete($HKLM&$Array)
;Et on crée les bonnes
RegWrite($HKCR&$Array, "Nom de la clé", "REG_SZ", 'Valeur attribuée')
RegWrite($HKLM&$Array, "Nom de la clé", "REG_SZ", 'Valeur attribuée')

La machine comprend que lorsqu'elle lit le chemin dans la BDR c'est pour chaque extension respectivement même si on ne mentionne pas l'indice après $Array dans l'instruction RegWrite ou RegDelete ?

[mikell]

Argh relis mon post, bien sûr qu'il faut mentionner l'indice !
Fais attention à la syntaxe, un petit point en plus ou en moins et c'est mort
Conseil, fais d'abord l'essai avec juste une extension, en ayant sauvegardé la clé d'abord
D'ailleurs ça pourrait être sympa avec le même script de faire une sauvegarde systématiquement et pour chaque clé (sauvegarde + destruction + réécriture)
Relis bien j'ai corrigé qques bricoles

► Afficher le texte

Code : Tout sélectionner

If @OSArch = "X64" Then
    $HKCR = "HKEY_CLASSES_ROOT64\"
    $HKLM = "HKEY_LOCAL_MACHINE64\SOFTWARE\Classes\"
ElseIf @OSArch = "x86" Then
    $HKCR = "HKEY_CLASSES_ROOT\"
    $HKLM = "HKEY_LOCAL_MACHINE\SOFTWARE\Classes\"
EndIf

Dim $Array[6]=[".ext1", ".ext2", ".ext3", ".ext4", ".ext5", ".ext6"]

for $i=0 to UBound($Array)-1
   ;On vire chacune des clés du registre
RegDelete($HKCR & $Array[$i])
RegDelete($HKLM & $Array[$i])
   ;Et on crée les bonnes
RegWrite($HKCR & $Array[$i], "Nom de la clé", "REG_SZ", 'Valeur attribuée')
RegWrite($HKLM & $Array[$i], "Nom de la clé", "REG_SZ", 'Valeur attribuée')
Next

Pour tes posts, utilise la balise "code" pour du script, ou les balises "spoiler" + "code" si ça fait plus de 10 lignes

[jerebou]

Mille mercis, en fait c’était le $ qui me faisait défaut et je comprends pas vraiment la raison d’insérer un $ avant l'indice, mais si c'est la syntaxe qui veut ça, soit...
Je vais tester et te tiens au courant, j'ai édité mon post précédent pour couper l'affichage du code

[mikell]

je comprends pas vraiment la raison d’insérer un $ avant l'indice

Peut-être parce que l'indice est une variable, et que les variables sont toujours signalées par le caractère $ ?

Each variable has a name (again, similar to a mailbox) and must start with the $ character

[matwachich]

J'ai pas tous lu, je suis un peut pressé, mais c'est juste pour dire qu'il existe des commande Dos très utiles en ce qui concerne les extension de fichiers: assoc et ftype

Voici 2 petite fonctions que j'utilise:

Code : Tout sélectionner

Func _Assoc_Add($sExt, $sFileType, $sCmd, $sIcon = Default)
    If StringLeft($sExt, 1) <> "." Then $sExt = "." & $sExt
    ; ---
    RunWait(@Comspec & ' /c ASSOC ' & $sExt & '=' & $sFileType, @SystemDir, @SW_HIDE)
    RunWait(@Comspec & ' /c FTYPE ' & $sFileType & '=' & $sCmd, @SystemDir, @SW_HIDE)
    ; ---
    If $sIcon <> Default Then
        RegWrite("HKEY_CLASSES_ROOT\" & $sFileType & "\DefaultIcon", "", "REG_SZ", $sIcon)
    EndIf
EndFunc

Func _Assoc_Del($sExt, $sFileType)
    If StringLeft($sExt, 1) <> "." Then $sExt = "." & $sExt
    ; ---
    RunWait(@Comspec & ' /c ASSOC ' & $sExt & '=nothing', @SystemDir, @SW_HIDE)
    RunWait(@Comspec & ' /c FTYPE ' & $sFileType & '=', @SystemDir, @SW_HIDE)
EndFunc

[Tlem]

Juste pour info, j'avais déjà fait une fonction pour gérer l'association !!!
Il suffisait d'utiliser la recherche pour trouver.

[matwachich]

Justement, c'est en cherchant les votre (à ce moment, je ne me souvenais plus que c'était vous!), et en ne les trouvant pas, que j'ai fait celles-ci!
PS: J'en avait besoin pour l'installation de MyDico

[jerebou]

En fait j'avais fait aussi une recherche mais je tenais a utiliser mon bout de code pour comprendre ou serait mon erreur et surtout que vu que je débute je mets pas trop mon nez dans des fonctions toutes prêtes et qui me demanderaient du temps pour en comprendre la syntaxe, et la proposition d'une boucle for me convient parfaitement, merci beaucoup.