Bonjour à tous,
J'ai le programme suivant qui crée un fichier text. Cpendant, je voudrais que si le fichier existe, à la Nième importation, le programme compte le nombre de fois que le fichier est importé et affiche par exemple ce fichgier à été importé 2 fois.
SI fFichierExiste(fRepExe+"\test.txt") ALORS
Message("le fichier à été déjà importé")
IdFichier = fCrée(fRepExe+"\test.txt")
SINON
IdFichier = fCrée(fRepExe+"\test.txt")
FIN
// Affichage du message d'erreur si la création n'a pas été effectuée
SI IdFichier = -1 ALORS
Erreur(ErreurInfo(errMessage))
SINON
// Traitements et écriture dans le fichier créé
fEcritLigne(IdFichier,"#FLG 000")
fEcritLigne(IdFichier,"#VER 8")
fEcritLigne(IdFichier,"#DEV EUR")
POUR TOUT JOURNAL
fEcritLigne(IdFichier,"#MECG")
codJournal = JOURNAL.COD_JOU
codJournal = SansEspace(codJournal)
fEcritLigne(IdFichier,codJournal)
dateEchreance = JOURNAL.DAT
.......
.....

FIN
fEcritLigne(IdFichier,"#FIN")
fFerme(IdFichier)
Info("Exportation réalisée")
// Fin des traitements dans le fichier créé
FIN



Merci d'avance

Bonjour,

Créer un description de fichier soit en dynamique soit via l'editeur d'analyse.
Ce fichier pourrait contenir:
-Nom du fichier
-NbImportation

un simple HCreationSiInexistant() pour le créer si celui ci n'existe pas

dans votre procédure d'importation, vous controler d'abord si le fichier à déjà été importé afin d'en connaitre le nombre de fois qu'il a été importé puis une fois importé vous modifier l'enregistrement pour incrementer le champs NbImportation.

Si le fichier n'a jammais encore été importé alors vous n'aurez qu'à créer un nouvel enregistrement.

Bonjour,

Vous devez impérativement y réserver un espace (une ligne) pour y enregistrer le nombre d'importation.

Ainsi, une lecture préalable de cette imformation vous permettra d'effectuer vos tests.

Bonjour,

Vous pouvez aussi passer par un fichier .ini avec les fonction iniXXX

A chaque fois que vous faites une importation vous incrementez de 1 la valeur. ( iniecrit)

ciaos