txt = return_xml_biblio(fname)
Add here a paragraph of the function description. Other paragraph can be added
Add here a paragraph of the function description
Add here scilab instructions and comments
//return_xml_biblio //fonction qui retourne le texte placé entre //les drapeaux <BIBLIO> et </BIBLIO> trouvés dans //le fichier fname //compatible help skeleton //ex : txt=return_xml_biblio(MODNUM+'/man/xml/CAN_f.xml') //Entrée fname : chemin+nom du fichier xml //Sortie txt : tableau de chaines de caractères de taile n,1 // txt(1,n) : chaine de la biblio function txt=return_xml_biblio(fname) txt_temp=mgetl(fname); txt=[] j=1; a=[]; if txt_temp<>[] then for i=1:size(txt_temp,'*') if strindex(txt_temp(i),'<BIBLIO>')<>[] then a(j,1)=i; end if strindex(txt_temp(i),'</BIBLIO>')<>[] then a(j,2)=i; j=j+1; end end for i=1:size(a,'r') for j=a(i,1):a(i,2) txt(i)=txt(i)+stripblanks_begin(txt_temp(j))+" " end txt(i)=strsubst(txt(i),('<BIBLIO>'),'') txt(i)=strsubst(txt(i),('</BIBLIO>'),'') txt(i)=strsubst(txt(i),('<SP>'),'') txt(i)=strsubst(txt(i),('</SP>'),'') //Enlève les blancs du début txt(i)=stripblanks_begin(txt(i)); //Enlève les blancs placés à la fin txt(i)=stripblanks_end(txt(i)); end else disp(fname+" not found.") txt=[]; end endfunction