Changeset 125

Timestamp:

Nov 18, 2010, 11:21:23 PM (14 years ago)

Author:

gostiaux

Message:

code simplification;
Can still be upgraded using function char (see last comment line)

File:

• trunk/src/cell2tab.m (modified) (2 diffs)

trunk/src/cell2tab.m

@@ -11 +11 @@
 function Tabchar=cell2tab(Tabcell,separator) 
 Tabchar={};%default
-[nx,ny]=size(Tabcell);
-%determine width withcolumn(jtab) of each column
-for jtab=1:ny 
-    widthcolumn(jtab)=0;%default
-    for itab=1:nx% read line
-        if widthcolumn(jtab)<length(Tabcell{itab,jtab})
-            widthcolumn(jtab)=length(Tabcell{itab,jtab});
-        end
-    end
-end
+[ni,nj]=size(Tabcell);
+
+%determine width of each column
+widthcolumn=max(cellfun(@length,Tabcell));
+
 %justify table
-for itab=1:nx    
+for itab=1:ni    
     charchain=[];         
-    for jtab=1:ny% read line
+    for jtab=1:nj% read line
         textlu=Tabcell{itab,jtab};
         if widthcolumn(jtab)>length(textlu)
@@ -37 +32 @@
     Tabchar(itab,1)={charchain};
 end
+
+%nb : char(Tabchar(:,jtab)) gives directly a column with the blanks filled