salut tout le monde!
j'ai un problème "comment lire un fichier texte ligne par ligne sous delphi'
salut tout le monde!
j'ai un problème "comment lire un fichier texte ligne par ligne sous delphi'
un peu de recherche dans les cours proposés sur le forum
http://bodman.developpez.com/ESdelphi/
Sur delphi et d'une manière générale -> TStringList
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
25
26
27
28
29
30
31
32
33 uses Windows, SysUtils, Classes; function traiterLigne(var aStr: string): boolean; begin result := false; aStr := {Faire quelque chose sur aStr}; result := true; end; procedure traiterFichier(aFileName: string); var N: integer; L : string; begin if not FileExists(aFileName) then exit; with TStringList.Create do try LoadFromFile(aFileName); for N := 0 to Count-1 do begin S := strings[N]; if traiterLigne(S) then strings[N] := S; end; SaveToFile(aFileName); finally Free; end; end;
[ Sources et programmes de Dr.Who | FAQ Delphi | FAQ Pascal | Règlement | Contactez l'équipe ]
Ma messagerie n'est pas la succursale du forum... merci!
Inspire toi un peu de ceci :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13 if FileExists(NomFichier) Then //.. Si NomFicher existe alors exécuter le reste du code. begin AssignFile(MonFichier, NomFichier); Reset(MonFichier); //.. On se met au début du fichier While NOT EOF(MonFichier) Do //.. Pour parcourir le fichier begin Read(MonFichier, MaLigne); // Faire tes traitements end; end;
merci à vous tous pour votre aide, c'est très gentil de votre part.
Partager