[..] Récupérer valeur d'un fichier texte pour tableau

[fanatick]

Bonjour je vous explique mon problème :

En fait J'ai un document texte qui contient plusieurs valeurs comme ca : login clé d'activation login clé dactivation login clé d'activation etc .....

En fait " login " et "clé d'activation " sont liés je voudrais que ca prenne ces deux valeurs et que ca les mettents dans des cases sous forme de tableau , j'ai besoin de conseil pour savoir comment faire un tableau dans une Gui , et que ca crée les cases au fur et à mesure , ainsi que comment copié les valeurs dans les cases ( file write ? mais comment l'utiliser dans ce contexte ? )

Merci.

[moutelous]

Bonjour,

et que ca les mettents dans des cases

et que ca crée les cases au fur et à mesure

Autrement dit, vous voulez mapper un fichier texte dans un tableau

ainsi que comment copié les valeurs dans les cases

et exploiter les variables de ce tableau ....

Il nous faudrait un chouille de plus d'indications mon ami ......

A+


Ps : une copie du fichier texte par exemple ...

[fanatick]

Merci de m'avoir repondu alors je te presente la forme du document texte :
User : bebe24@msn.com clé d'activation : fnn544511gfn8GR
User : jerem12_54@hotmail.fr clé d'activation : rehr74grrge
User : rargtrh21456@neuf.fr clé d'activation : erhrehr11rrher
User : elite45@free.fr clé d'activation : (null)
User : lal07@hotmail.fr clé d'activation : (null)
User : little_love@aol.com clé d'activation : 11gfn
User : paris_forza@hotmail.com clé d'activation : (null)
User : cana_canabiere@hotmail.fr clé d'activation : (null)
User : roidunet_52@hotmail.fr clé d'activation : (null)
User : rato441@hotmail.com clé d'activation : 11rrher

Les informations que j'ai mise sont evidemment fausse , j'ai inventer pour un exemple ^^ Donc il faudrait que ca me mette dans une premier colonne Les user et dans une autres les clé d'activation. Quand il y a la mention "(null)" , c'est que l'utilisateur n'a pas encore activer donc on ne prend pas en compte cette ligne ( ni de l'user ni rien du tout ) et on passe à la suivante. Mais je sais pas si il faudrait que le tableau soit dans une gui ou autre . Mais je prefere une gui car j'aimerais ajouter des menus pour que ca soit plus pratique merci !

[jbnh]

Voila un exemple qui peut t'aider a faire un tableau, ou une gui avec des inputs qui se crée au fur et a mesure, dis moi si tu ne comprend pas.

Code : Tout sélectionner

#include <string.au3>
#include <array.au3>
$a = FileRead("test.txt")
$b = _StringBetween($a, 'User : ', " clé d'activation")
If IsArray ($b) Then  
$c = Ubound($b) 
Dim $avArray[$c+1][2] 
$d=0
Do 
$avArray[$d][1] = $b[$d]
$d = $d+1
Until $d = $c
_ArrayDisplay($avArray, "coucou")
Endif

oublie pas de changer le path du txt

[fanatick]

Merci beaucoup ! mais j'ai essayé de modifié le script mais ca ne met pas les clé d'activation sur une autre colonne et je comprend pas tres bien comment ca ce fait que ca me crée une gui avec un tabelau alors que il n'y a meme pas creation de gui merci

[Yogui]

c'est la ligne : _ArrayDisplay($avArray, "coucou") qui affiche la GUI .

[jbnh]

Code : Tout sélectionner

$b = _StringBetween($a, 'User : ', " clé d'activation")

_StringBetween va enfait prendre le string entre deux mots que tu indiques, ici User et clé d'activation.

Pour récup les clé d'activation, c'est plus dur, pcq on ne peut pas faire un stringbetween quand l'élément est en fin de ligne, donc on rajoute une saut de ligne pour rendre possible. Ce qui donne par exemple :

Code : Tout sélectionner

_StringBetween("User : rato441@hotmail.com clé d'activation : 11rrher"&@LF, "d'activation : ", @LF)

Tu ferais donc ton code en deux parties : une pour les emails et une pour les clés en reprenant mon code. Enleve juste les éléments des arrays si tu veux, qui constitue le tableau.

Si tu t'en sors pas et je comprend très bien pcq c'est vraiment casse-tête, dit le moi, je le ferai et je deplacerai le topic dans demande de création de scripts.

A+

[fanatick]

Ouai mais je serais obligé de tapé l'adresse email a chaque fois non? en fait mon but final c'est que le fichier sera en permanance changé et il sera sur un ftp. Mon but est que le programme puisse prendre les fichier txt avec une option Fichier puis telecharger , et faire un checker de new fichier. Et que ensuite ca configure automatiquement dans le tableau et que ca remplisse User et clé d'activation dans le tableau et que ca sauvegarde ceux deja mis , car il y en aura tous les jours des nouveaux . j'espere que tu comprend merci !

[jbnh]

Code : Tout sélectionner

#include <string.au3>
#include <array.au3>

InetGet("http://aaaa/bonjour.txt", "file.txt", 0, 0)
$a = FileRead("file.txt")
$b = _StringBetween($a, 'User : ', " clé d'activation")

$e = StringSplit($a, @CR)

If IsArray ($b) Then  
    $c = Ubound($b) 
    Dim $avArray[$c+1][2] 
    $d=0
    
        Do 
            $avArray[$d][0] = $b[$d]
            $d = $d+1
        Until $d = $c

    For $i = 1 To $e[0]
    $var = FileReadLine("file.txt", $i) & @LF
    
    $f = _StringBetween($var, "d'activation : ", @LF)
        If IsArray ($f) Then            
        $g = $f[0]
        $avArray[$i-1][1] = $g
        
        Endif
        
    Next

_ArrayDisplay($avArray, "coucou")
Else
    msgbox(0,"", "Mauvais fichier")
Endif

Changer l'url dans InetGet

[fanatick]

Merci beaucoup ca marche , mais quelque améliorations comme :
-faire une gui avec du design ( je ne vois pas ou faire ma gui) ,
- faire un icone pour que ca check si il y a un nouveau fichier texte.
-Deplus les lignes ou on le connait pas la clé d'activation il faudrait que ca saute cette ligne donc que ca ne mette pas l'adresse email et ' (null) ' dans le tableau.
-et dernierement que ca enregistre à chaque fois le tableau , donc que les anciens document texte soit deja dans le tableau quand on actualise.
- si possible de faire une option dans la gui pour modifier le ftp et le nom du fichier Merci beaucoup!

[jbnh]

Voila, tout les bonnes lignes (sans (null) ) sont sauvée dans tableau.txt, et je crée le tableau a partir ce fichier. Chaque fois que tu clic sur 'mettre à jour' apres avoir downloadé ton fichier, tableau.txt "s'increase" avec toutes les nouvelles données.

► Afficher le texte

Code : Tout sélectionner

#include <GuiConstants.au3>
#include <string.au3>
#include <array.au3>


GuiCreate("GUI", 350, 100)
$Input_1 = GUICtrlCreateInput("http://url.com/fichier.txt", 55, 10, 220, 20)
$Button_1 = GUICtrlCreateButton("Download !", 140, 40, 70, 20)
$Button_2 = GUICtrlCreateButton("Mettre à jour le tableau !", 105, 70, 130, 20)
GUISetState(@SW_SHOW)
GUICtrlSetState($Button_2, $GUI_DISABLE)
While 1
$msg = GUIGetMsg()
    Select
        Case $msg = $GUI_EVENT_CLOSE
             ExitLoop
             
        Case $msg = $Button_1
            InetGet(Guictrlread($Input_1), "temp.txt", 0, 0)   
            While @InetGetActive
            TrayTip("Downloading", "Bytes = " & @InetGetBytesRead, 10, 16)
            Sleep(50)
            Wend
            GUICtrlSetState($Button_2, $GUI_ENABLE) 
        
        Case $msg = $Button_2
            If not FileExists("temp.txt") Then
                msgbox(0,'', "Aucun fichier n'a été téléchargé pour la mise à jour")
                exit
            Endif
        
        ;TRI DANS LE FICHIER TEMP
        $a = FileRead("temp.txt")
        $e = StringSplit($a, @LF)       
        For $i = 1 To $e[0]
                $clear = FileReadLine("temp.txt", $i)  
                $var = FileReadLine("temp.txt", $i) & @LF    
                $f = _StringBetween($var, "d'activation : ", @LF)
                
                    If IsArray ($f) Then            
                        $g = $f[0]
                        If not StringInStr($g, "(null)") Then
                            FilewriteLine ("tableau.txt", $clear)
                        Endif           
                    Endif
        Next
    
        ;CREATION DU TABLEAU DANS LE FICHIER TABLEAU
        $j = FileRead("tableau.txt")
        $b = _StringBetween($j, 'User : ', " clé d'activation")
        $e2 = StringSplit($j, @LF)
        ;*******************************************
            If IsArray ($b) Then  
                $c = Ubound($b) 
                Dim $avArray[$c+1][2] 
                $d=0
    
                    Do 
                        $avArray[$d][0] = $b[$d]
                        $d = $d+1
                    Until $d = $c
        ;*******************************************
        
            For $i2 = 1 To $e2[0]
                $var2 = FileReadLine("tableau.txt", $i2) & @LF    
                
                $f2 = _StringBetween($var2, "d'activation : ", @LF)
                
                    If IsArray ($f2) Then            
                        $g2 = $f2[0]
                        $avArray[$i2-1][1] = $g2            
                    Endif
        
            Next
        ;*******************************************
            FileDelete ( "temp.txt" )
            _ArrayDisplay($avArray, "coucou")
            Else
            msgbox (0,'', "Mauvaises données")
            Endif
            
    EndSelect            
Wend