Discussion :

[Kokito]

Bonjour tout le monde

Pfffiouu,ca f'sait longtemps que j'étais pas passé par ici

Alors voilà mon chtit problème


J'ai un fichier texte généré automatiquement par un programme en VB, malheureusement, on a pas les sources. (D'un côté je préfère, j'aime pas du tout utilisé VB et SQL, je trouve que ca va pas trop ensemble ).

Voilà donc, j'aimerais qu'à chaque fois que ce fichier texte est modifié, delphi lise la dernière ligne de ce fichier et l'ajoute dans une base SQL.


Je voudrais savoir si il est possible de détecter cette modification de fichier ? Si oui comment ?

Merci de votre aide

Et bon appétit à ceux qui vont manger

[declencher]

C'est faisable, il y a des logiciels qui le font mais je ne sais pas comment.

Je suppose que tu pourrais sélectionner dans ton appli un répertoire à surveiller, puis périodiquement tu verifierai la présence ou non de nouveau fichier ainsi que la date de dernière modification...

[Reisubar]

L'API que tu cherches est probablement FindFirstChangeNotification :
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/fileio/base/findfirstchangenotification.asp

La JVCL encapsule tout cela très simplement avec le composant TJvChangeNotify.

[Amenofis]

Salut,

plus simplement ne serait-il pas possible de travailler sur la Date/Heure du fichier ? Si il est modifier cette dernière doit l'être aussi...

mais c'est peut-être pas suffisant dans ton cas...

@+

[Reisubar]

plus simplement ne serait-il pas possible de travailler sur la Date/Heure du fichier ? Si il est modifier cette dernière doit l'être aussi...

Cela oblige à faire une boucle qui scrute en permanence la date de modification du fichier alors que des API sont fait pour ça.

Ceci dit, ca doit très bien marcher...

[KooX]

Je sais pas si ca peut t'aider, mais pour mes petits besoins personnels, j'avais fait un programme qui surveillait la modification d'un fichier texte.
(http://www.developpez.net/forums/vie....php?t=208639)
En fait comme l'a dit Reisubar, je suis passé par une surveillance en permanence (en fonction du timer, le mien c'était toute les 2sc) le fichier, je comptais et mémorisais le nombre de ligne, et comme ca je pouvais detecter si une nouvelle ligne avait été ajoutée.
Et puis le prog balancait la nouvelle ligne dans un Memo

[Nono40]

Si tu tournes sur NT/2000/XP ( sous NTFS ), je te conseilles plutôt la fonction Api ReadDirectoryChangesW.

Voir : http://nono40.developpez.com/sources/source0045.html

L'avantage de cette fonction est de donner directement le nom du fichier modifié. Tu n'as pas besoin de surveiller les dates.

Si tu veux le faire avec la fonction FindFirstChangeNotification, voir ici :
http://nono40.developpez.com/sources/source0017.html
http://nono40.developpez.com/sources/source0018.html

[Kokito]

Merci à tous de votre aide, je vais zieuter toute l'aide que vous m'avez fourni

Encore merci

[Kokito]

Bon voilà j'ai trouvé la solution à mon problème grâce à vous, encore merci

Je suis bloqué devant un autre problème maintenant

Je sais pas trop comment faire pour lire la dernière ligne d'un fichier texte

Quelle méthode vous me conseilleriez ?


Ensuite les lignes dans ce fichier sont comme ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

38108,02859	17,4	95,8	453,0

Je voudrais juste récupérer les 3 derniers nombres et les caser dans 3 variables différentes. Je devrais mieux le faire pendant que je lis dans le fichier ou après que j'ai récupéré toute la ligne ?

Merci de votre aide

[Reisubar]

Pour la dernière ligne, tu peux charger ton fichier dans une TStringList et lire la dernière ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dernière := MaStringList[MaStringList.Count-1];

Ensuite tu fais ton travail sur les chaînes avec la variable contenant cette dernière ligne.

[Kokito]

Pour la dernière ligne, tu peux charger ton fichier dans une TStringList et lire la dernière ligne :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Dernière := MaStringList[MaStringList.Count-1];

Ensuite tu fais ton travail sur les chaînes avec la variable contenant cette dernière ligne.

Merci ca marche impecc ...

Maintenant, j'ai des fichiers qui peuvent avoir plus de 280 000 lignes, comme celle que j'ai cité, c'est pas trop fréquent mais quand même.

Bref j'ai testé avec un gros fichier de 280 000 lignes donc ca fait 5 minutes que j'ai fait le LoadFromFile et le prog tourne encore dans la semoule ... ah ca y est, le prog a affiché tout le fichier au bout de 6 minutes et 54 secondes

Y'a t-il une méthode qui permette d'ouvrir le fichier et d'aller directement à la dernière ligne sans être obligé d'ajouter toutes les lignes dans un TStringList ou autres ?

Promis après j'arrête de vous embêter

[Kokito]

Voilà, j'ai trouvé une solution qui fonctionne en 2 secondes pour un fichier de 300 000 lignes.

Je fais un truc du genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
repeat 
Readln(F,Ligne); 
until EOF(F);
ListBox1.Items.Add(Ligne);

Je sais pas si c'est la bonne méthode mais en tout cas, ca fonctionne rapidement

Merci à tous de votre aide

[sjrd]

Je pense avoir une autre idée : utiliser les flux. Essaie ceci, ça devrait fonctionner et ne durer que quelques nanosecondes pour n'importe quelle taille de fichier.
La fonction ne teste pas si le fichier a été modifié.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
function DerniereLigne(NomFichier : string) : string;
var Fichier : TFileStream;
    C : Char;
begin
  Fichier := TFileStream.Create(NomFichier, fmOpenRead or fmDenyNone);
  Fichier.Seek(-1, soFromEnd);
  Fichier.Read(C, 1);
  if C = #10 then
  begin
    Fichier.Seek(-2, soFromCurrent);
    Fichier.Read(C, 1);
    if C = #13 then Fichier.Seek(-2, soFromCurrent)
               else Fichier.Seek(-1, soFromCurrent);
  end else Fichier.Seek(-1, soFromCurrent);
  // Maintenant, la position du fichier est au dernier caractère
  // de la chaîne, qu'elle se termine par #13#10, #10 ou rien.
  Result := '';
  repeat
    Fichier.Read(C, 1);
    Fichier.Seek(-2, soFromCurrent);
    if C <> #10 then Result := C+Result;
  until C = #10;
  Fichier.Free;
end;

Cette fonction part de la fin du fichier et lit caractère par caractère en arrière jusqu'à trouver un #10 marquant la fin de la chaîne précédente.
Ajouter l'unité Classes à la clause Uses

[Kokito]

Cool merci, je vais essayer ça tout de suite