fix ExportToCSV for double data & added ExportToTSV

Author: benoitberanger

@BasicObject/ExportToCSV.m

@@ -1,63 +1,9 @@
 function ExportToCSV( self, filename, withHeader )
-%EXPORTTOCSV print the self.Header and self.Data in a CSV file, with ';' as separator
-% withHeader=1 prints header (default), withHeader=0 does not.
 
 if nargin < 3
     withHeader = 1;
 end
 
-
-%% Open file in write mod
-
-fileID = fopen( [ filename '.csv' ] , 'w' , 'n' , 'UTF-8' );
-if fileID < 0
-    error('%d cannot be opened', filename)
-end
-
-
-%% Fill the file
-
-% Print header
-if withHeader
-    fprintf(fileID, '%s;', self.Header{:});
-    fprintf(fileID, '\n'); % end of line
-end
-
-% Print data
-for i = 1 : size(self.Data,1)
-    for j = 1 : size(self.Data,2)
-        
-        % Apply conversion if necessary
-        
-        if ischar(self.Data{i,j})
-            toprint = self.Data{i,j};
-            
-        elseif isnumeric(self.Data{i,j})
-            toprint = num2str(self.Data{i,j});
-            
-        elseif islogical(self.Data{i,j})
-            switch self.Data{i,j}
-                case true
-                    toprint = 'TRUE';
-                case false
-                    toprint = 'FALSE';
-            end
-            
-        end
-        fprintf(fileID, '%s;', toprint);
-        
-        % End of line
-        if j == size(self.Data,2)
-            fprintf(fileID, '\n');
-        end
-        
-    end
-end
-
-
-%% Close the file
-
-fclose( fileID );
-
+self.ExportToTxt(filename,'csv',withHeader)
 
 end % function

@BasicObject/ExportToTSV.m

@@ -0,0 +1,9 @@
+function ExportToTSV( self, filename, withHeader )
+
+if nargin < 3
+    withHeader = 1;
+end
+
+self.ExportToTxt(filename,'tsv',withHeader)
+
+end % function

@BasicObject/ExportToTxt.m

@@ -0,0 +1,97 @@
+function ExportToTxt( self, filename, filetype, withHeader )
+%ExportToTxt print the self.Header and self.Data in a text file
+% withHeader=1 prints header (default), withHeader=0 does not.
+
+switch filetype
+    case 'csv'
+        ext = '.csv';
+        sep = ';';
+    case 'tsv'
+        ext = '.tsv';
+        sep = sprintf('\t');
+    otherwise
+        error('unmapped filetype')
+end
+    
+
+%% Open file in write mod
+
+fileID = fopen( [ filename ext ] , 'w' , 'n' , 'UTF-8' );
+if fileID < 0
+    error('%d cannot be opened', filename)
+end
+
+
+%% Fill the file
+
+% Print header
+if withHeader
+    for h = 1 : length(self.Header)
+        fprintf(fileID, '%s%s', self.Header{h},sep);
+    end
+    fprintf(fileID, '\n'); % end of line
+end
+
+% Print data
+for i = 1 : size(self.Data,1)
+    for j = 1 : size(self.Data,2)
+        
+        % Apply conversion if necessary
+        
+        switch class(self.Data)
+            
+            case 'cell'
+                
+                if ischar(self.Data{i,j})
+                    toprint = self.Data{i,j};
+                    
+                elseif isnumeric(self.Data{i,j})
+                    toprint = num2str(self.Data{i,j});
+                    
+                elseif islogical(self.Data{i,j})
+                    switch self.Data{i,j}
+                        case true
+                            toprint = 'TRUE';
+                        case false
+                            toprint = 'FALSE';
+                    end
+                    
+                end
+                
+                
+            case 'double'
+                
+                if isnumeric(self.Data(i,j))
+                    toprint = num2str(self.Data(i,j));
+                    
+                elseif islogical(self.Data(i,j))
+                    switch self.Data(i,j)
+                        case true
+                            toprint = 'TRUE';
+                        case false
+                            toprint = 'FALSE';
+                    end
+                    
+                end
+                
+            otherwise
+                warning('unmapped input type')
+        end
+        
+        fprintf(fileID, '%s%s', toprint,sep);
+        
+        % End of line
+        if j == size(self.Data,2)
+            fprintf(fileID, '\n');
+        end
+        
+    end
+end
+
+
+%% Close the file
+
+fclose( fileID );
+
+
+end % function

StimTemplateContent.m

@@ -8,26 +8,16 @@
 
 dirContent = dir(path_location);
 
-% dirContent_char = char(dirContent.name);
-% ln = size(dirContent_char,2)+1;
-% dirContent_category = '';
-
 fprintf(' CONTENT : \n')
 for c = 1 : length(dirContent)
 
     if dirContent(c).isdir
-        %         dirContent_category(c,1:4) = 'dir ';
-        %         dirContent_char(c,ln) = filesep;
         fprintf('%s%s\n',dirContent(c).name,filesep)
-        
     else
-        %         dirContent_category(c,1:4) = 'file';
-        %         dirContent_char(c,ln) = ' ';
         fprintf('%s\n',dirContent(c).name)
 
     end
 
 end
-% disp(dirContent_char)
 
 end % function