Sauver des fichiers au format xls lus en boucle

**niepoc** · 21/05/2008, 10h51

Bonjour

j'ai fait un programme qui permet de lire plusieurs fichiers au format LEV15 en boucle

le résultat est un tableau de cellules de la forme

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
 'DATE'          'HEURE'       'AOT 1020'    'AOT 870'     'AOT 675' 
 
    '01:05:2008'    '14:17:16'    '0.548596'    '0.585990'    '0.632597'
 
    '01:05:2008'    '14:32:18'    '0.503279'    '0.542549'    '0.585431'
 
    '01:05:2008'    '15:17:16'    '0.364765'    '0.392574'    '0.427766'
 
    '01:05:2008'    '15:30:35'    '0.355881'    '0.382421'    '0.417928'
 
    '02:05:2008'    '08:03:43'    '0.746238'    '0.806956'    '0.881154'
 
    '02:05:2008'    '08:17:10'    '0.700378'    '0.757224'    '0.826614'......

il y a 5 colonnes supplementaires de la même forme et plus de 300 lignes

pour sauvegarder j'ai fait le code suivant dans la Command MatLab

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

xlswrite('f.xls',cellstr(TABFINAL))

ça fonctionne bien sauf que pour mes cases date il me fait un calcul!!! au lieu d'avoir
'01:05:2008'
j'obtiens
0.68379...

alors que pour le reste ça marche!!!!

est ce que quelqu'un a une idée du problème ou alors faut il le sauvegarder sous un autre format pour éviter cette erreur???

une deuxième question, j'aimerai appeler mon tableau sauvegarder du même nom que mon fichier lu

voilà le code en entier

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
clear all;
 
close all;
 
tic;
 
%% FICHIER A LIRE
 
rep = 'Y:\Lexar\AeRoNeT';
 
ext = '*.LEV15';
 
 
 
chemin = fullfile(rep,ext);
 
 
 
listAERONET = dir(chemin)
 
Nom=numel(listAERONET)
 
 
 
%% LECTURE DU FICHIER ET INITIALISATION DES MATRICES
 
for f=1:Nom
 
    z=f
 
    fichier =listAERONET(f).name
 
    Z=textread(fichier,'%s','delimiter',',','headerlines',5);
 
 
 
    %%%____INITIALISATION DES MATRICES RESULTATS___%%%
 
M870=[];M1020=[];M675=[];M440=[];
 
Ang440=[];Ang675=[];Ang500=[];Angpolar=[];
 
 
 
%%%____INDICES DES VALEURS A INTEGRER DANS LES MATRICES____%%%
 
L=length(Z)
 
a=5:45:L;b=6:45:L;c=7:45:L;d=16:45:L;
 
e=1:45:L;f=2:45:L;
 
g=38:45:L;h=40:45:L;i=41:45:L;j=43:45:L;
 
k=1
 
 
 
%%%____BOUCLES POUR REMPLISSAGE DES MATRICES____%%%
 
for k=1:numel(a);
 
    %valeurs à intégrer, résultats cellule
 
    A=Z(f);B=Z(e);
 
    C=Z(a);D=Z(b);E=Z(c);F=Z(d);
 
    G=Z(g);H=Z(h);I=Z(i);J=Z(j); 
 
end
 
 
 
%% CREATION DU TABLEAU FINAL
 
TABFINAL=cell(length(B)+1,6);
 
titre={'DATE','HEURE','AOT 1020','AOT 870','AOT 675','AOT 440','ANGSTROM 440-870',...
 
    'ANGSTROM 440-675','ANGSTROM 500-870','ANGSTROM POLAR 440-870'}
 
 
 
%affectation des titres
 
for k=1:length(titre);
 
TABFINAL(1,k)=titre(k);
 
end
 
 
 
%affectation des résultats aux colonnes
 
lig=2:length(B)+1;
 
TABFINAL(lig,1)=B;
 
TABFINAL(lig,2)=A;
 
TABFINAL(lig,3)=C;
 
TABFINAL(lig,4)=D;
 
TABFINAL(lig,5)=E;
 
TABFINAL(lig,6)=F;
 
TABFINAL(lig,7)=G;
 
TABFINAL(lig,8)=H;
 
TABFINAL(lig,9)=I;
 
TABFINAL(lig,10)=J;
 
end
 
TABFINAL
 
toc