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 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141
| clear all;
close all;
%%%____LECTURE DU FICHIER____%%%
F = textread('200401.txt','%s','delimiter','\n','headerlines',3);
%%%____SUPPRESSION DE LA LIGNE LATITUDE POUR OBTENIR MATRICE CARREE____%%%
i=0
for k=1:12:2160 ;
A=F(k:k+10,:);
h=k-i;
F1(h:h+10,:)=A;
i=i+1;
clear A;
end
%%%____SAUVEGARDE DU RESULTAT AU FORMAT TEXTE____%%%
fid = fopen('F1.txt','wt');
for i=1:length(F1)-1;
fprintf(fid,'%s\n',F1{i});
end
fprintf(fid,'%s',F1{end});
fclose(fid);
%%%____LECTURE DU FICHIER ET AJOUT DES ESPACES____%%%
fichier= 'F1.txt';
%ouverture du fichier, lecture du fichier
fid=fopen(fichier);
B=textscan(fid,'%s','delimiter','\n');
fclose(fid);
L=length(B{1}); %taille de B
%ajout des espaces
for k=1:L,
B{1}{k};
Comptage=diff(find([' ',B{1}{k}]==32))-1; %comptage des caractères
nb=Comptage(1) %trouver le nombre de caractère de la première valeur
a=1:3:75 % 1ère possibilité de nombre de caractères
b=2:3:75 % 2ème possibilité
cp=nb==a
cp1=nb==b
for i=1:25 ; %boucle des indices
if cp(i)==1 ; %1ère expression logique si un indice = 1 alors c vrai
B{1}{k}=[' ',B{1}{k}] ;%si oui
elseif cp1(i)==1 %2 ème expression logique si un indice = 1 alors c vrai
B{1}{k} =[' ',B{1}{k}] ;%si oui
else % si 1ère et 2ème expression non trouvée
B{1}{k} = B{1}{k} ;
end
end
end
%sauvegarde du fichier avec les espaces
fid = fopen('E.txt','wt');
for j=1:length(B{1});
fprintf(fid,'%s\n',B{1}{j});
end
fclose(fid);
%%%____CREATION DE LA MATRICE___%%%
%str2mat
%%%____IMPORTATION DU BLOC____%%%
%dlmread
%%%____AFFICHAGE DE L'IMAGE____%%%
%figure
%imagesc(B)
%axis image |
Partager