Resolution d'un bug pour la lecture des donnees

SAMPLE ASCII. Mauvaise lecture du TYPE

tsg_io/readAsciiData.m

@@ -114,26 +114,39 @@ clear cellData
 % --------------------------------------------------------
 PARA = {'SSPS_WS'; 'SSPS_EXT'; 'SSTP_EXT' };
 for i = 1:3
-  para = PARA{i};
   
-  for j = 7 : nHeader
-    
-    if ~isempty( strfind( char(header(j)), para ))
-      if isempty( strfind( char(header(j)), [para '_TYPE']))
-        label = 'UNKN';
-        s.([para '_TYPE']) = label( ones(length(s.(para)),1), :);
-        header = [header; [para '_TYPE']];
-      end
-      
-      if isempty( strfind( char(header(j)), [para '_QC']))
-        s.([para '_QC']) = NO_CONTROL * int8(ones( size( s.(para) )));
-        header = [header; [para '_QC']];
-      end
+  para = PARA{i};
+  if ~isempty( strmatch(para, header) )
+    if isempty( strmatch([para '_TYPE'], header))
+      label = 'UNKN';
+      s.([para '_TYPE']) = label( ones(length(s.(para)),1), :);
+      header = [header; [para '_TYPE']];
+    end
+    if isempty( strmatch([para '_QC'], header))
+      s.([para '_QC']) = NO_CONTROL * int8(ones( size( s.(para) )));
+      header = [header; [para '_QC']];
     end
-    
   end
+%   for j = 7 : nHeader
+%     
+%     if ~isempty( strfind( char(header(j)), para ))
+%       if isempty( strfind( char(header(j)), [para '_TYPE']))
+%         label = 'UNKN';
+%         s.([para '_TYPE']) = label( ones(length(s.(para)),1), :);
+%         header = [header; [para '_TYPE']];
+%       end
+%       
+%       if isempty( strfind( char(header(j)), [para '_QC']))
+%         s.([para '_QC']) = NO_CONTROL * int8(ones( size( s.(para) )));
+%         header = [header; [para '_QC']];
+%       end
+%     end
+%     
+%   end
 end
 
+
+
 % Date (y m d h m s) in the first 6 elements in data
 % --------------------------------------------------
 yy = double( s.(char(header(1))) );