Lire un fichier .txt et retranscrire ses information dans un autre

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Lire un fichier .txt et retranscrire ses information dans un autre

Opera140

Salut !

Je cherche à lire un fichier .txt et a stocker ses informations dans un tableaux de chaines pour les réutiliser plus tard.
Pour tester si le programme lit bien mon fichier, je veux retranscrire le contenu dans un autre fichier .txt.
J'ai donc écrit ceci :

Code :

var
Ligne : string;
Liste, Liste2 :Textfile;
TListe : array of string;
i : Integer
.
.
.
AssignFile(Liste,'C:\MonPath\Liste.txt');
Reset(Liste);
AssignFile(Liste2,'C:\MonPath\Liste2.txt');
Rewrite(Liste2);
i:= 0;
while not EOF(Liste) do
begin
Readln(Liste, Ligne);
TListe[i] := Ligne;
Writeln(Liste2, TListe[i]);
i := i+1;
end;
.
.
.

Et donc ça ne marche pas.
J'ai essayer en créant le fichier avant et en utilisant Append() au lieu de Rewrite(), mais l'effet est le même.

Qu'est ce qui cloche ?

Publicité

Flagad'aware

c pô moi, j'ai pas touché!

Salut

Je me demande si, quand tu déclare ton array of string tu devrait pas faire plutôt:

TListe : array [1..1000] of string;

enfin 1000 j'ai mis large ça dépend de tes txt

peut être qu'on peut sans mais si ça marche pas ça vient surement de ça, quand tu fait Writeln(Liste2, TListe[i]); si Tliste[i] est vide ou pas bon c'est sûr de ne pas marcher

déja pour tester fait: Writeln(Liste2, Ligne);

tu auras déja une copie

et n'oublie pas les closefile(liste1); et closefile(liste2);

Message édité par Flagad'aware le 28-03-2007 à 20:47:24

aldo13000

Salut ,

Tu peux utiliser SetLength :

while not EOF(Liste) do
begin
...
SetLength(TListe , i+1);
Readln(Liste , TListe(i);
...
end;

---------------

Madmass

je pense que le code ne marche pas parceque tu lui declare un tableau dynamique (array of string) et que tu le remplis sans lui avoir prealablement donné une taille a l'aide de setlength.

au delà de ça je ne comprend pas pourquoi tu t'encombre de ce tableau, tu peux tres bien ecrire directement a partir de ce que tu lis.

Code :

var
Ligne : string;
Liste, Liste2 :Textfile;
AssignFile(Liste,'C:\MonPath\Liste.txt');
Reset(Liste);
AssignFile(Liste2,'C:\MonPath\Liste2.txt');
Rewrite(Liste2);
while not EOF(Liste) do
begin
Readln(Liste, Ligne);
Writeln(Liste2, Ligne);
end;

Message édité par Madmass le 29-03-2007 à 20:46:08

Opera140

En fait c'est du tableau dont j'ai besoin, pas de Liste2.txt, je l'utilise simplement pour contrôler que ma partie lecture est bonne (et accessoirement pour apprendre la partie écriture).

Code :

var
Ligne : string;
i : Integer;
Liste, Liste2 : Textfile;
TListe : array [1..100] of string;
begin
for i:=0 to 100 do
begin
TListe[i] := '0';
end;
i :=0;
try
AssignFile(Liste,'C:\MonPath\Liste.txt');
Reset(Liste);
AssignFile(Liste2,'C:\MonPath\Liste2.txt');
Rewrite(Liste2);
while not EOF(Liste) do
begin
Readln(Liste, Ligne);
TListe[i] := Ligne;
Writeln(Liste2, TListe[i]);
i := i+1;
end;
finally
CloseFile(Liste);
CloseFile(Liste2);
end;

Voilà un code plus complet, peut être y a t-il des erreurs avant qui empêchent le déroulement correct de l'opération.

Madmass

bah....tu as quoi comme erreur car chez moi ton code marche parfaitement et copie bien le fichier. (il remplit aussi le tableau).

Opera140

Je ne sais pas d'ou venait l'erreur.
Tout ce que je sais, c'est que finalement j'ai utilisé un TStringList au lieu d'un tableau standardet que ça fonctionne parfaitement.

Code :

DirSTL.LoadFromFile('C:\MonPath\Liste.txt');
ShowMessage('Nombre de fichiers : ' + intToStr(DirSTL.count));
Memo1.Text := DirSTL.Text;
DirSTL.SaveToFile('C:\MonPath\Liste2.txt');

FORUM HardWare.fr

Programmation

Delphi/Pascal

Lire un fichier .txt et retranscrire ses information dans un autre

Sujets relatifs
[Java] lecture d'un fichier : y'a un lézard quelque part...	Application quitte sans avoir fermé un fichier ouvert en écriture
Iframe et fichier locaux	FOR %%i do et resultat dans un fichier texte
macro inserer fichier ds un .doc	Gestion du drag&drop de fichier sur une page internet?
Lire une carte à puce, identifier un n° et envoyer un ordre...	[MATLAB] aide pour ecrire dans un fichier
enregistrer une table dans un fichier texte	Lire des articles d'1 serveur sur 1 autre serveur?MSSQL& XML, PHP,.NET
Plus de sujets relatifs à : Lire un fichier .txt et retranscrire ses information dans un autre

Page générée en 0.050 secondes