new_tt = put_xml_ex(txt,filen)
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
//put_xml_ex //Fonction qui insère une liste d'exemple //dans un fichier xml contenant des délimiteurs //<EXAMPLE> et </EXAMPLE> //Entrée : txt : matrice de chaînes de caractères de taille n,1 // filen : nom du fichier xml (ex:filen=xml_path+'CAN_f.xml') function new_tt=put_xml_ex(txt,filen) if fileinfo(filen)<>[] then flag_block=%f; if size(txt,2)==1 then del1='<EXAMPLE>' del2='</EXAMPLE>' tt_sav=mgetl(filen); a=0;b=0;new_tt=tt_sav; //trouve la position des délimiteurs for i=1:size(tt_sav,1) if strindex(tt_sav(i),'Scicos Block')<>[] then flag_block=%t, end; if strindex(tt_sav(i),del1)<>[] then a=i, end; if strindex(tt_sav(i),del2)<>[] then b=i, end; end if a<>0&b<>0 then //Crée le nouveau paragraphe d'exemple if flag_block then tt_ex=['<EXAMPLE>';'<P>'] else tt_ex=['<EXAMPLE><![CDATA['] end tt_ex=[tt_ex;txt(:,1)] if flag_block then tt_ex=[tt_ex;'</P>';'</EXAMPLE>'] else tt_ex=[tt_ex;']]></EXAMPLE>'] end //Ecrit la chaine de texte finale new_tt=[tt_sav(1:a-1);' '+tt_ex;tt_sav(b+1:size(tt_sav,1))] end else printf("Incompatible rsh variable\n"); end else printf("File %s not found\n",filen); new_tt=[]; end endfunction