Delphi et les fichiers texte

Version imprimable

27/10/2005, 23h42
the watcher

Delphi et les fichiers texte

:oops: Voici mon problème les amis :

Citation:

26/09/2005,100,5710000,BADO FELIX WILLIAMS,0,20000,1
26/09/2005,100,5710000,BADO FELIX WILLIAMS,0,20000,1
26/09/2005,100,4110188,Versement de scolarit‚20000,0,1
26/09/2005,100,4110188,Versement de scolarit‚20000,0,1
26/09/2005,101,4110150,Versement de scolarit‚25000,0,1
26/09/2005,101,4110150,Versement de scolarit‚25000,0,1
26/09/2005,101,5710000,KONE MARIAM SARAH,0,25000,1
26/09/2005,101,5710000,KONE MARIAM SARAH,0,25000,1
26/09/2005,102,4110182,Versement de scolarit‚20000,0,1
26/09/2005,102,5710000,OUATTARA FATOUMATA,0,20000,1
26/09/2005,102,4110182,Versement de scolarit‚20000,0,1
26/09/2005,102,5710000,OUATTARA FATOUMATA,0,20000,1

Je voudrais un ptit program pour parcourir le contenu de mon fichier texte dont un extrait ci-dessus et extraire un enregistrement unique pour le copier dans autre fichier texte.
Mon fichier texte s'appelle texte1 et le second texte2
28/10/2005, 00h50
e-ric

Salut

Pourrais-tu préciser comment tu vas choisir l'enregistrement unique ?

cdlt

e-ric
28/10/2005, 12h59
the watcher

Je parle d'enregistrement unique quand lorsque je prend par ex.
les deux premières lignes.

Citation:

26/09/2005,100,5710000,BADO FELIX WILLIAMS,0,20000,1
26/09/2005,100,5710000,BADO FELIX WILLIAMS,0,20000,1

Elles sont identiques alors que je n'ai besoin que d'une.

Est-ce que tu vois ?
28/10/2005, 13h12
bjl

bonjour,

si çà ne pose pas de problème que ta liste soit ordonnée, je suggère de lire le fichier avec une Tstringlist avec les propriétés sorted := true; et Dupplicates := dupIgnore;
28/10/2005, 13h22
the watcher

Ahh !! J'oubliais,
J'ai reussir à règler le problème avec acces :roll: uuhhmm disons avec un peu d'acrobatie : j'ai exporter le contenu de mon fichier texte dans dans une table en mettant les delimiteurs comme ceci :

Citation:

champ1 champ2 champ3 champ4 champ5 champ6 champ7
-------------------------------------------------------------------------------
26-09-2005 , 100 , 5710000 , BADO FELIX WILLIAMS , 0 , 20000 , 1
26-09-2005 , 100 , 5710000 , BADO FELIX WILLIAMS , 0 , 20000 , 1

ensuite j'ai cré une requête de selection avec l'option distinct. ça fonctionner parfaitement mais :? le problème est qu'il faut que je ramenne les nouvelles données au format texte et en plus le format de auquel acces m'a converti les dates 26/09/2005 au lieu de 26-09-2005 ne me convient pas.
Voila pouquoi j'ai pensé que si delphi pouvait lire directement dans mon fichier texte d'origine et copier le contenu dans un autre file texte en ne concervant qu'une ligne unique de chaque ligne qu'il parcourera ce sera plus simple pour moi.

un petit exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Procedure SupprimerDoublons;
Var
  AStringList : TstringList;
  F : TextFile;
  S : String;
Begin
AStringList := TStringList.Create;
AStringlist.Sorted := True; {ordonne la liste}
Astringlist.Dupplicates := dupIgnore; {ne prend pas en compte les doublons}
 
{chargement de la list (je ne crois pas que çà marche avec Astringlist.LoadFromFile donc on va passer par Assign)}
 
Assign(F, 'FICHIER1.TXT'); 
Reset(F); 
while not Eof(F) do 
  begin 
  ReadLn(F, S);  
  Astringlist.add(S);{ ajout de la ligne à la liste : les doublons sont ignorés }
  end; 
Close(F); 
 
Astringlist.writeToFile('FICHIER2.TXT'); {écrit dans le second fichier le contenu du premier fichier expurgé des doublons}
Astringlist.free;
end;