[R] Affichage du résultat d'une commande DOS dans ListBox

[neg]

Bonjour,

étant totalement débutant avec autoit, je viens rechercher votre aide pour quelques problèmes et questions,

Je suis en train d'écrire une petite application qui doit afficher le résultat d'une commande dos dans une listbox, mais j'ai quelques petits souci:

Ma commande est de ce type: Run('"c:\chemin\.." -optfile="c:\chemin\..." -option=*** -option=*** -option=*** "select *** from *** where type='****'")
Le premier problème viens des ' ' dans la requête sql, je cherche à savoir comment faire pour qu'autoit ne les interprète pas? J'ai testé avec "' '" ou '' '' mais sans succès.

De plus, je voudrais récupérer le résultat (une liste) de cette commande dans une listbox, j'ai écrit ceci pour le moment:

Code : Tout sélectionner

;gui
$GUI1 = GUICreate("GUI", 300, 450, 300, 200)
;listbox
$LISTBOX = GUICtrlCreateList("", 40, 80, 220, 150)
;bouton
$SHOW = GUICtrlCreateButton("Show", 200, 30, 90, 20) 
...

GUISetState(@SW_SHOW, $GUI1)

While 1
$nMsg = GUIGetMsg() ;
Switch $nMsg ; 
Case $SHOW
             $COMMAND='"c:\chemin\.." -optfile="c:\chemin\..." -option=*** -option=*** -option=*** "select *** from *** where type='****'"'
             ;$CMD=Execute($COMMAND) ;test avec execute
             $CMD=Run('$COMMAND')
             GuiCtrlSetData($LISTBOX, $CMD)

EndSwitch

WEnd
 

Si quelqu'un peut me donner un petit coup de main la dessus je l'en remercie d'avance.

J'ai également une petite question: es-ce possible de faire une comparaison du contenu de deux listbox et afficher le résultat dans une 3e listbox?

Merci

[SurPriseS]

Pour la cmd dos, peut être en envoyant le tout dans un fichier, et en allant lire se fichier après ?

[neg]

Merci SurPriseS,

j'y ai pensé aussi mais si possible je préfèrerai pouvoir le faire sans passer par un fichier, mais je garde l'idée dans un coin

[ZDS]

Bonjour!

Pour la commande DOS à traiter, il y a beaucoup d'exemples sur ce cas en utilisant les regexps (moteur de recherche "regexp espace guillemet"). Je te laisse voir pour en faire une qui fonctionne. En tout cas c'est complètement inutile de passer par un fichier (j'en vois même pas le sens en fait... :s)

L'autre méthode est de séparer ta chaine avec les espaces , et de recoller les morceaux qui doivent l'etre, c'est sans doute plus facile. Je te prépare un exemple dans l'après midi.

Enfin, quand tu dis que tu veux afficher les données dans la listBox, je suppose que tu veux séparer chaque morceau de la chaine de caractères pour les mettres dans des choix différents de la listBox?

A bientôt !

EDIT: Voici l'exemple de script, dis moi si c'est le résultat que tu en attendais :

► Afficher le texte

Code : Tout sélectionner

Local $chaine  = '"c:\chemin\.." -optfile="c:\chemin\..." -option=*** -option=*** -option=*** ' & '"select *** from *** where type='&"'***'"&'"'
Local $tableau = splitArguments($chaine)
For $i = 1 To $tableau[0]
    MsgBox(0, "Resultat n°" & $i, $tableau[$i])
Next

#Region Fonctions de séparation des arguments
Func splitArguments($string)
    Local $split = StringSplit($string," "), $index=1, $betweenQuotes = False
    ; Pour chaque morceau entre espaces
    For $i = 1 To $split[0]
        Local $sousChaine = $split[$i]
        If $betweenQuotes Then ; Si on a trouvé un guillemet auparavant
            $split[$index] = $split[$index]&" "&$sousChaine ; on recolle avec la chaine de départ
            $split[$i] = "" ; on efface la ligne en cours
            If Mod(numberOf($sousChaine,'"'),2) = 1 Then $betweenQuotes = False ; si on trouve 2k+1 guillemet, alors le bloc entre guillemet est fini
        Else ; Si on est sans guillemet
            If Mod(numberOf($sousChaine,'"'),2) = 1 Then ; si on trouve 2k+1 guillemet, alors le bloc entre guillemet commence
                $betweenQuotes = True
                $index = $i ; on fixe l'index de départ du bloc
            EndIf
        EndIf
    Next
    ; On efface toutes les lignes vides
    Local $gap = 0, $size = 0
    For $i = 1 To $split[0]
        If $split[$i] = "" Then
            $gap = $gap+1
        Else
            $size = $size+1
            $split[$i-$gap] = $split[$i]
        EndIf
    Next
    ; On redimensionne le tableau
    ReDim $split[$size+1]
    $split[0] = $size
    ; On retourne le resultat
    Return $split
EndFunc

Func numberOf($string, $char)
    Local $i = 0
    ; Tant qu'on trouve le caractère n°($i+1), on continue
    While StringInStr($string, $char, 0, $i+1) <> 0
        $i = $i + 1
    WEnd
    Return $i
EndFunc
#EndRegion

[jchd]

Tu n'as pas la possibilité d'exécuter ta requête SQL directement depuis AutoIt ? Quel moteur de BDD est en face ?

[sksbir]

Bonjour,
..........Le premier problème viens des ' ' dans la requête sql, je cherche à savoir comment faire pour qu'autoit ne les interprète pas? J'ai testé avec "' '" ou '' '' mais sans succès.
....

Bonjour

mmm, alors la commande c'est quoi ? sqlplus.exe ? Quoi qu'il en soit, ce que tu cherches à récupérer, ça n'est pas le résultat d'une commande DOS, mais le résultat d'un exécutable qui fonctionne en mode console.

Si tu voulais le résultat d'une commande DOS ( comme par exemple DIR ), il te faudrait utiliser l'astuce décrite dans l'aide de run/runwait : RunWait(@ComSpec & " /c " & "commandName")
Par ailleurs, tu dois également utiliser cette astuce si tu veux profiter de la redirection de fichiers ( > ou >> )

Concernant les ' et les ": A la base, il suffit de doubler la quote utilisée comme délimiteur.
exemple : $TEST=' je veux une simple quote ici -->''<-- donc j''en met 2 simples (et non pas une double hein..) '
ou sinon
$TEST=" je veux une quote ici-->'<-- comme je délimite avec des doubles quotes, pas besoin de doubler les simples"


Donc si tu as des soucis avec les ', essaye d'encapsuler ta commande avec des " et non plus avec des '
Ta commande devient alors: ( les " deviennent "" car " est utilisé comme délimiteur )
$COMMAND="""c:\chemin\.."" -optfile=""c:\chemin\..."" -option=*** -option=*** -option=*** ""select *** from *** where type='****'"" "

Et au fait, tout ceci est expliqué dans l'aide d'autoit ( F1 --> Autoit-->Language reference --> datatype --> "strings" )

voili voilou...

[ZDS]

Argh !

Mea culpa; tu veux afficher le résultat de ta requête SQL dans la listBox, et non les arguments de ta commande d'appel, c'est ça?
Si oui, le code fourni précédemment ne te sert à rien, mais qu'est ce que ça peut bien te faire qu'AutoIt interprète la commande SQL? puisque au moment de l'appel, le receveur "c:\chemin\..." saura que le bloc entre guillemet est une commande entière non? (et d'ailleurs, où est ce que tu vois que la commande est interpretée?)

PS: sksbir a raison, tu ne peux pas récupérer comme ça le contenu d'une requête SQL par un Run (qui ne retourne qu'un PID ou un code d'erreur, rien d'autre), il faut que tu passes par une UDF pour ça.

[neg]

Ok, merci pour les précisions, et sa fonctionne niquel avec les "", merci!

En fait oui la commande lance un exécutable (à qui je passe en option un fichier de conf et des options) qui ensuite lance la requête sql.

La du coup avec le run je récupère bien la sortie de la commande, par exemple dans un fichier texte:
Run("""c:\chemin\.."" -optfile=""c:\chemin\..."" -option=*** -option=*** -option=*** ""select *** from *** where type='****'""> C:\test.txt")

Je vais voir du côté UDF alors, merci.

Et merci pour l'exemple de script ZDS, mais oui je veux juste récupérer le résultat de la requête dans ma listbox.

@jchd: non je ne peux pas exécuter directement la requête depuis autoit, mais oui sinon c'est sur que sa serai plus simple

[neg]

Bonjour,

à priori sa va marcher comme sa, je récupère la sortie de la commande dans un fichier et le compare avec un autre.
Par contre je bloque un peu sur la comparaison de fichiers, pourriez-vous me dire s'il existe un genre de "while read line" avec autoit?

j'ai écrit sa:

Code : Tout sélectionner

While 1
     $line = FileReadLine($file_list)
     If @error = -1 Then ExitLoop
     GuictrlSetData ($LIST1, $line)
     While 1
     $line2 = FileReadLine($file_list2)
          If @error = -1 Then ExitLoop
          If ($line2 <> $line) Then
               GuictrlSetData ($LIST2, $line2)
          EndIf
     Wend
     FileClose($file_list2)
Wend
FileClose($file_list)

mais il sort de boucle dès la première occurrence,
j'imagine que sa viens du While 1 et If @error = -1 Then ExitLoop, donc je cherche à savoir comment lui dire de comparer chaque ligne de $file_list avec toutes les lignes de $file_list2?

Merci d'avance

[ZDS]

Bonjour,

Ce que tu passes dans le FileReadLine est un flux, et non un fichier, c'est pourquoi après un tour de boucle dans le second while, le flux $file_list2 est arrivé en bout de course, il faut le réinitialiser :

► Afficher le texte

Code : Tout sélectionner

$file_list = FileOpen($fichier, 0) ; Un truc du genre
While 1
     $line = FileReadLine($file_list)
     If @error = -1 Then ExitLoop
     GuictrlSetData ($LIST1, $line)
     $file_list2 = FileOpen($fichier2, 0) ; Un autre truc du genre
     While 1
          $line2 = FileReadLine($file_list2)
          If @error = -1 Then ExitLoop
          If ($line2 <> $line) Then GuictrlSetData ($LIST2, $line2)
     Wend
     FileClose($file_list2)
Wend
FileClose($file_list)

Sinon, question algo, je ne vois pas ce que ton script peut faire, car en fait il va afficher n fois la même ligne du fichier 2 si il existe n lignes du fichier 2 qui ne sont pas les mêmes que dans le 1, du point de vue logique, c'est assez idiot, non? ^^ Tu veux faire quoi : afficher toutes les lignes des deux fichiers sans aucun doublon? afficher les lignes du fichier 1 qui sont aussi (ou qui ne sont pas) dans le fichier 2 ? etc...

Donne nous plus d'infos

A bientôt !

[neg]

Merci pour ta réponse,

oui en fait j'ai mit ces deux lignes plus haut dans mon script
$file_list = FileOpen($fichier, 0)
$file_list2 = FileOpen($fichier2, 0)

En fait je veux afficher dans une listbox les lignes du fichier 2 seulement si elles ne sont pas dans le fichier1, mais je viens de réussir avec

Code : Tout sélectionner

...If StringInStr($line,$line2,2) <> 0 Then...

à la place de

Code : Tout sélectionner

...If ($line2 <> $line) Then GuictrlSetData ($LIST2, $line2)...

Donc c'est bon, je vais essayer de réécrire sa proprement sans utiliser de fichiers mais pour le moment sa ira

Merci pour ton aide en tout cas!

[jchd]

Pour la question de la comparaison de fichiers ou (problème essentiellement équivalent) trouver ou supprimer les doublons dans 2 à n fichiers texte, voir ce fil de discussion (en anglais). Les méthodes exposées permettent de traiter des fichiers assez gros (avec ScriptingDictionary) ou dépassant de loin la mémoire disponible (avec SQlite) et ont toutes deux une complexité en O(N Log(N)).

S'il ne s'agit que de quelques lignes, la méthode brutale suffira (complexité en O(N M))