// lecture d'un fichier avec donnees mixtes par colonne 

m=1000;
n=10;
Ao=rand(m,n);
A=string(Ao);
A(1:m,1)='pipo'+string(1:m)';

A=strcat(A,' ','c');
mputl(A,'test.data');

// methode un: lecture sous forme de chaine 
// puis extraction etc.... 
// on suppose que le séparateur est un blanc unique 

timer();
B=mgetl('test.data');
B=''''+ strsubst(B,' ',''',''')+'''';
B(1,1)='XXX=['+B(1,1);
B($,$)=B($,$)+'];';

execstr(B)

// partie chaine 
As=XXX(:,[1]);
// partie numérique 
An=XXX(:,2:$); 
// conversion de la partie numérique 
An=strcat(An,',','c');
An(1,1)='XXX=['+An(1,1);
An($,$)=An($,$)+'];';
execstr(An)
An=XXX;
if norm(An-Ao(:,2:$)) > 1.e-5 then pause,end 
timer()

// méthode par lecture successives 
// on suppose que l'on connait le nbre de colonnes