D o m i n i q u e   G u e b e y    J u n g l e      Bazar informatique

Petit outil, affichage codes d’un caractère

Programme écrit en REXX. Fournit les valeurs hexadécimales, numériques et binaires.

/* REXX */
/* Le comportement diffère suivant la présence ou non d'un argument en entrée : 
   - avec argument : le programme est censé être lancé en "batch", appelé par un autre, 
     les informations sont transmises à l'appelant sans affichage.
   - sans argument : le programme est censé être interactif, il boucle perpétuellement
     et affiche ses résultats à l'écran.
*/
PARSE arg entree

stop = 0
caract= ''

LOOP WHILE stop = 0 & LENGTH(entree) < 2
  IF entree == "" THEN DO 
    say " Caractere ? " ; parse pull caract
    IF LENGTH(caract) > 1 THEN DO
      say 'Un seul caractere, S.V.P. !' ; say 'Only one character, please !'
      pull
      END
    ELSE DO
      IF caract \== "" THEN DO 
        say 'Hexadecimal : ' c2x(caract)
        say 'Decimal     : ' c2d(caract)
        say 'Binaire     : ' x2b(c2x(caract))
      END
    END

  END

  ELSE DO
    stop = 1
    caract = entree
    END
END

IF caract \== '' & LENGTH(caract) < 2 THEN RETURN caract c2x(caract) c2d(caract) x2b(c2x(caract))
                 ELSE RETURN
Cre : 03 avr 2017

A propos de ces pages / about these pages : http://www.dg77.net/about.htm
Gen : 21/04/2017-13:53:55,83