Discussion :

[LAMAN]

bon soir tous le monde
j'ai un fichier txt que je veux exporter vers un fichier structuré comme mon bagage pascal est faible accordez moi un petit exemple de la façon suivante :
donnée du fichier txt: 125 france saut de ligne 126 norvege saut de ligne 127 belgique et le fichier structure compose de deux champs code et pays comment faire et merci d'avance

[Alcatîz]

Bonjour,

Pour lire le contenu de ton fichier texte en en chargeant le contenu directement dans un enregistrement, tu peux faire par exemple :

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
Var t : Text;
    Espace : Char;   (* Espace inutile entre les champs *)
    rec : Record
            code : Integer;
            pays : String;
          end;
 
Begin
  Assign(t,'temp.txt');
  Reset(t);
  while not EOF(t) do
    begin
      ReadLn(t,rec.code,Espace,rec.pays);
      // ...
    end;
  Close(t);
End.

Ce n'est que la moitié du travail, il faut encore ajouter l'écriture dans le fichier structuré.

[LAMAN]

impecable alcatiz et merci,j'ai ajoute un writeln(t,rec.code,rec.pays);
lors de l'execution un message s'affiche "file not open for output" donc
comment ouvrir le fichier destination pour que les lignes du fichier text s'enregistrent dans le fichier structuré et merci

[LAMAN]

j'ai resolu le probleme du message file not open for output en ajoutant deux lignes au code : assign(x,'c:\dest.dat');
rewrite(x)
reste a copier chaque colonne du fichier text dans le champs du fichier destination comment proceder donc et merci

[droggo]

Sao,

Ce n'est que la moitié du travail, il faut encore ajouter l'écriture dans le fichier structuré.

Et pour ça, il faudra avoir un type pour le record utilisé. Il faut donc le déclarer et l'utiliser, plutôt que faire une déclaration du genre

Code :

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

1
2
3
4
5
6
7
8
Var t : Text;
    Espace : Char;   (* Espace inutile entre les champs *)
 
   { ici :) }
    rec : Record
            code : Integer;
            pays : String;
          end;

[LAMAN]

merci mr droggo pour l'interet apporté à mon probleme,j'ai deja fait ta recommandation,il me reste un seul probleme c'est de decouper la ligne du fichier text en deux colonne pour les inscrire dans le fichier typé

[droggo]

Vae,

merci mr droggo pour l'interet apporté à mon probleme,j'ai deja fait ta recommandation,il me reste un seul probleme c'est de decouper la ligne du fichier text en deux colonne pour les inscrire dans le fichier typé

Tu n'as pas à te préoccuper de colonnes ou autres pour un fichier typé, il contiendra simplement les données brutes de ton record.

Il faut faire un fichier typé comme ceci:

Code :

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

1
2
3
4
5
6
7
8
9
type
  rec_t = record
    ...
  end;
 
...
var
  fichier : file of rec_t;
...

une fois le fichier crée et ouvert en écriture, pour écrire dedans:

Code :

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

1
2
3
4
5
6
var
  rec : rec_t;
...
  { remplir rec avec les données }
  { et écrire dans fichier }
  write(fichier,rec) ;

dans les fichiers typés, toujours utiliser write, et jamais writeln.

[LAMAN]

mr droggo oui je comprends mais les donnée d'origine sont stocké dans un fichier txt à separateur tabultion donc il faux d'abord faire une extraction de ce fichier et l'ecrire dans le fichier typé

[droggo]

Xoe,

- Alcatîz t'a montré comment lire ton fichier d'origine.

- Je te rappelle comment déclarer un fichier typé, et comment écrire dedans.

Tu as donc tous les éléments pour résoudre ton problème.

À ton tour : commence ton travail, montre-nous ce que tu as fait, et on pourra t'aider pour aller plus loin.

Car tu dois déjà le savoir si tu as eu un tant soit peu de curiosité pour lire quelques sujets du forum : nous ne ferons pas ton travail à ta place.

[LAMAN]

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
 
Var t : Text;
    Espace : Char;   (* Espace inutile entre les champs *)
    rec : Record
            code : Integer;
            pays : String;
          end;
var x :file of rec;
 
Begin
  Assign(t,'temp.txt');
  assign(x,'c:\destin.dat') (*je l'ai ajouté pour enregistrer dans un fichier physique*)
  Reset(t);
  rewrite (x)
while not EOF(t) do
    begin
      ReadLn(t,rec.code,Espace,rec.pays);
      write(x,rec.code);
      write(x,rec.pays)  
end;
  Close(t);
End.

mais ça n'a pas fait l'affaire

[droggo]

Bea,

Rassure-moi : tu as lu/compris ce que j'ai écrit sur la manière d'écrire une variable de type record dans un fichier type avec ce même record ?

Si oui, relis ton code et compare.

Si non, relis les réponses précédentes.