Scilab Function
eng - fr


return_xml_ex - return exemples of a xml file

Library

Calling Sequence

txt = return_xml_ex(fname)

Parameters

File content


//return_xml_ex
//fonction qui retourne les exemples
//d'aide scilab construit avec help_skeleton
//ex : return_xml_ex((SCI+'/man/fr/nonlinear/ode.xml')
//Entrée fname : chemin+nom du fichier xml
//Sortie txt : tableau de chaines de caractères de taille n,2
//             colonne 1 : nom du paramètre
function txt=return_xml_ex(fname)
txt_temp=mgetl(fname);
txt=[]
j=1;
a=[]
b=[]
//Cherche les bornes <EXAMPLE> et </EXAMPLE>
if txt_temp<>[] then
  for i=1:size(txt_temp,'*')
    if strindex(txt_temp(i),'<EXAMPLE>')<>[] then
      a=i;
    end;
    if strindex(txt_temp(i),'</EXAMPLE>')<>[] then
      b=i;
    end
  end
 
  if a<>[] & b<>[] then
    txt=txt_temp(a:b)
    txt=strsubst(txt,'<EXAMPLE>',"")
    txt=strsubst(txt,'<P>',"")
    txt=strsubst(txt,'<![CDATA[',"")
    txt=strsubst(txt,']]>',"")
    txt=strsubst(txt,'</P>',"")
    txt=strsubst(txt,'</EXAMPLE>',"")
    //Enlève les blancs du début
    txt=stripblanks_begin(txt);
    //Nettoie les lignes vides
    tt=[]
    k=1;
    emptyf=%t; //Empty flag
    for i=1:size(txt,1)
      if length(txt(i))<>0 then
        tt(k)=txt(i);
        k=k+1;
        emptyf=%f;
      end
    end
    if emptyf then txt=""
    else txt=tt;
    end
  end
else
 txt=[]
end
endfunction

Authors

IRCOM Group Alan Layec