function lire_fichier($fich)
{
if (file_exists($fich))
{
if (!$id_fich = fopen($fich,"r"))
{
$chn_return="";
}
else
{
$chn_return = fread($id_fich,5000);
fclose($id_fich);
}
return $chn_return;
}
else
{return "";}
}
function extrait_tag($fich,$tag)
{
$deb=strpos($fich,"<".$tag.">");
if ($deb <> false)
{
$deb= $deb+strlen($tag)+2;
$fin = strpos($fich,"".$tag.">");
return substr($fich,$deb,$fin-$deb);
}
else
{
return "";
}
}
function xml_save($fichier, $date, $texte)
{
$ligne = "