Convertir un nombre en texte (chaîne de caractères)

Vous pouvez utiliser l'instruction WRITE pour convertir une valeur numérique en texte. Le texte peut alors être utilisé, par exemple, comme marqueur avec la fonction « Signer texte » ou « Gravure de texte ». Il peut aussi être écrit sous forme de commentaire dans la légende des pièces (en-tête).

Dans l'exemple suivant, la variable réelle RVAR est formatée sous forme de texte et ensuite stockée dans la variable TEXTVAR. Pour ce faire, un marqueur est transmis comme deuxième paramètre dans l'instruction WRITE. La ligne contenant le marqueur doit contenir l'instruction de format.

L'instruction de format comprend un texte avant la valeur numérique (« distance ») et un autre texte après (« mm »).

C     NOTE : La variable de texte TEXTVAR doit être déclarée dans l'en-tête du

C              programme !

C     CHARACTER *80 TEXTVAR

C     

C     Exemple :

C     -------------------------------

C     Convertir un nombre en texte (chaîne de caractères)

C     -------------------------------

C     Realvariable RVAR

      RVAR = 123.456

C     

C     Instruction d'écriture (écrit la valeur de RVAR comme texte dans la

C     variable TEXTVAR

      WRITE(TEXTVAR, 1001) RVAR

C     

C     Ligne avec l'instruction de format (7 chiffres avant la virgule et

C     2 chiffres après)

1001  FORMAT("distance ",F7.2," mm")

C     

C     

C     Sortie du texte formaté en CAO

      CALL PVB445 (20.0,70.0,TEXTVAR,2,20.0,0.0,IRET)

C     

C     La sortie avec l'instruction :

      WRITE(6,*)TEXTVAR

C     

C     donne : "Distance 123.46 mm"

C