Page 1 sur 1
[..] Récupérer valeur d'un fichier texte pour tableau
Posté : lun. 05 janv. 2009 21:03
par 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.
Re: [..]Recuprer valeur d'un fichier texte pour tableau
Posté : lun. 05 janv. 2009 22:58
par moutelous
Bonjour,
fanatick a écrit :et que ca les mettents dans des cases
fanatick a écrit :et que ca crée les cases au fur et à mesure
Autrement dit, vous voulez mapper un fichier texte dans un tableau
fanatick a écrit :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 ...
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : mar. 06 janv. 2009 19:24
par 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 !
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : jeu. 08 janv. 2009 19:24
par 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
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : ven. 09 janv. 2009 20:21
par 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
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : ven. 09 janv. 2009 21:50
par Yogui
c'est la ligne : _ArrayDisplay($avArray, "coucou") qui affiche la GUI .
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : ven. 09 janv. 2009 22:48
par jbnh
_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+
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : ven. 09 janv. 2009 23:09
par 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 !
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : ven. 09 janv. 2009 23:52
par 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
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : sam. 10 janv. 2009 15:31
par 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!
Re: [..] Récupérer valeur d'un fichier texte pour tableau
Posté : sam. 10 janv. 2009 19:39
par 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