/* estrae dalla stringa testo la prima sottostringa che inizia con s1(stringa a piacere) e termina con s2 (stringa a piacere).

Se delim==true restituisce, insieme alla sottostringa, anche i delimitatori s1 e s2, se delim==false li esclude.

Nella sequenza : .....s1....s1-----s2....s2.... restituisce s1-----s2 e non s1....s1-----s2 (restste ai "delimitatori annidati")

Se la sottostringa non viene trovata, restituisce una sottostringa vuota.

Non utilizza regex. */
 fs(testo,s1,s2,delim)
{

i1=testo.indexOf(s1);
if (i1>-1)
   {
   i1=i1+s1.length;
   testo=testo.substring(i1);
   }
else
   {testo="";return testo;}
i2=testo.indexOf(s2);
if (i2>-1)
      {testo=testo.substring(0,i2);
      }
else
      {testo="";return testo;
      }
lif=testo.lastIndexOf(s1);
if (lif!=-1)
   {lif=lif+s1.length;
    testo=testo.substring(lif);
   }
if (delim)
   {testo=s1+testo+s2;
   }
return testo;
}