Discussion :

[Bouguennec]

Certains risquent de me dire que je ne sais pas chercher mais j'aimerai savoir comment en pascal créer un fichier vide ( au cas ou cela a de l'importance, il est typé).
Merci d'avance

[gorgonite]

Certains risquent de me dire que je ne sais pas chercher mais j'aimerai savoir comment en pascal créer un fichier vide ( au cas ou cela a de l'importance, il est typé).
Merci d'avance

Code :

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

1
2
3
4
5
6
7
var fichier : text;
var ligne : string;
 
assign(fichier,'test.txt');
rewrite(fichier);
writeln(fichier,ligne);
close(fichier);

[diden138]

bon un peu plus de detail si c'est rien que pour creer un fichier vide je crois que tu devrais faire ça facilement

Code :

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

1
2
3
4
5
6
7
8
var
   f:text;
{---------------------------}
begin
  assign(f,'c:\exemple.txt');
  rewrite(f);
  close(f);
end.

[Alcatîz]

Bonjour !

Code :

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

1
2
3
4
5
6
7
var fichier : text;
var ligne : string;
 
assign(fichier,'test.txt');
rewrite(fichier);
writeln(fichier,ligne);
close(fichier);

Le fichier n'est pas vide...

var
f:text;
{---------------------------}
begin
assign(f,'c:\exemple.txt');
rewrite(f);
end.

Il manque le Close(f)...

[Bouguennec]

Merci beaucoup ça marche nickel.

[ikossan]

une autre methode un peu

Code :

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

1
2
3
4
 
var
  MyFile: string = 'd:\folder\fichier.txt'
FileClose(FileCreate(AutorunFileName)); //creer un fichier vide

tu peux l'utiliser apres comme tu veux, ce n'est qu'un fichier vide 0kb