[R] Enregistrement des données

[Julia123]

Bonjour,

Après avoir utilisé les nombreuses questions/réponses du forum pour avancer dans mon script, c'est à moi de poser une question.
Mon script à un design comme suit:

*Une fenêtre permet à la personne de rentrer des infos personnelles
*puis cette fenêtre se ferme et une autre s'ouvre; ils 'agit d'un questionnaire. La personne va y répondre x fois en fonction de l'expérience
*quand elle a fini tout se ferme

J'aimerai enregistrer ses réponses à chaque essai mais dans le même fichier .csv
En plus j'aimerai que les informations de la première fenêtre soit réécrite à chaque ligne, en gros comme ci dessous

nom prenom age essai rep1 rep2
azerty pierre 24 1 a h
azerty pierre 24 2 d b
azerty pierre 24 x b c

Pourriez-vous me donner votre avis sur la meilleure solutions à adopter pour enregistrer les données svp? J'avais pensé à faire deux array : un pour les réponses fixe et un pour les réponses au questionnaire....

Merci d'avance

[PandiPanda]

Bonjour,
Pour répondre à votre question c'est un peu difficile '^^
Il existe une infinité de possibilité de résoudre un problème à mon humble avis, celui que vous comprenez le mieux est le chemin à prendre.

L'utilisation de 2 array, pourquoi pas ? Si cela vous permet de résoudre ce problème et avoir une meilleur compréhension, faites le, certes il est possible de faire mieux, avec l'utilisation de moins de ressource, ...

Mais il y'a toujours moyen de faire mieux ^^

Voici un petit script qui devrai vous aidez, ceci n'est qu'une résolution possible.

► Afficher le texte

Code : Tout sélectionner

#cs ----------------------------------------------------------------------------

 AutoIt Version : 3.3.8.1
 Auteur:         PandiPanda

 Fonction du Script :
    Modele de Script AutoIt.

#ce ----------------------------------------------------------------------------
#include <Excel.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

Global $Form1,$Input_nom,$Label_Nom,$Input_prenom,$Label_Prenom,$Input_age, _
$Label_Age,$OK
Global $Form2,$Input_rep1,$LabelRep1,$Input_rep2,$LabelRep2,$OK2
_gui_1_main()

Func _gui_1_main()
    #Region ### START Koda GUI section ### Form=
    $Form1 = GUICreate("Form1", 325, 164, 192, 114)
    $Input_nom = GUICtrlCreateInput("", 8, 24, 193, 21)
    $Label_Nom = GUICtrlCreateLabel("Nom", 8, 0, 26, 17)
    $Input_prenom = GUICtrlCreateInput("", 8, 80, 193, 21)
    $Label_Prenom = GUICtrlCreateLabel("Label_Prenom", 8, 56, 72, 17)
    $Input_age = GUICtrlCreateInput("", 8, 136, 193, 21)
    $Label_Age = GUICtrlCreateLabel("Age", 8, 112, 23, 17)
    $OK = GUICtrlCreateButton("OK", 224, 16, 89, 33)
    GUISetState(@SW_SHOW)
    #EndRegion ### END Koda GUI section ###

    While 1
    $nMsg = GUIGetMsg()
        Switch $nMsg
            Case $GUI_EVENT_CLOSE
                Exit
            Case $OK
                GUISetState(@SW_HIDE)
                Local $essai = Random(1,3,1)
                _gui_2_essai($essai)
                Exit
        EndSwitch
    WEnd
EndFunc

Func _gui_2_essai($nbEssai)
    Local $arr_info[$nbEssai][6]
    For $i = 0 To $nbEssai-1
        #Region ### START Koda GUI section ### Form=
        $Form2 = GUICreate("Essai "&$i&"/"&$nbEssai, 228, 108, 258, 143)
        $Input_rep1 = GUICtrlCreateInput("", 8, 24, 145, 21)
        $LabelRep1 = GUICtrlCreateLabel("Question 1", 8, 8, 55, 17)
        $Input_rep2 = GUICtrlCreateInput("", 8, 72, 145, 21)
        $LabelRep2 = GUICtrlCreateLabel("Question 2", 8, 56, 55, 17)
        $OK2 = GUICtrlCreateButton("OK", 168, 40, 49, 33)
        GUISetState(@SW_SHOW)
        #EndRegion ### END Koda GUI section ###

        While 1
            $nMsg = GUIGetMsg()
            Switch $nMsg
                Case $GUI_EVENT_CLOSE
                    Exit
                Case $OK2
                    $arr_info[$i][0] = GUICtrlRead($Input_nom)
                    $arr_info[$i][1] = GUICtrlRead($Input_prenom)
                    $arr_info[$i][2] = GUICtrlRead($Input_age)
                    $arr_info[$i][3] = $i+1
                    $arr_info[$i][4] = GUICtrlRead($Input_rep1)
                    $arr_info[$i][5] = GUICtrlRead($Input_rep2)
                    ExitLoop
            EndSwitch
        WEnd
        GUIDelete($Form2)
    Next
    Local $oExcel = _ExcelBookNew(0)
    _ExcelWriteSheetFromArray($oExcel,$arr_info, 1, 1, 0, 0)
    _ExcelBookSaveAs($oExcel,@ScriptDir&"\"&$arr_info[0][0]&'-'&$arr_info[0][1]&".csv", "csv")
    If Not @error Then MsgBox(0, "Success", "File was Saved!", 3)
    _ExcelBookClose($oExcel,0)
EndFunc

 

[Julia123]

Bonjour,

merci beaucoup pour ce code. Ce n'est pas tout à fait ce que j'aimerai.
Ce que j'aimerai c'est créer un fichier .csv au moment où la personne répond aux données personnelles, en quelque sorte le laisser de côté quand elle a appuyé sur ok puis le ré-ouvrir lorsque j'enregistre les données du questionnaire.
En fait mes fonctions ne sont pas liées comme les vôtres. C'est à dire que j'ai une fenêtre mère avec des boutons et c'est en cliquant sur les boutons que les questionnaires filles arrivent. J'aimerai donc créer un csv en dehors des fonctions(un global) et le ré-ouvrir dans les fonctions pour le compléter.

[Julia123]

En fait j'ai réussi à adapter le code que vous m'aviez donné sur mon schéma, ce qui fonctionne très bien
Merci beaucoup!