[R] Sauvegarder une variable entre chaque utilisation

[Justyce]

Bonjour,

Je viens demander de l'aide car je n'arrive pas à sauvegarder des variables.(j'ai déjà essayé avec plusieurs commandes).
Mes scripts sont vraiment simple je débute !(ça ne fait même pas 5jours !) Et donc je créer des scripts vraiment simples.
Alors, voici mon problème :
J'ai créer un petit programme de sondage(que je vais améliorer par la suite il est en version 0.1bêta) :

► Afficher le texte

#cs ----------------------------------------------------------------------------
Programme Version : 0.1 bêta
Auteur: Justyce
LAST EDIT : 20/06/2011

#ce ----------------------------------------------------------------------------
;Introduction des variables(réponses)
Global $yes= "oui"
Global $no= "non"
Global $idontknow= "je ne sais pas"
Global $yescount= (0)
Global $nocount= (0)
Global $idontknowcount=(0)
;Introduction des variables terminée
;Début du programme
;Boîte de saisie
$input=InputBox("Sondage","Pensez-vous que le net dois rester libre et gratuit ?"& @CRLF &"Veuillez répondre par :"& @CRLF &"oui"& @CRLF &"non"& @CRLF &"je ne sais pas")
;Boîte de saisie terminée
;Début de Si...Alors...Donc
If ($input=$yes) Then
$yescount=$yescount+1
MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
ElseIf ($input=$no) Then
$nocount=$nocount+1
MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
ElseIf ($input=$idontknow)Then
$idontknowcount=$idontknowcount+1
MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
Else
MsgBox(0,"Error","Ce que vous avez entrer n'est pas valide"&@CRLF&"Veuillez repondre seulement par:"&@CRLF&"oui"&@CRLF&"non"&@CRLF&"je ne sais pas")
EndIf
;Si...Alors...Donc terminée
;Fin du programme
Sleep(500)

Note : je rajouterai une interface et une radiolist pour la version 1.0 (la prochaine)
Et le problème c'est que mes variables $...count sont réinitialisée à chaque lancement du script et je ne sais pas comment les sauvegardées...
Merci de votre aide


Justyce

[jl56]

Bonjour Justyce

Le plus simple pour stoker des infos c'est d'utiliser un fichier ini
vous pouvez lire , enregistrer des valeurs tres facilement
regardez dans l'aide les fonctions "inwriteé iniread etc... ainsi que les exemples

A+ JL56

[TT22]

Ou alors comme ça :

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------
Programme Version : 0.1 bêta
Auteur: Justyce
LAST EDIT : 20/06/2011

#ce ----------------------------------------------------------------------------
;Introduction des variables(réponses)
Global $yes= "oui"
Global $no= "non"
Global $idontknow= "je ne sais pas"
Global $yescount= (0)
Global $nocount= (0)
Global $idontknowcount=(0)
;Introduction des variables terminée
;Début du programme
;Boîte de saisie
$input=InputBox("Sondage","Pensez-vous que le net dois rester libre et gratuit ?"& @CRLF &"Veuillez répondre par :"& @CRLF &"oui"& @CRLF &"non"& @CRLF &"je ne sais pas")
;Boîte de saisie terminée
;Début de Si...Alors...Donc

If ($input=$yes) Then
$yescount=FileRead(@ScriptDir&"\oui.txt",9999999999)
FileDelete(@ScriptDir&"\oui.txt")
FileWrite(@ScriptDir&"\oui.txt",$yescount+1)
$yescount2=FileRead(@ScriptDir&"\oui.txt",9999999999)
$nocount2=FileRead(@ScriptDir&"\non.txt",9999999999)
$idontknowcount2=FileRead(@ScriptDir&"\je ne sais pas.txt",9999999999)
MsgBox(0,"Resultats",""&$yescount2&"ont répondu oui"& @CRLF& $nocount2 &"ont répondu non"&@CRLF& $idontknowcount2 &"ne savent pas")

ElseIf ($input=$no) Then
$nocount=FileRead(@ScriptDir&"\non.txt",9999999999)
FileDelete(@ScriptDir&"\non.txt")
FileWrite(@ScriptDir&"\non.txt",$nocount+1)
$yescount2=FileRead(@ScriptDir&"\oui.txt",9999999999)
$nocount2=FileRead(@ScriptDir&"\non.txt",9999999999)
$idontknowcount2=FileRead(@ScriptDir&"\je ne sais pas.txt",9999999999)
MsgBox(0,"Resultats",""&$yescount2&"ont répondu oui"& @CRLF& $nocount2 &"ont répondu non"&@CRLF& $idontknowcount2 &"ne savent pas")

ElseIf ($input=$idontknow)Then
$idontknowcount=FileRead(@ScriptDir&"\je ne sais pas.txt",9999999999)
FileDelete(@ScriptDir&"\je ne sais pas.txt")
FileWrite(@ScriptDir&"\je ne sais pas.txt",$idontknowcount+1)
$yescount2=FileRead(@ScriptDir&"\oui.txt",9999999999)
$nocount2=FileRead(@ScriptDir&"\non.txt",9999999999)
$idontknowcount2=FileRead(@ScriptDir&"\je ne sais pas.txt",9999999999)
MsgBox(0,"Resultats",""&$yescount2&"ont répondu oui"& @CRLF& $nocount2 &"ont répondu non"&@CRLF& $idontknowcount2 &"ne savent pas")

Else
MsgBox(0,"Error","Ce que vous avez entrer n'est pas valide"&@CRLF&"Veuillez repondre seulement par:"&@CRLF&"oui"&@CRLF&"non"&@CRLF&"je ne sais pas")
EndIf


;Si...Alors...Donc terminée
;Fin du programme
Sleep(500)

Il faut également 3 fichiers texte (voir le zip).

[bloodwolff]

Awwww coloration syntaxique interdite

La première chose que j'ai remarqué dans ton code sont le nombre impreeeeessssiiooonnnant de 9 qu'il y a !!
Dans la commande fileread() le deuxième paramètre est optionnel et s'il n'est pas spécifié fileread lis automatiquement tout le fichier

[TT22]

Awwww coloration syntaxique interdite

Je savais pas. Mais c'est corigé.

La première chose que j'ai remarqué dans ton code sont le nombre impreeeeessssiiooonnnant de 9 qu'il y a !!
Dans la commande fileread() le deuxième paramètre est optionnel et s'il n'est pas spécifié fileread lis automatiquement tout le fichier

Je ne savais pas non plus, merci aussi

@ Justyce

Note : je rajouterai une interface et une radiolist pour la version 1.0 (la prochaine)

Tien, ça peut t'aider :

► Afficher le texte

Code : Tout sélectionner

#include <GUIConstantsEx.au3>
#cs ----------------------------------------------------------------------------
Programme Version : 1.0
Auteur: Justyce (GUI par TT22)
LAST EDIT : 20/06/2011

#ce ----------------------------------------------------------------------------
;Introduction des variables(réponses)
Global $yes= "oui"
Global $no= "non"
Global $idontknow= "je ne sais pas"
Global $yescount= (0)
Global $nocount= (0)
Global $idontknowcount=(0)
;Introduction des variables terminée
;Début du programme
;Boîte de saisie

GUICreate("Sondage",322,87)
GUICtrlCreateLabel("Pensez-vous que le net dois rester libre et gratuit ?",5,8,400,20)
$yes=GUICtrlCreateButton("Oui",5,30,100,50)
$no=GUICtrlCreateButton("Non",110,30,100,50)
$idontknow=GUICtrlCreateButton("Je ne sais pas",215,30,100,50)
GUISetState(@SW_SHOW)

While 1
 $Msg = GUIGetMsg()
 Switch $Msg
  Case $GUI_EVENT_CLOSE
   Exit
   Case $yes
GUIDelete()
$yescount=FileRead(@ScriptDir&"\oui.txt")
FileDelete(@ScriptDir&"\oui.txt")
FileWrite(@ScriptDir&"\oui.txt",$yescount+1)
$yescount2=FileRead(@ScriptDir&"\oui.txt")
$nocount2=FileRead(@ScriptDir&"\non.txt")
$idontknowcount2=FileRead(@ScriptDir&"\je ne sais pas.txt")
MsgBox(0,"Resultats",""&$yescount2&"ont répondu oui"& @CRLF& $nocount2 &"ont répondu non"&@CRLF& $idontknowcount2 &"ne savent pas")
ExitLoop
    Case $no
GUIDelete()
$nocount=FileRead(@ScriptDir&"\non.txt")
FileDelete(@ScriptDir&"\non.txt")
FileWrite(@ScriptDir&"\non.txt",$nocount+1)
$yescount2=FileRead(@ScriptDir&"\oui.txt")
$nocount2=FileRead(@ScriptDir&"\non.txt")
$idontknowcount2=FileRead(@ScriptDir&"\je ne sais pas.txt")
MsgBox(0,"Resultats",""&$yescount2&"ont répondu oui"& @CRLF& $nocount2 &"ont répondu non"&@CRLF& $idontknowcount2 &"ne savent pas")
ExitLoop
    Case $idontknow
GUIDelete()
$idontknowcount=FileRead(@ScriptDir&"\je ne sais pas.txt")
FileDelete(@ScriptDir&"\je ne sais pas.txt")
FileWrite(@ScriptDir&"\je ne sais pas.txt",$idontknowcount+1)
$yescount2=FileRead(@ScriptDir&"\oui.txt")
$nocount2=FileRead(@ScriptDir&"\non.txt")
$idontknowcount2=FileRead(@ScriptDir&"\je ne sais pas.txt")
MsgBox(0,"Resultats",""&$yescount2&"ont répondu oui"& @CRLF& $nocount2 &"ont répondu non"&@CRLF& $idontknowcount2 &"ne savent pas")
ExitLoop

 EndSwitch
WEnd

MsgBox(64,"Sondage","Nous vous remerçions d'avoir participer à ce sondage.")

[mikell]

Peut-être Global $yescount= "0" au lieu de Global $yescount= (0) ...

[TT22]

Peut-être Global $yescount= "0" au lieu de Global $yescount= (0) ...

A quoi ça GLOBAL ?

[Justyce]

Merci pour toutes vos réponses et pour le moment j'ai pris la solution avec la commande

Code : Tout sélectionner

FileRead()

proposer par TT22
Mais, je n'ai pas très bien compris ces lignes du script :

► Afficher le texte

FileDelete(@ScriptDir&"\oui.txt")
FileWrite(@ScriptDir&"\oui.txt",$yescount+1)

Surtout a quoi cela servait de supprimer le fichier oui.txt car après on le recréer(je crois)

P.S. : Je ne suis qu'un ado...

Justyce

[jchd]

P.S. : Je ne suis qu'un ado...

Plains-toi !
Ca te passera (trop) vite.

[mikell]

En fait, si ce qui t'intéresse c'est juste de stocker le nombre de réponses "oui", "non" et "je sais pas", la solution de jl56 est la plus simple, avec un petit fichier ini de la forme :

Code : Tout sélectionner

[reponses]
oui= ...
non= ...
saispas= ...

Regarde comment gérer un ini dans l'aide (gestion de fichiers)
Exemple :

Code : Tout sélectionner

$oui = "nombre de oui"
IniWrite ( "Mon Ini.ini", "reponses", "oui", $oui )

[TT22]

...proposer par TT22
Mais, je n'ai pas très bien compris ces lignes du script :

► Afficher le texte

FileDelete(@ScriptDir&"\oui.txt")
FileWrite(@ScriptDir&"\oui.txt",$yescount+1)

Surtout a quoi cela servait de supprimer le fichier oui.txt car après on le recréer(je crois)

@ Justyce
Tu peux aussi faire comme ça

Code : Tout sélectionner

_ReplaceStringInFile(@ScriptDir&"\oui.txt",$yescount,$yescount+1)

Et n'oubli pas d'ajouter : #include <File.au3> au début de ton script.

[Justyce]

Ah... d'accord j'ai compris et je trouve que c'est finalement plus simple avec les commandes Ini...
Donc j'ai réediter mon script avec les ini et voilà ce que ça donne

► Afficher le texte

#cs ----------------------------------------------------------------------------
Programme Version : 0.5
Auteur: Justyce
LAST EDIT : 21/06/2011

#ce ----------------------------------------------------------------------------
;Introduction des variables(réponses)
Global $yes= "oui"
Global $no= "non"
Global $idontknow= "je ne sais pas"
Global $yescount= (0)
Global $nocount= (0)
Global $idontknowcount=(0)
;Introduction des variables terminée
;Début du programme
;Boîte de saisie
$input=InputBox("Sondage","Pensez-vous que le net dois rester libre et gratuit ?"& @CRLF &"Veuillez répondre par :"& @CRLF &"oui"& @CRLF &"non"& @CRLF &"je ne sais pas")
;Boîte de saisie terminée
;Début de Si...Alors...Donc
If ($input=$yes) Then
$yescount=IniRead("reponses.ini","reponses","oui","")
$nocount=IniRead("reponses.ini","reponses","non","")
$idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
IniWrite("reponses.ini","reponses","oui",$yescount+1)
MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
ElseIf ($input=$no) Then
$nocount=IniRead("reponses.ini","reponses","non","")
$yescount=IniRead("reponses.ini","reponses","oui","")
$idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
IniWrite("reponses.ini","reponses","non",$nocount+1)
MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
ElseIf ($input=$idontknow)Then
$idontknowcount=IniRead("reponses.ini","reponses","jenesaispas","")
$yescount=IniRead("reponses.ini","reponses","oui","")
$nocount=IniRead("reponses.ini","reponses","non","")
IniWrite("reponses.ini","reponses","jenesaispas",$idontknowcount+1)
MsgBox(0,"Resultats",""&$yescount&"ont répondu oui"& @CRLF& $nocount &"ont répondu non"&@CRLF& $idontknowcount &"ne savent pas")
Else
MsgBox(0,"Error","Ce que vous avez entrer n'est pas valide"&@CRLF&"Veuillez repondre seulement par:"&@CRLF&"oui"&@CRLF&"non"&@CRLF&"je ne sais pas")
EndIf
;Si...Alors...Donc terminée
;Fin du programme
Sleep(500)

Et avec un fichier reponses.ini présenter comme ceci :

► Afficher le texte

[reponses]
oui=0
non=0
jenesaispas=0

Et ça marche !

Merci de votre aide !

@jchd

Plains-toi !
Ca te passera (trop) vite.

Je viens juste de rentrer dans l'adolescence !


@TT22

Tu peux aussi faire comme ça
Code
_ReplaceStringInFile(@ScriptDir&"\oui.txt",$yescount,$yescount+1)

Et n'oubli pas d'ajouter : #include <File.au3> au début de ton script.

Là sur ce point, c'est plus clair et donc j'ai compris !



Entre temps je viens juste de créer la version 1.0 avec une interface, vous me direz ce que vous en pensez.

Sondage.zip

(1.13 Kio) Téléchargé 78 fois

EDIT : Vous pouvez modifiez la question que pose le programme pour utiliser ce programme selon vos besoins.

[matwachich]

Le meilleur choix reste à mon avis (et c'est pas parce que c'est mon UDF! lol) ça
C'est un UDF qui permet de justement créer des variables persistantes, idéal donc pour la configuration d'un programme (c'est son but initial), et il serai parfait pour ce que tu veux faire.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------
    Programme Version : 0.5
    Auteur: Justyce
    LAST EDIT : 21/06/2011
    
#ce ----------------------------------------------------------------------------
#include <perso\AutoConfig.au3>

;Introduction des variables(réponses)
Global $yes = "oui"
Global $no = "non"
Global $idontknow = "je ne sais pas"
Global $yescount = 0
Global $nocount = 0
Global $idontknowcount = 0
;Introduction des variables terminée

_AutoCfg_Init($ACFG_INI, "reponses.ini", "", "reponses")
    _AutoCfg_AddEntry("yesCount", "0")
    _AutoCfg_AddEntry("noCount", "0")
    _AutoCfg_AddEntry("idontknowCount", "0")
_AutoCfg_ReadAll()

;Début du programme

;Boîte de saisie
$input = InputBox("Sondage", "Pensez-vous que le net dois rester libre et gratuit ?" & @CRLF & "Veuillez répondre par :" & @CRLF & "oui" & @CRLF & "non" & @CRLF & "je ne sais pas")
;Boîte de saisie terminée

;Début de Si...Alors...Donc
If ($input = $yes) Then
    _AutoCfg_SetEntry("yesCount", CFG("yesCount") + 1)
    MsgBox(0, "Resultats", CFG("yesCount") & "ont répondu oui" & @CRLF & _
                           CFG("noCount") & "ont répondu non" & @CRLF & _
                           CFG("idontknowCount") & "ne savent pas")
ElseIf ($input = $no) Then
    _AutoCfg_SetEntry("noCount", CFG("noCount") + 1)
    MsgBox(0, "Resultats", CFG("yesCount") & "ont répondu oui" & @CRLF & _
                           CFG("noCount") & "ont répondu non" & @CRLF & _
                           CFG("idontknowCount") & "ne savent pas")
ElseIf ($input = $idontknow) Then
    _AutoCfg_SetEntry("idontknowCount", CFG("idontknowCount") + 1)
    MsgBox(0, "Resultats", CFG("yesCount") & "ont répondu oui" & @CRLF & _
                           CFG("noCount") & "ont répondu non" & @CRLF & _
                           CFG("idontknowCount") & "ne savent pas")
Else
    MsgBox(0, "Error", "Ce que vous avez entrer n'est pas valide" & @CRLF & "Veuillez repondre seulement par:" & @CRLF & "oui" & @CRLF & "non" & @CRLF & "je ne sais pas")
EndIf
;Si...Alors...Donc terminée

;Fin du programme
Sleep(500)

Ce script fera exactement comme le tien, sauf que c'est lui qui s'occupe comme un grand de la gestion du fichier ini!

[Justyce]

@matwachich

Le meilleur choix reste à mon avis (et c'est pas parce que c'est mon UDF! lol) ça
C'est un UDF qui permet de justement créer des variables persistantes, idéal donc pour la configuration d'un programme (c'est son but initial), et il serai parfait pour ce que tu veux faire.

Votre UDF (je trouve) est d'une grande utilité mais pour un petit programme comme ceci je ne pense pas que cela change grand chose.

[TT22]

Entre temps je viens juste de créer la version 1.0 avec une interface, vous me direz ce que vous en pensez..

Ton programme n'est pas compatible avec ma version de windows

[matwachich]

Ca doit être plutôt une erreur de compilation (x64, x86)
Fait Ctrl+F7 dans Scite pour voir les options de compilation

[Justyce]

Suite à votre problème TT22
je compile le script en changeant les options et normalement cela devrait marcher :

Sondage2.zip

(292.32 Kio) Téléchargé 80 fois

[mikell]

Bravo, maintenant ça marche

Un truc : pas besoin de mettre de fichier ini, au premier IniWrite() il se créera tout seul là où dans ton script tu lui auras dit de se mettre, ou dans le répertoire du script si tu n'as rien dit

[Justyce]

D'accord et encore merci pour votre aide !

[TT22]

Suite à votre problème TT22
je compile le script en changeant les options et normalement cela devrait marcher :

Ouai, ça marche