ITUG 2013, Mainz: Workshop "TUSCRIPT Freestyle"

- kollatz

$$ MODE TUSCRIPT,{}
datei="urban.xml",ziel="ziel"
ERROR/STOP OPEN   (datei,READ,-std-)
ERROR/STOP CREATE (ziel,seq-o,-std-)

COMPILE
ACCESS q: READ/STREAM/UTF8   $datei s    ,a+text+e
ACCESS z: WRITE/ERASE/STREAM $ziel  s.z/u,a+text+e
 LOOP/999999
  READ/EXIT q
  ---PRINT a (LOOP einschränken)
  WRITE/ADJUST z
 ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
ENDCOMPILE

Ausgewählt werden Daten die zwischen den Tags <lg>…</lg> stehen.

$$ MODE TUSCRIPT,{}
datei="urban.xml",ziel="ziel"
ERROR/STOP OPEN   (datei,READ,-std-)
ERROR/STOP CREATE (ziel,seq-o,-std-)

BUILD S_TABLE a=":<lg*>:"
BUILD S_TABLE e=":</lg>:"

COMPILE
ACCESS q: READ/STREAM/UTF8   $datei s,a/a  +text+e/e,typ
ACCESS z: WRITE/ERASE/STREAM $ziel  s.z/u,a+text+e
 LOOP/99999
  READ/EXIT q
   IF (typ==3) THEN
    WRITE/ADJUST z
   ENDIF
 ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
ENDCOMPILE

Ausgewählt werden entities.

$$ MODE TUSCRIPT,{}
datei="urban.xml",ziel="ziel"

ERROR/STOP OPEN (datei,READ,-std-)
ERROR/STOP CREATE (ziel,seq-o,-std-)

BUILD S_TABLE stop=":^&^#*;:"

COMPILE
ACCESS q: READ/STREAM/UTF8 $datei s,a  +text/stop +e,typ
ACCESS z: WRITE/ERASE/RECORDS   $ziel  x.z/u,text
 LOOP/9999999
  READ/EXIT q
  IF (typ==4) write/NEXT z
 ENDLOOP
ENDACCESS/PRINT q
ENDACCESS/PRINT z
ENDCOMPILE

Wird fortgesetzt.

Zurück zur Übersichtsseite - TUSCRIPT Workshops