Micro Systèmes n°95 mars 1989
Micro Systèmes n°95 mars 1989
  • Prix facial : 30 F

  • Parution : n°95 de mars 1989

  • Périodicité : mensuel

  • Editeur : Société Parisienne d'Edition

  • Format : (203 x 271) mm

  • Nombre de pages : 200

  • Taille du fichier PDF : 163 Mo

  • Dans ce numéro : RNIS, l'avenir des réseaux.

  • Prix de vente (PDF) : gratuit

Dans ce numéro...
< Pages précédentes
Pages : 180 - 181  |  Aller à la page   OK
Pages suivantes >
180 181
LISTEUR DE FICHIERS ASCII Turbo Pascal V4.0 - List V2.0 1988 Schack Philippe Ce programme permet de lister un fichier source en mode compressé avec un interligne de 1/8 de pouce, ce qui donne 81 lignes de 130 caractères sur une plage de listing. Il est possible de lui passer le nom du fichier directement (ex. : LIST TOTO, TXT), TOTO. TXT est le fichier à lister. program list ; uses dos, crt, printer ; const ExtFichier =..PAS' ; (Extension par défaut du nom du fichier à lister.) Loreax = 130 ; (Longueur maximale d'une ligne.) Maxiignes = 81 ; (Nombre de lignes par page.) espaces : string[50] Chainelnit = #2711115#27'01 (Chaine d'anitialisation de l'imprimante.) type st5 st10 = string[5] ; = string[10] ; var NomFichier : manuel resaisir : FichALister ch ligne LigneBis CompteurL CompteurP page p n sortir ESC DateL TimeL buff string ; (nom du fichier a lister (avec le chemin). boolean ; (indicateur de saisie au clavier. boolean ; (pour indiquer si la saisie est bonne. text ; (fichier à lister. char ; (utilisé pour l'appel à readkey. string ; (pour lire dans le fichier a lister. string ; (ligne provisoire. integer ; (compteur de lignes lues. integer ; (compteur de lignes dans la page. integer ; (compteur de pages. integer ; (utilisé pour la recherche d'une chaine. integer ; (utilisé pour les boucles. boolean ; (indicateur de sortir pendant le listing. boolean ; (indicateur ESCAPE. st10 ; (date de tirage du listing. st5 ; (heure de tirage du listing. array[1..10240] of char ; (buffer de lecture (10 Ko). (La fonction suivante retourne une STRIN6[10] contenant la date courante.) function Date : st10 ; month,day,year,dow : s_month,s_day s year word ; string(2) ; string[4] ; (dow=day of week) begin (date getdate(year.month,day,dow) ; str(year,s_year) ; (convertion str(day,s day) ; (") str(month:S month) : (") s day:=copy7 00'+s_day,length(s day)+1,2) ; s-Month:=copy('00'+s month,lengfh(s month)+1,2) ; slyear:=copy.00000'+i_year,length(slyear)+1,4) ; date : = s_day+'/'+s_month+7'+s_yeari end ; (date) en string) Dans la liste des utilitaires que doit posséder tout programmeur, il en est un qui s'avère très vite nécessaire lorsque l'on travaille sur des programmes de grande taille, c'est un listeur. Un listeur est un programme qui doit être capable d'imprimer n'importe quel fichier ASCII, et cela en effectuant quelques opérations particulières au niveau de la pagination (numérotation des pages, saut des pliures, par exemple). Le listeur doit avant tout être pratique, pour cela il doit donner les indications suivantes : — Les dates et heures de listing. Cela permet de savoir quand a été réalisé, le dernier listing. Celles-ci sont indiquées en haut à droite de chaque page. — Le numéro des pages. Utile pour éviter de les mélanger. Celui-ci est indiqué en haut à gauche et en bas à droite de chaque page. De plus, chaque page se termine par le texte « Suite » exepté pour la dernière qui se 180 — M ICRO-SYSTEM ES Mars 1989
Listing de LIST.PAS, page 2. (La fonction suivante retourne une STRIN6[5] contenant l'heure courante. (function tee : st5 ; var hour,min,sec,sec100 : word ; s_hour,s_min : string(2) ; begin (tille) gettime(hour,min,sec,sec100) ; str(hour,s hour) ; str(min,siin) ; (.) (convertion en string) s hour:=copy('00'+s hourdength(s hour)+1,21 ; smin:=copy(.00. +s iin,length(s min)+1,2) ; time : = s hour+Y ; s_min ; - end ; (tillé-) ((Cette procédure réalise un effacement partiel de l'écran de la ligne N'4 (à la ligne N'25. procedure PartCls ; var n : byte ; begin (PartCls 1 for n:=4 to 25 do begin gotoxy(1,n) ; ClrEol ; end ; gotoxy(1,4) ; end ; (PartCls) - - (Cette procédure affiche Fichier'XXXXXXXX.XXX'inexistant. Elle est (utilisée quand le nom du fichier est donné par la ligne de commande et est (erroné. (procedure erreur2 ; begin (erreur2) ClrScr ; TextColor(31) ; writeln('Fichier "',NoeFichier, inexistant 1 ; TextColor(7) ; sound(800) ; delay(200) ; nosound ; end ; (erreur2) - — - — (Cette procédure affiche Fichier. XXXXXXXX.XXX. inexistant puis propose à (l'utilisateur de recommencer ou d'abandonner. Elle est utilisée quand le nom du fichier est saisit dans le programme et est erroné. (- - - 1 procedure erreurl (var reponse : boolean) ; var ch n : char byte ; begin (erreurl) sound(800) ; PartCls ; TextColor(31) ; writeln('Fichier "., NoaFichier," inexistant 1 ; writeln ; delaymo) ; nosound ; TextColor(15) ; writeln('Appuyer sur 1117.-1 pour recommencer.) ; write('. ou ESC pour abandonner') ; TextColor(7) ; repeat ch:=readkey ; until ch in (1127,1)13) ; if ch=1)13 then reponse:=true elle reponse:=false ; PartCls ; end ; (erreurl)) ) ) ) ) ) ) i } I)) ) ) ) termine parle texte « Fin. ». — Le nom du fichier listé, Il est indiqué en haut à gauche et en bas à droite de chaque page. Le listeur présenté ici réalise des tirages sur imprimantes de n'importe quel fichier au format ASCII, et cela en mode compressé avec un interlignage de 1/8 de pouce, ce qui donne des pages de 81 lignes utiles de texte sur 130 colonnes pour des feuilles de 11 pouces. Ce format a été choisi pour les raisons suivantes — Plus de ligne par page, cela fait moins de feuilles pour chaque listing. Donc économie de papier et listings moins épais. De plus, les langages évolués étant présentés indentés, il est plus facile d'en cerner la structure générale. — La plupart des compilateurs actuels, et cela quel que soit le langage, refusent des lignes de plus de 128 caractères, on est donc assuré que chaque ligne du programme ne dépassera pas une ligne du listing. — Les lignes de programmes peuvent parfois être chargées de commentaires, il est pratique que ceux-ci soient sur la même ligne que les instructions auxquelles ils se rapportent. Mars 1989 MICRO-SYSTEM ES - 181



Autres parutions de ce magazine  voir tous les numéros


Liens vers cette page
Couverture seule :


Couverture avec texte parution au-dessus :


Couverture avec texte parution en dessous :


Micro Systèmes numéro 95 mars 1989 Page 1Micro Systèmes numéro 95 mars 1989 Page 2-3Micro Systèmes numéro 95 mars 1989 Page 4-5Micro Systèmes numéro 95 mars 1989 Page 6-7Micro Systèmes numéro 95 mars 1989 Page 8-9Micro Systèmes numéro 95 mars 1989 Page 10-11Micro Systèmes numéro 95 mars 1989 Page 12-13Micro Systèmes numéro 95 mars 1989 Page 14-15Micro Systèmes numéro 95 mars 1989 Page 16-17Micro Systèmes numéro 95 mars 1989 Page 18-19Micro Systèmes numéro 95 mars 1989 Page 20-21Micro Systèmes numéro 95 mars 1989 Page 22-23Micro Systèmes numéro 95 mars 1989 Page 24-25Micro Systèmes numéro 95 mars 1989 Page 26-27Micro Systèmes numéro 95 mars 1989 Page 28-29Micro Systèmes numéro 95 mars 1989 Page 30-31Micro Systèmes numéro 95 mars 1989 Page 32-33Micro Systèmes numéro 95 mars 1989 Page 34-35Micro Systèmes numéro 95 mars 1989 Page 36-37Micro Systèmes numéro 95 mars 1989 Page 38-39Micro Systèmes numéro 95 mars 1989 Page 40-41Micro Systèmes numéro 95 mars 1989 Page 42-43Micro Systèmes numéro 95 mars 1989 Page 44-45Micro Systèmes numéro 95 mars 1989 Page 46-47Micro Systèmes numéro 95 mars 1989 Page 48-49Micro Systèmes numéro 95 mars 1989 Page 50-51Micro Systèmes numéro 95 mars 1989 Page 52-53Micro Systèmes numéro 95 mars 1989 Page 54-55Micro Systèmes numéro 95 mars 1989 Page 56-57Micro Systèmes numéro 95 mars 1989 Page 58-59Micro Systèmes numéro 95 mars 1989 Page 60-61Micro Systèmes numéro 95 mars 1989 Page 62-63Micro Systèmes numéro 95 mars 1989 Page 64-65Micro Systèmes numéro 95 mars 1989 Page 66-67Micro Systèmes numéro 95 mars 1989 Page 68-69Micro Systèmes numéro 95 mars 1989 Page 70-71Micro Systèmes numéro 95 mars 1989 Page 72-73Micro Systèmes numéro 95 mars 1989 Page 74-75Micro Systèmes numéro 95 mars 1989 Page 76-77Micro Systèmes numéro 95 mars 1989 Page 78-79Micro Systèmes numéro 95 mars 1989 Page 80-81Micro Systèmes numéro 95 mars 1989 Page 82-83Micro Systèmes numéro 95 mars 1989 Page 84-85Micro Systèmes numéro 95 mars 1989 Page 86-87Micro Systèmes numéro 95 mars 1989 Page 88-89Micro Systèmes numéro 95 mars 1989 Page 90-91Micro Systèmes numéro 95 mars 1989 Page 92-93Micro Systèmes numéro 95 mars 1989 Page 94-95Micro Systèmes numéro 95 mars 1989 Page 96-97Micro Systèmes numéro 95 mars 1989 Page 98-99Micro Systèmes numéro 95 mars 1989 Page 100-101Micro Systèmes numéro 95 mars 1989 Page 102-103Micro Systèmes numéro 95 mars 1989 Page 104-105Micro Systèmes numéro 95 mars 1989 Page 106-107Micro Systèmes numéro 95 mars 1989 Page 108-109Micro Systèmes numéro 95 mars 1989 Page 110-111Micro Systèmes numéro 95 mars 1989 Page 112-113Micro Systèmes numéro 95 mars 1989 Page 114-115Micro Systèmes numéro 95 mars 1989 Page 116-117Micro Systèmes numéro 95 mars 1989 Page 118-119Micro Systèmes numéro 95 mars 1989 Page 120-121Micro Systèmes numéro 95 mars 1989 Page 122-123Micro Systèmes numéro 95 mars 1989 Page 124-125Micro Systèmes numéro 95 mars 1989 Page 126-127Micro Systèmes numéro 95 mars 1989 Page 128-129Micro Systèmes numéro 95 mars 1989 Page 130-131Micro Systèmes numéro 95 mars 1989 Page 132-133Micro Systèmes numéro 95 mars 1989 Page 134-135Micro Systèmes numéro 95 mars 1989 Page 136-137Micro Systèmes numéro 95 mars 1989 Page 138-139Micro Systèmes numéro 95 mars 1989 Page 140-141Micro Systèmes numéro 95 mars 1989 Page 142-143Micro Systèmes numéro 95 mars 1989 Page 144-145Micro Systèmes numéro 95 mars 1989 Page 146-147Micro Systèmes numéro 95 mars 1989 Page 148-149Micro Systèmes numéro 95 mars 1989 Page 150-151Micro Systèmes numéro 95 mars 1989 Page 152-153Micro Systèmes numéro 95 mars 1989 Page 154-155Micro Systèmes numéro 95 mars 1989 Page 156-157Micro Systèmes numéro 95 mars 1989 Page 158-159Micro Systèmes numéro 95 mars 1989 Page 160-161Micro Systèmes numéro 95 mars 1989 Page 162-163Micro Systèmes numéro 95 mars 1989 Page 164-165Micro Systèmes numéro 95 mars 1989 Page 166-167Micro Systèmes numéro 95 mars 1989 Page 168-169Micro Systèmes numéro 95 mars 1989 Page 170-171Micro Systèmes numéro 95 mars 1989 Page 172-173Micro Systèmes numéro 95 mars 1989 Page 174-175Micro Systèmes numéro 95 mars 1989 Page 176-177Micro Systèmes numéro 95 mars 1989 Page 178-179Micro Systèmes numéro 95 mars 1989 Page 180-181Micro Systèmes numéro 95 mars 1989 Page 182-183Micro Systèmes numéro 95 mars 1989 Page 184-185Micro Systèmes numéro 95 mars 1989 Page 186-187Micro Systèmes numéro 95 mars 1989 Page 188-189Micro Systèmes numéro 95 mars 1989 Page 190-191Micro Systèmes numéro 95 mars 1989 Page 192-193Micro Systèmes numéro 95 mars 1989 Page 194-195Micro Systèmes numéro 95 mars 1989 Page 196-197Micro Systèmes numéro 95 mars 1989 Page 198-199Micro Systèmes numéro 95 mars 1989 Page 200