Procedure DetruireFichier(CheminfichierSource est chaîne)

AvecTrace est un booléen=Vrai
Sablier(Vrai)
SI PAS fFichierExiste(CheminfichierSource) ALORS
SI AvecTrace ALORS Trace(CheminfichierSource+" pas trouvé")
RENVOYER Faux
FIN

disque est chaîne = fExtraitChemin(CheminfichierSource,fDisque)
repertoire est chaîne = fExtraitChemin(CheminfichierSource,fRépertoire)
SI disque~="" ALORS disque=fDisqueEnCours()
SI repertoire~="" ALORS repertoire=fExtraitChemin(fRepEnCours(),fRépertoire)

//création du nom du fichier final temporaire : il sera dans le même répertoire que le fichier à supprimer
//et créé avec un nom théoriquement unique au monde ! (en tout cas le temps de l'utiliser...)
CheminFichierDestination est chaîne = disque+repertoire+DonneGUID(guidBrut)

IDFichier est un entier
ResEcriture est un entier
texteDeRemplacement est chaîne ANSI
caractèreDeRemplacement est chaîne = "A"
dernierCaractère est chaîne = "Z"
TailleDuFichierSource est entier sur 8 octets = fTaille(CheminfichierSource)
TailleDuFichierDestination est entier sur 8 octets
TailleAnalysée est entier sur 8 octet = 1 000 000 000
NombreDeTours,compteur est entier
reste est entier

SI AvecTrace ALORS
Trace("Disque="+disque)
Trace("Répertoire="+repertoire)
Trace("Source="+CheminfichierSource)
Trace("Destination:"+CheminFichierDestination)
AffichageLignes("SOURCE",CheminfichierSource,TailleDuFichierSource)
FIN

SELON TailleDuFichierSource

CAS < TailleAnalysée
texteDeRemplacement = Complete(texteDeRemplacement,TailleDuFichierSource,caractèreDeRemplacement)
IDFichier = fOuvre(CheminfichierSource, foLectureEcriture)
SI IDFichier<>-1
ResEcriture = fEcrit(IDFichier,texteDeRemplacement,TailleDuFichierSource-1) // on écrase tous les octets (moins 1) du texte d'origine par le même caractère répété n fois
ResEcriture = fEcrit(IDFichier,dernierCaractère,1) // le dernier caractère est différent simplement pour vérification visuelle
SINON
SI AvecTrace ALORS Trace("Erreur écriture")
fFerme(IDFichier)
RENVOYER Faux
FIN
fFerme(IDFichier)

AUTRES CAS
IDFichier = fOuvre(CheminfichierSource,foLectureEcriture)
NombreDeTours = PartieEntière(TailleDuFichierSource/TailleAnalysée)
reste = TailleDuFichierSource-(TailleAnalysée* NombreDeTours)
texteDeRemplacement = Complete(texteDeRemplacement,TailleAnalysée,caractèreDeRemplacement)

SI IDFichier<>-1 ALORS
POUR compteur=1 À NombreDeTours
ResEcriture=fEcrit(IDFichier,texteDeRemplacement,TailleAnalysée)
SI ResEcriture<>-1 ALORS
SI AvecTrace ALORS Trace("tour="+compteur+"/"+NombreDeTours)
SINON
SI AvecTrace ALORS Trace("Erreur écriture")
fFerme(IDFichier)
RENVOYER Faux
FIN
FIN
ResEcriture = fEcrit(IDFichier,texteDeRemplacement,reste-1) // on écrase tous les octets (moins 1) du texte d'origine par le même caractère répété n fois
ResEcriture = fEcrit(IDFichier,dernierCaractère,1) //le dernier caractère est différent simplement pour vérification visuelle et testée
fFerme(IDFichier)
SINON
fFerme(IDFichier)
RENVOYER Faux
FIN
FIN


//on renomme le fichier source dans son nom bidon temporaire
SI fRenomme(CheminfichierSource,CheminFichierDestination) ALORS
TailleDuFichierDestination=fTaille(CheminFichierDestination)
SI TailleDuFichierSource=TailleDuFichierDestination ALORS //dernière vérification à tout hasard...
SI AvecTrace ALORS
AffichageLignes("DESTINATION",CheminFichierDestination,TailleDuFichierDestination)
AffichageLignesFinales("DESTINATION", CheminFichierDestination)
FIN
verif est chaîne //vraiment là j'en fais trop...
SI VerifDernierCaractère(CheminFichierDestination,dernierCaractère) ALORS
verif=Vrai
SINON
verif=Faux
FIN
SI AvecTrace ALORS
Info("Vérifiez la trace !")
FIN
SI fSupprime(CheminFichierDestination) ALORS
//tout est OK: opération terminée : ouf!
RENVOYER verif
SINON
SI AvecTrace ALORS Trace("Suppression impossible de "+CheminFichierDestination)
RENVOYER Faux
FIN
SINON
fSupprime(CheminFichierDestination)
SI AvecTrace ALORS Trace("Taille différente du source et de la destination")
RENVOYER Faux
FIN
SINON
SI AvecTrace ALORS Trace("renommage impossible de: "+ CheminfichierSource+RC+"en"+RC+ CheminFichierDestination)
RENVOYER Faux
FIN


PROCEDURE INTERNE AffichageLignes(Fichier,Cheminfichier,TailleDuFichier)
Trace("")
Trace("***************************************************************************************")
Trace("FICHIER "+Fichier+": Affichage des premières lignes pour comparaison")
Trace("***************************************************************************************")
Trace("")
IDFichier2 est entier = fOuvre(Cheminfichier)
c est un entier sur 8 octets
t est un chaîne ANSI
fPositionne(IDFichier2,0,fpDébut)
POUR c=1 À TailleDuFichier PAS 100
t=fLit(IDFichier2,100)
Trace(c,t)
SI c>=1000 ALORS
SORTIR
FIN
FIN
fFerme(IDFichier2)
FIN

PROCEDURE INTERNE AffichageLignesFinales(Fichier,Cheminfichier)

Trace("")
Trace("***************************************************************************************")
Trace("FICHIER "+Fichier+": Affichage des dernières lignes pour comparaison")
Trace("***************************************************************************************")
Trace("")
IDFichier3 est entier = fOuvre(Cheminfichier)
c est un entier sur 8 octets
t est un chaîne ANSI
fPositionne(IDFichier3,-100,fpFin)
t=fLit(IDFichier3,100)
Trace(c,t)
fFerme(IDFichier3)
FIN

PROCEDURE INTERNE VerifDernierCaractère(cheminFichier,dernier)
//verification finale sur le dernier caractère c'est la cerise sur le gateau
//mais quand le fichier est trop important comment vérifier que tous les caractères ont été modifiés ? en vérifiant les premiers et les derniers
//on en a la certitude
IDFichier1 est entier = fOuvre(cheminFichier)
t est un chaîne ANSI
fPositionne(IDFichier1,-1,fpFin)
t=fLit(IDFichier1,1)
fFerme(IDFichier1)
SI t=dernier
RENVOYER Vrai
FIN
RENVOYER Faux
FIN