Tustep-Wiki

Diese Seite ist nicht editierbar. Sie können den Quelltext sehen, jedoch nicht verändern. Kontaktieren Sie den Administrator, wenn Sie glauben, dass hier ein Fehler vorliegt.
----
[[workshops:tuscript|Zurück zur Übersichtsseite - TUSCRIPT Workshops]]
----
\\ 
====== ITUG 2013, Mainz: Workshop "TUSCRIPT Freestyle" ======
- {{files_open:benutzericons:kollatz-lg.jpg?nolink&16x16|kollatz}} kollatz\\ \\ 

===== Dateizugriffe =====
==== XML-Datei in TUSTEP-Datei ausgeben ====
<code>$$ 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</code>
\\ 
==== XML-Datei in Auswahl in TUSTEP-Datei ausgeben (1) ====
 Ausgewählt werden Daten die zwischen den Tags <lg>…</lg> stehen.\\ 
<code>$$ 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</code>
\\ 
==== XML-Datei in Auswahl in TUSTEP-Datei ausgeben (2) ====
 Ausgewählt werden entities.\\ 
<code>$$ 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</code>
\\ \\ **Wird fortgesetzt.**
----
[[workshops:tuscript|Zurück zur Übersichtsseite - TUSCRIPT Workshops]]