Fonction Optimiser(Invariant, NulAbsorbant, PasDEffetDeBord) ExtraireNomFichier(NomFichierComplet : Nul Ou Caractere) Retourner Nul Ou Caractere;
Si ExtraireNomFichier est nul, alors le résultat est Nul.
Principal
/*******/
Variable
/******/
NomComplet;
NomDuFichier;
NomDuRepertoire;
Debut
...
NomDuFichier=ExtraireNomFichier(NomComplet);
NomDuRepertoire=ExtraireNomRepertoire(NomComplet);
...
Fin Principal
- | - | - | - | - | - | - | - | - |