Enregistrer une structure sur Excel

Version imprimable

Bonjour,
Je suis de retour ;)

Je tente cette fois-ci de récuperer tous les paramètres d'essai pour les stocker dans un fichier excel.
Je peux le faire un par un :

Code:

xlswrite(char(filename),str2double(get(data.Essai1_Tair_ext,'string')),'Paramètres',a1);

Mais les noms des variables changent d'un essai à l'autre, j'aimerais donc les récupérer automatiquement.
Voici ce que j'ai pu avancer pour le moment :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 names=fieldnames(data) % Fonctionne for i=1:length(names) % Fonctionne if ????=uicontrol % C'est là que je bloque car j'ai dans data j'ai mes uitab figure et tout type de uicontrol if !!!!='text' xlswrite(char(filename),get(data.(char(names(i))),'string'),'Paramètres',sprintf(a%d,i)); % Erreur car ce ne sont pas tous des 'strings' elseif !!!!='popupmenu' a=get(data.(char(names(i))),'string') b=get(data.(char(names(i))),'value') % Erreur car ce ne sont pas tous des 'popupmenu' xlswrite(char(filename),a(b),'Paramètres',sprintf(a%d,i)); end end end
Je suis certain que vous avez la solution à cette question. Ma recherche dans les archives matlab (12000 posts 8O) a été infructueuse.

Par avance merci !
Mathieu

09/09/2014, 00h02
Invité

Bonsoir,

Je penserais à get(le_handle_de_l_uicontrol_en_question, 'style') pour obtenir 'text' ou 'popupmenu', (en faisant attention à la comparaison de chaines de caractères) mais le premier if n'est pas du tout clair sur ce qu'il est censé faire :?

À noter qu'en boucle, on préfère utiliser la fonction xlswrite1 pour des questions de performance.
Et char(names(i)) peut être remplacé par names{i} (avec des accolades).
09/09/2014, 14h35
Fundhor

Merci jerome pour ta réponse,
Pour être plus clair le premier "if" me sert justement à enlever les handles qui n'ont pas de 'style' .
Pour exemple j'ai certains cas comme celui-ci dans mon 'data' et il risque de me renvoyer une erreur du genre ('style' unknown for this handle), un try fera peut-etre l'affaire:

Code:

uitab(hTabGroup,'title','Accueil','tag','uitab1');

Effectivement j'aurais du mettre strcmp dans l'exemple, bien vu ;)
Je ne connaissais pas le name{i}, cela va me simplifier un peu le code.
Par contre chaque pas de temps de ma boucle dure 3h donc ce n'est pas un soucis de temps, mais merci pour l'info sur xlswrite1 cela me sera surement utile pour d'autres programmes.

Je teste cela dès que ma simulation se termine et je vous tiens au courant
09/09/2014, 16h53
Invité

Citation:

Envoyé par Fundhor

Pour être plus clair le premier "if" me sert justement à enlever les handles qui n'ont pas de 'style' .

Autrement dit, ceux qui ne sont pas du type uicontrol :)

Code:

if strcmp(get(data.(names{i}), 'Type'), 'uicontrol')

Testé ce matin.
Je mets le code pour ceux que ça interessera.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
    names=fieldnames(data);
    for i=1:length(names)
        if strcmp(get(data.(char(names(i))), 'Type'), 'uicontrol')
            if strcmp(get(data.(char(names(i))), 'style'),'edit')==1
                %miam=get(data.(char(names(i))),'string')
                xlswrite(char(newfilename2),get(data.(char(names(i))),'string'),'Paramètres',sprintf('a%d',i))
            elseif strcmp(get(data.(char(names(i))), 'style'),'popupmenu')==1
                a=get(data.(char(names(i))),'string');
                b=get(data.(char(names(i))),'value'); % Erreur car ce ne sont pas tous des 'popupmenu'
                %a(b)
                xlswrite(char(newfilename2),a(b),'Paramètres',sprintf('a%d',i)); 
            end
        end
    end

Le name{i} n'est pas passé mais pour le reste c'est tout bon, MERCI !!!
Mes "edit" s'écrivent sur autant de case qu'ils ont de caractères mais c'est du détail et je trouverai sans problème la solution (char ou quelquechose dans le genre).
Quoiqu'il en soit je peux avancer. très bien !

:merci: