Discussion :

[fadex]

Bonjour

Lors de la réinstallation d'une machine, j'ai perdu un petit programme qui permet d'imprimer une ligne à partir d'un fichier text; l'imprimante (EPSON LX 300+) doit imprimer la ligne et décale la page d'un centimètre pour qu'on puisse imprimer d'autre lignes sur la même page.

Merci d'avance

[Alcatîz]

Bonjour !

Pour décaler, tu peux peut-être simplement ajouter un retour chariot (#13) et 2 ou 3 line feeds (#10) à la ligne que tu imprimes :

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
Program IMPRIM;
 
Uses Printer;
 
Var Buffer : String;
    Fichier : Text;
 
Begin
  (* Lecture de la ligne *)
  Assign(Fichier,'xxxx');
  Reset(Fichier);
  ReadLn(Fichier,Buffer);
  Close(Fichier);
  (* Ajout des CR et LF *)
  Buffer := Buffer + #13#10#10;
  (* Impression de la ligne *)
  Write(Lst,Buffer);
End.

[fadex]

je suis desolé mais moi je ne conais rien en pascal vous pouver mexpliquer les ligne de code

merci

[Alcatîz]

Allez, c'est dimanche

Code :

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

Uses Printer;

Permet d'utiliser l'unité Printer, dans laquelle est déclaré un fichier texte directement lié à l'imprimante, Lst.

Code :

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

1
2
Assign(Fichier,'xxxx');
Reset(Fichier);

Ouvre le fichier qui contient le texte à imprimer. 'xxxx' est le nom du fichier.

Code :

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

ReadLn(Fichier,Buffer);

Lit la ligne à imprimer et la charge en mémoire dans la chaîne Buffer.

Code :

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

Close(Fichier);

Ferme le fichier.

Code :

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

Buffer := Buffer + #13#10#10;

Ajoute un retour chariot et deux sauts de ligne au texte à imprimer.

Code :

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

Write(Lst,Buffer);

Imprime la chaîne Buffer.

[fadex]

merci

est ce que tu peut m'envoyer le fichier .exe de ce programme sachant que le fichier .exe et le fichier text (fiche.txt) seront placés dans la racine systelme C:

merci d'avance

[Alcatîz]

Euh... t'as pas de compilateur ?

L'exe est ici

[fadex]

merci ami c tres jontil , sa marche mnt