[..] ListVars

[mikell]

Bonjour,
Existe-t-il l'équivalent de la fonction ListVars (AutoHotKey) en AutoIt ?
http://www.autohotkey.com/docs/commands/ListVars.htm

[jchd]

Non

[TT22]

C'est vrai qu'une fonction comme ça serait très utile

[Tlem]

Ah bon !!!
Moi si je veux afficher la valeur d'une variable, je ne suis pas obligé de me taper la liste des 10, 20, 50 , 100, ou 1000 variables du script et de ses dépendances ...
Un ConsoleWrite("$MaVariable = " & $MaVariable & @CRLF)
Et plutôt que de faire cette ligne plusieurs fois, une fonction comme ceci suffit :

Code : Tout sélectionner

$MaVariable = "Valeur de test"
ViewVar("$MaVariable", $MaVariable)

Func ViewVar($SzVarName, $szVar)
    ConsoleWrite($SzVarName & " = " & $szVar & @CRLF)
EndFunc

[mikell]

On se calme
Je voulais juste pouvoir lister les variables d'un script pour éviter les doublons, en un clic
J'ai trouvé ça sur le forum US

► Afficher le texte

Code : Tout sélectionner

#include <File.au3>
#include <Array.au3>

$Source = FileOpenDialog("Choose a script to find Variables in:", @DesktopCommonDir, "Scripts (*.au3)", 1 + 2)

If @error Then Exit

$Results = StringTrimRight($Source, 4) & ".txt"

Dim $File

$Char = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz1234567890_$"
$Variables = _ArrayCreate(1)

_FileReadToArray($Source, $File)

For $i = 1 To (UBound($File, 1) - 1)
    $Instance = 0
    $Line = StringSplit($File[$i], "")
    Do
        $VarStart = _ArraySearch($Line, Chr(36), $Instance)
        $Instance = $VarStart + 1
        If $VarStart > 0 Then
            $Var = ""
            For $t = $VarStart To UBound($Line, 1) - 1
                If StringInStr($Char, $Line[$t]) > 0 Then
                    $Var = $Var&$Line[$t]
                Else
                    ExitLoop
                EndIf
            Next
            If $Var <> "" And _ArraySearch($Variables, $Var) = -1 Then _ArrayAdd($Variables, $Var)
        EndIf
    Until $VarStart <= 0
Next

$Variables[0] = UBound($Variables, 1) - 1

_FileWriteFromArray($Results, $Variables)
;_ArrayDisplay($Variables, "")
 

mais c'est vrai qu'afficher les valeurs, c'est intéressant aussi

[Tlem]

Hummm vouis, effectivement, j'avais aussi pensé à cela, mais ça ne fonctionne plus si le script est compilé. ^^

[mikell]

Sérieusement, vous voyez un intérêt quelconque à "lister les variables d'un script pour éviter les doublons" dans un script compilé ??

[Tlem]

Vous voulez éviter les problèmes de variables (et autres) dans vos scripts, alors rajoutez cette directive :

#AutoIt3Wrapper_AU3Check_Parameters=-d -w 1 -w 2 -w 3 -w 4 -w 6

puis jouez avec CTRL+F5 ou F5 direct.

Pour rechercher si une variable existe déjà, CTRL+F fonctionne bien aussi.

[zeshrek]

pour éviter les doublons il est encore plus logique d'utiliser

Code : Tout sélectionner

AutoItSetOption("MustDeclareVars", 1)

au début du script, comme ca ca oblige a déclarer les variable.
Perso c'est ce que je fais, et je met un bloc de Global en début de script, et un bloc de Local en début de chaque fonction.

[mikell]

C'est vrai et je le fais aussi, le problème peut venir éventuellement lors de l'écriture du script avec des variables déclarées dans des fonctions (je sais que ça ne doit pas se faire sauf en Local, mais... )
De toute façon tout ça n'est pas très important