ITUG JOUR FIXE 05

2021-06-30 ZOOM-Universe

ITUG Jour Fixe 05

Im- und Export von Tabellenstrukturen

Von EXCEL zu TUSTEP und retour

Präsentation https://itug.github.io/ITUGJF05
Daten https://github.com/ITUG/ITUGJF05
Download Präsentation und Daten (zip)

Thomas Kollatz @kol_t
CC-BY 4.0

01: von EXCEL zu TUSTEP

CSV als Exportformat

CSV und TUSTEP

Beim Export aus Excel ist als Trennzeichen zwischen Spalten das Semikolon ; festgelegt
Spalten, die intern Semikola verwenden, werden mit dem Textqualifizierer" umschlossen
Vorsicht Einige TUSTEP-Zeichen verwenden das Semikolon: #.; #; %;

Arbeiten mit CSV-Dateien

$$ MODE TUSCRIPT,{}
csv="sprueche.csv"
path2csv=FULL_NAME (TUSTEP,csv,-std-)
status=READ (path2csv,daten,UTF8)
IF (status!="OK") THEN 
 PRINT/ERROR status
 STOP
ENDIF

MODE DATA
$$ BUILD S_TABLE trenner=*
||"*"|%;|#.;|#;|#."||
|;|

$$ MODE STATEMENT
LOOP/CLEAR zeile=daten
 x=SPLIT (zeile,trenner,spalte1,spalte2,spalte3)
 PRINT/COLOR:F0 spalte1,": ",spalte2," sagt: ",spalte3
 zeileneu=JOIN (spalte3,";",spalte2,spalte1)
 daten=APPEND (daten,zeileneu)
ENDLOOP

ziel="sprueche_neu.csv"
ERROR/STOP CREATE (ziel,fdf-o,-std-)

path2ziel=FULL_NAME (TUSTEP,ziel,-std-)
status=WRITE (path2ziel,daten,UTF8)
IF (status!="OK") THEN 
 PRINT/ERROR status
 STOP
ENDIF