Discussion :

[chmaichel]

bonjour:
Je veux comparer deux fichiers textes ou plus precisement les lignes qui comporte 'OR' dans les deux fichiers pour cela j'utilise cette fonction
[code]
while EOF(fichier1)=false DO
begin
while EOF(fichier2)=false do
begin
Readln(fichier2,tmpS); Readln(fichier1,tmp);

if (Pos('or',tmp)<>0) then
begin
begin
if (Pos('or',tmpS)<>0) then
begin
Trim(tmp);
Trim(tmpS);
PtmpS:=Pchar(tmpS);
Ptmp:=Pchar(tmp);
resultat:=Strcomp(Ptmp,PtmpS)+1;
end ;
end;


le probleme c'est que ça parcourt une ligne et au bout de la deuxieme le programme estime que le deuxieme fichier est à sa fin et n'entre plus dans la boucle.
Si quelqu'un peut m'aider..
merci

[ryko]

bonjour,

je ferais plutôt ça :

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
 
while EOF(fichier1)=false DO
begin
	Readln(fichier1,tmp);
	reset(fichier2);
	while EOF(fichier2)=false do
	begin
		Readln(fichier2,tmpS); 
		if (Pos('or',tmp)<>0) then
		begin
			if (Pos('or',tmpS)<>0) then
			begin
				Trim(tmp);
				Trim(tmpS);
				PtmpS:=Pchar(tmpS);
				Ptmp:=Pchar(tmp);
				resultat:=Strcomp(Ptmp,PtmpS)+1;
			end ;
		end;
	end;
	closefile(fichier2);
end;	
closefile(fichier1);

car pour chaque ligne lue dans fichier1 , il faut parcourir TOUT fichier2, donc ouvrir, puis parcourir et enfin fermer fichier2 pour chaque ligne de fichier1.