Discussion :

[amine6441]

Salut les amis
J'ai voulu remplir un fichier par des enregistrements.
Le problème c'est que :

1- Je veux que le fichier soit affiché comme ça

Code :

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

1
2
3
4
5
6
7
type tenr:record
nom............
..........
..............
end;
var f:file of tenr;
var nom,prenom,age,adress:string;

nom
prenom
age
adress

sans écrire à chaque fois

Code :

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

1
2
3
4
read(f,nom);
read(f,prenom);
read(f,age);
read(f,adress);

pouvons nous écrire

Code :

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

1
2
3
4
5
6
with f do
begin
read(nom);
read(prenom);
read(age);
read(adress);

[QUOTE]

2- Les readln ne fonctionnent pas dans les file of... mais ça marche dans les text;

3- Pouvons-nous travailler avec un var f:text dans les dans un fichier var fichier:file of string;

4- Les seek ne marchent pas aussi dans les var f:text; y a-t-il une autre fonction comme seek ?

et merci les amis

[Ultima]

Salut,
ce n’est pas pour dire du mal, mais il me semble que tu est comme moi, débutant en pascale.
Je crois que tu fonce, tête baissée dans un truck que tu ne maitrise pas, et c’est la raison pour laquelle tout ce que tu dis est très flou.
Je te conseille de lire des cours avant de faire des trucks trop compliqués, car visiblement tu ne sais pas encore utiliser les types record et encore moins le type FILE et FILE of.

[Tuxico]

type tenr:record
nom............
..........
..............
end;
var f:file of tenr;
var nom,prenom,age,adress:string

devient

Code :

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

1
2
3
4
5
6
7
8
type
        tenr = record
                 nom : string;
                 age : string;
                 adress : string;
var
        f : file of tenr;
        curseur : tenr;

les records s'utilisent de la maniere suivante ...:

Code :

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

1
2
3
4
5
6
 
readln(f,curseur);
write('Nom :');
writeln(curseur.nom);
write('Age :');
writeln(curseur.age);

meme chose pour la saisie, readln(curseur.nom) etc, renseigne toi sur les record et les types composés dans la FAQ elle est là pour ca

[amine6441]

Merci
Mais j'ai pas de problème dans les enregistrements.
Le seul problème c'est dans les fichiers comme j'ai écrit dans le sujet des fichiers et des files et merci encore

[M.Dlb]

2) Readln ne fonctionne pas dans le fichier file, il faut utiliser read;

3) Oui on peut, le mieux à mon goût est le type file of char.

4) Non, d'où l'utilité des file of char, où on peut utiliser seek.

[amine6441]

merci MR le Modérateur vous etes geniemais disant que je travaille dans un preogram de
var f:text;
et je veus modifier dans ce fichier text la fonction seek ne marche pas
mais est ce que le blocwrite peut modifie se fichier au lieu de seek
car seek ne mache que dans les file of... ou bien dans les fichiers

et merci

[Tuxico]

2) Readln ne fonctionne pas dans le fichier file, il faut utiliser read;

l'inverse chez moi

[thewho]

Bonjour,

Manifestement, tu as besoin de lire des docs sur les enregistrements, ET sur ce que sont les fichiers en Pascal, en particulier, savoir distinguer

Code :

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

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

et

Code :

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

1
2
3
4
 
var
 ftext : text;
...

Quand tu auras revu ça, tu devrais comprendre pourquoi on n'utilise pas indifféremment Read ou Readln dans l'un ou l'autre.

[amine6441]

qu'elle est la fonction qui peut modifier un text car la fonction seek ne marche pas pour les text mais ca marche pour les files of........
et merci

et merci

[Ultima]

Bonjour,
Pour modifier un texte, tu utilise la fonction write(ln), d’ailleurs voici les fonctions d’E/S que tu peux utiliser pour les fichiers textes.
Write, WriteLn, Read, ReadLn, Eof

[Ultima]

Resalut,
Il me semble que tu veux utiliser seek mais je ne comprends pas pour quoi car non seulement seek ne fonctionne que pour les fichiers binaires autres que texte, mais en plus seek permet de positionner le curseur et non d’écrire dans un fichier.
Saches aussi que tu ne peux pas utiliser BlockWrite et BlockRead dans un fichier texte.

[amine6441]

je travaille dans un program
se program enregistre des donnee dans des texts
le probleme je dois cree une procedure modifier ou je dois modifier sur le text que je viens creer
et le grand probleme c'est que seek ne marche pas dans les texts

[Ultima]

Bonjour,
Je crois que la meilleure chose que tu puisses faire, c’est de copier les lignes que tu veux dans un nouveau fichier, quant tu arrivas à la ligne que tu veux modifier, tu la modifies avant de l’insérer dans le fichier.
Je te rappelle quand-même que tu peux aussi faire une déclaration de variable FILE OF STRING, ou FILE, ainsi tu pourras utiliser seek.

Code :

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

1
2
3
4
var F : FILE OF STRING;
begin
  assign(F,'Fichier.txt'); // c'est un fichier texte composé de STRING
                          // ainsi tu travail bien sur un fichier txt, mais tu peux utuliser seek