PROCEDURE traitement.CreationFichier(Date : String);
var
Recuperation : integer;
Filedelete : String;
BEGIN
FichierName := 0; // Creation du CR unique ( Provisiorement )
//Ouverture du fichier CR jour
AssignFile(myFile, 'C:\Users\Administrateur\Desktop\DatasBAF2A\CR' + date + '.txt');
Reset(myFile);
//Création du fichier CR unique
AssignFile(newFile, 'C:\Users\Administrateur\Desktop\test\Fichier_'+ date + '_' + inttostr(FichierName) + '.txt');
Rewrite(newFile);
//tant que nous ne sommes pas en fin de fichier
WHILE NOT Eof(myFile) DO
BEGIN
ReadLn(myFile, Stg);
//Découpage repéré par la ligne de bilan apprentissage
IF (Stg = '/11************************* BILAN APPRENTISSAGE 1***************** ' ) THEN
BEGIN
FichierName := FichierName + 1;
CloseFile(newFile);
AssignFile(newFile, 'C:\Users\Administrateur\Desktop\test\Fichier_'+ date + '_' + inttostr(FichierName) + '.txt');
Rewrite(newFile);
END;
WriteLN(newFile, Stg);
END;
CloseFile(myFile);
CloseFile(newFile);
END;
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Une machine nous sort un rapport journalier dans un fichier texte et remonte certaines données dans une BDD.
Actuellement, nous ne faisons pas le lien entre les deux.
Dans la base de données, nous avons en "gros" une date, et un nombre d'octets. (beaucoup plus compliqué que ça dans la réalité mais le reste des champs ne rentrent pas en compte pour ce projet)