Zahl in Text (String) umwandeln

Mit der WRITE-Anweisung kann ein Zahlenwert in einen Text umgewandelt werden. Der Text kann dann z.B. als Markierung mit der Funktion "Text Signieren" oder "Text Gravur" verwendet werden. Oder er kann als Bemerkung in die Teile-Legende (Header) geschrieben werden.

Im folgenden Beispiel wird die Realvariable RVAR als Text formatiert und dann in die Variable TEXTVAR gespeichert. Dazu wird in der WRITE-Anweisung als zweiter Parameter eine Sprungmarke übergeben. In der Zeile mit der Sprungmarke muss sich die Formatanweisung befinden.

In der Formatanweisung wird noch ein Text vor den Zahlenwert geschrieben ("Abstand ") und ein weiterer Text dahinter (" mm").

C     HINWEIS: Die Textvariable TEXTVAR muss im Programmkopf deklariert

C              werden!

C     CHARACTER *80 TEXTVAR

C     

C     Beispiel:

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

C     Zahl in Text (String) umwandeln

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

C     Realvariable RVAR

      RVAR = 123.456

C     

C     Write-Anweisung (schreibt den Wert von RVAR als Text in die

C     Variable TEXTVAR

      WRITE(TEXTVAR, 1001) RVAR

C     

C     Zeile mit Formatanweisung (7 Stellen vor dem Komma und

C     2 Stellen dahinter)

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

C     

C     

C     Formatierten Text als CAD ausgeben

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

C     

C     Die Ausgabe mit der Anweisung:

      WRITE(6,*)TEXTVAR

C     

C     ergibt: "Abstand 123.46 mm"

C