Système de fichiers

' *** pro Vorgang eine Tabelle mit 99 Teilvorgängen und 20 Vorgangsstufen ******
' ***
'
'
'
'  XXX-XXX-XXX-XXX                                                              "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_STRUKTUR.TXT"
'  --- --- --- ---
'  I  I  I  I
'  I  I  I  I
'  ------------------>  001 bis XXXX  Planzeitbereich -- Werk XX              "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_BEREICH.TXT"
'      I  I  I
'      I  I  I
'      -------------->  001 bis XXXX  Vorgang        -- Abteilung XX        "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_VORGANG.TXT"
'          I  I
'          I  I
'          ---------->  001 bis XXXX  Teilvorgng      -- Arbeitsplatz XX      "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_Teil_VORGANG.TXT"
'              I
'              I
'              ------>  001 bis XXXX  Vorgangs-Stufe  -- Tätigkeit XX
'
'
'
'
'
'
'
'
'
' ******************************************************************************
' *** DATEIEN IN / AUS DISK SPEICHER / LADEN ***********************************
DIM DIR_A$
'  DIR_A$ = "c:\"
'  DIR_A$ = "d:\"
'  DIR_A$ = "e:\"
'  DIR_A$ = "f:\"
    DIR_A$ = "g:\"
'  DIR_A$ = "h:\"
'
' ******************************************************************************
'
Label Verzeichnis
Label Weiter_PLZ_Bereich
Label Weiter_PLZ_Vorgang
Label Weiter_PLZ_Teil_Vorgang
'
' *** Unterverzeichnisse prüfen / erstellen ************************************
'
if DIR_EXISTS (DIR_A$+"PC-Zeitanalyse\00_PC_Zeit_DATEN") = 1 then goto Verzeichnis
'
DIR_MAKE DIR_A$+"PC-Zeitanalyse\00_PC_Zeit_DATEN"
'
' *** Form 0000 ****************************************************************
Verzeichnis:
Width  0,screen_x/2
Height 0,screen_y-140
color  0, 255,255,255
'
' *** Größe der Stammdaten Datei definieren ************************************
'
DIM PLZ_01% :PLZ_01% = 04      :' Anzahl Planzeitbereiche
DIM PLZ_02% :PLZ_02% = 05      :' Anzahl Vorgänge pro Planzeitbereich
DIM PLZ_03% :PLZ_03% = 10      :' Anzahl Teilvorgänge pro Vorgang
DIM PLZ_04% :PLZ_04% = 20      :' Anzahl Vorgangsstufen pro Teilvorgang
DIM PLZ_05%
    PLZ_05% = (PLZ_01% * PLZ_02% * PLZ_03% * (PLZ_04%+1)) + (PLZ_04%+1) +010
'
DIM PLZ_Stufe00$(PLZ_05%)          :' PLZ_03% bestimmt die Anzahl Zeilen
' *** Dimensionierung der Zählvariablen ****************************************
Dim i%,j%,k%,l%,m$
' *** Platzhalter
Dim Leer$
    Leer$ = String$(80,"#")
' *** Hilfsvarianle
DIM b$(9)
'
' *** Planzeitbereich definieren ***********************************************
'
DIM PLZ_Bereich1$(PLZ_01%)
DIM PLZ_Bereich2$(PLZ_01%)
DIM PLZ_Bereich3$
DIM PLZ_Bereich3%
'
' *** Vorgänge für Planzeitbereiche definieren *********************************
'
DIM PLZ_Vorgang1$(PLZ_02%)
DIM PLZ_Vorgang2$(PLZ_02%)
DIM PLZ_Vorgang3$
DIM PLZ_Vorgang3%
'
' *** Teilvorgänge für Planzeitbereiche definieren *****************************
'
DIM PLZ_Teil_Vorgang1$(PLZ_03%)
DIM PLZ_Teil_Vorgang2$(PLZ_03%)
DIM PLZ_Teil_Vorgang3$
DIM PLZ_Teil_Vorgang3%
'
' *** Texte und Werte für Planzeiten *******************************************
Dim PLZ_Stufe01$(PLZ_01%)          :' XX Planzeitbereiche
Dim PLZ_Stufe02$(PLZ_01%)          :' XX Vorgänge pro Planzeitbereich

Dim PLZ_Stufe03$(PLZ_01%,PLZ_02%)  :' XX Teilvorgänge pro Vorgang
Dim PLZ_Stufe04$(PLZ_01%,PLZ_02%)  :' XX VorgangsStufen pro Teilvorgang
'
Dim PLZ_Stufe05$(PLZ_02%,PLZ_03%)  :' Nummer Teilvorgänge pro Vorgang
Dim PLZ_Stufe06$(PLZ_02%,PLZ_03%)  :' Name  Teilvorgänge pro Vorgang

DIM PLZ_Stufe07$(PLZ_03%,PLZ_04%)  :' Nummer VorgangsStufen pro Teilvorgang
DIM PLZ_Stufe08$(PLZ_03%,PLZ_04%)  :' Name  VorgangsStufen pro Teilvorgang
'
DIM PLZ_Stufe09$(PLZ_03%,PLZ_04%)  :' Suchnummer erstellen
'
DIM PLZ_Stufe10$(PLZ_03%,PLZ_04%)
'
DIM PLZ_Stufe11$(PLZ_03%,PLZ_04%)
'
DIM PLZ_Stufe12$(PLZ_03%,PLZ_04%)
'
DIM PLZ_Stufe13$(PLZ_03%,PLZ_04%)
'
' 1. Einflußgröße **************************************************************
DIM PLZ_Stufe30$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe31$(PLZ_03%,PLZ_04%)  :' WERT
DIM PLZ_Stufe32$(PLZ_03%,PLZ_04%)  :' Einheit
'
' 2. Einflußgröße **************************************************************
DIM PLZ_Stufe40$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe41$(PLZ_03%,PLZ_04%)  :' WERT
DIM PLZ_Stufe42$(PLZ_03%,PLZ_04%)  :' Einheit
'
' 3. Einflußgröße **************************************************************
DIM PLZ_Stufe50$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe51$(PLZ_03%,PLZ_04%)  :' WERT
DIM PLZ_Stufe52$(PLZ_03%,PLZ_04%)  :' Einheit
'
' ZA-DATEN *********************************************************************
DIM PLZ_Stufe80$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe81$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe82$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe83$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe84$(PLZ_03%,PLZ_04%)
DIM PLZ_Stufe85$(PLZ_03%,PLZ_04%)
'
DIM PLZ_Stufe99$(PLZ_03%,PLZ_04%)
' *** Dimensionierung der Zählvariablen ****************************************

Dim m%
    m% = 1
DIM C$
    C$ = Str$(PLZ_05%)
'
' ******************************************************************************
' ******************************************************************************
' *** Bereiche für Planzeitbereiche füllen *************************************
'
PLZ_Bereich2$(01)  = "WERK 01"
if  PLZ_01% = 01 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(02)  = "WERK 02"
if  PLZ_01% = 02 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(03)  = "WERK 03"
if  PLZ_01% = 03 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(04)  = "WERK 04"
if  PLZ_01% = 04 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(05)  = "WERK 05"
if  PLZ_01% = 05 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(06)  = "WERK 06"
if  PLZ_01% = 06 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(07)  = "WERK 07"
if  PLZ_01% = 07 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(08)  = "WERK 08"
if  PLZ_01% = 08 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(09)  = "WERK 09"
if  PLZ_01% = 09 Then goto Weiter_PLZ_Bereich
PLZ_Bereich2$(10)  = "WERK 10"
'
' *** Datei Planzeitbereich öffnen *********************************************
Weiter_PLZ_Bereich:
file_open_write 701,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_BEREICH.TXT"
'
' ***  Datei Planzeitbereich - Dateikopf 10 Zeilen schreiben *******************
'
file_writeln 701,"Anzahl Planzeitbereiche"
file_writeln 701,PLZ_01%
file_writeln 701,Leer$
file_writeln 701,Leer$
file_writeln 701,Leer$
file_writeln 701,Leer$
file_writeln 701,Leer$
file_writeln 701,Leer$
file_writeln 701,Leer$
file_writeln 701,Leer$
'
' ***  Datei Planzeitbereich - Dateikopf auf Form schreiben zur Kontrolle ******
'
print
print  "-- 701 -- Inhalt Datei PLZ_BEREICH.TXT anzeigen ---"
print
print  "Anzahl Planzeitbereiche"
print  PLZ_01%
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
'
' ***  Datei Planzeitbereich - Daten in Datei schreiben ************************
'
For i% = 1 TO PLZ_01%
'
PLZ_Bereich1$(i%)  = RIGHT$("000"+Str$(i%),3)
print PLZ_Bereich1$(i%)+" "+PLZ_Bereich2$(i%)
'
file_writeln 701,PLZ_Bereich1$(i%)
file_writeln 701,PLZ_Bereich2$(i%)
'
Next i%
'
' *** Datei Planzeitbereich schließen nach Daten schreiben *********************
file_close 701
'
stop
cls
' ******************************************************************************
' ******************************************************************************
' *** Vorgänge für Planzeitbereiche füllen *************************************
'
PLZ_Vorgang2$(01)  = "Abteilung 01"
if  PLZ_02% = 01 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(02)  = "Abteilung 02"
if  PLZ_02% = 02 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(03)  = "Abteilung 03"
if  PLZ_02% = 03 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(04)  = "Abteilung 04"
if  PLZ_02% = 04 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(05)  = "Abteilung 05"
if  PLZ_02% = 05 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(06)  = "Abteilung 06"
if  PLZ_02% = 06 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(07)  = "Abteilung 07"
if  PLZ_02% = 07 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(08)  = "Abteilung 08"
if  PLZ_02% = 08 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(09)  = "Abteilung 09"
if  PLZ_02% = 09 Then goto Weiter_PLZ_Vorgang
PLZ_Vorgang2$(10)  = "Abteilung 10"
'
' *** Datei Vorgang öffnen und Daten schreiben *********************************
Weiter_PLZ_Vorgang:
'
file_open_write 702,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_VORGANG.TXT"
'
' ***  Datei Vorgang - Dateikopf 10 Zeilen schreiben ***************************
'
file_writeln 702,"Anzahl Vorgänge"
file_writeln 702,PLZ_02%
file_writeln 702,Leer$
file_writeln 702,Leer$
file_writeln 702,Leer$
file_writeln 702,Leer$
file_writeln 702,Leer$
file_writeln 702,Leer$
file_writeln 702,Leer$
file_writeln 702,Leer$
'
' ***  Datei Vorgang - Dateikopf auf Form schreiben zur Kontrolle **************
'
print
print  "-- Inhalt Datei PLZ_VORGANG.TXT ---"
print
print  "Anzahl Teilvorgänge"
print  PLZ_02%
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
'
' ***  Datei Vorgang - Daten in Datei schreiben ********************************
'
For i% = 1 TO PLZ_02%
'
PLZ_Vorgang1$(i%)  = RIGHT$("000"+Str$(i%),3)
print PLZ_Vorgang1$(i%)+" "+PLZ_Vorgang2$(i%)
'
file_writeln 702,PLZ_Vorgang1$(i%)
file_writeln 702,PLZ_Vorgang2$(i%)
'
Next i%
'
' *** Datei Vorgang schließen nach Daten schreiben *****************************
file_close 702
'
stop
cls
' ******************************************************************************
' ******************************************************************************
' *** Teilvorgänge für Planzeitbereiche füllen *********************************
'
PLZ_Teil_Vorgang2$(01)  = "Arbeitsplatz 01"
if  PLZ_03% = 01 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(02)  = "Arbeitsplatz 02"
if  PLZ_03% = 02 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(03)  = "Arbeitsplatz 03"
if  PLZ_03% = 03 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(04)  = "Arbeitsplatz 04"
if  PLZ_03% = 04 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(05)  = "Arbeitsplatz 05"
if  PLZ_03% = 05 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(06)  = "Arbeitsplatz 06"
if  PLZ_03% = 06 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(07)  = "Arbeitsplatz 07"
if  PLZ_03% = 07 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(08)  = "Arbeitsplatz 08"
if  PLZ_03% = 08 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(09)  = "Arbeitsplatz 09"
if  PLZ_03% = 09 Then goto Weiter_PLZ_Teil_Vorgang
PLZ_Teil_Vorgang2$(10)  = "Arbeitsplatz 10"
'
' *** Datei Teilvorgang öffnen und Daten schreiben *********************************
Weiter_PLZ_Teil_Vorgang:
'
file_open_write 703,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_Teil_VORGANG.TXT"
'
' ***  Datei Teilvorgang - Dateikopf 10 Zeilen schreiben ***************************
'
file_writeln 703,"Anzahl Teil_Vorgänge"
file_writeln 703,PLZ_03%
file_writeln 703,Leer$
file_writeln 703,Leer$
file_writeln 703,Leer$
file_writeln 703,Leer$
file_writeln 703,Leer$
file_writeln 703,Leer$
file_writeln 703,Leer$
file_writeln 703,Leer$
'
' ***  Datei Teil_Vorgang - Dateikopf auf Form schreiben zur Kontrolle **************
'
print
print  "-- Inhalt Datei PLZ_Teil_VORGANG.TXT ---"
print
print  "Anzahl Teilvorgänge"
print  PLZ_03%
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
print  Leer$
'
' ***  Datei Teil_Vorgang - Daten in Datei schreiben ************************
'
'
For i% = 1 TO PLZ_03%
'
PLZ_Teil_Vorgang1$(i%)  = RIGHT$("000"+Str$(i%),3)
print PLZ_Teil_Vorgang1$(i%)+" "+PLZ_Teil_Vorgang2$(i%)
'
file_writeln 703,PLZ_Teil_Vorgang1$(i%)
file_writeln 703,PLZ_Teil_Vorgang2$(i%)
'
Next i%
'
'
file_close 703                          :' Datei Vorgang schließen
'
stop
cls
'
' ******************************************************************************
' *** Datei Struktur öffnen und Daten schreiben ********************************
'
file_open_write 700,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_STRUKTUR.TXT"
'
' ***  Datei Struktur - Dateikopf 10 Zeilen schreiben **************************
print
print  "-- Inhalt Datei PLZ_PLZ_STRUKTUR.TXT ---"
print
'
file_writeln 700,"Anzahl Zeilen"
file_writeln 700,C$
file_writeln 700,"Anzahl Spalten"
file_writeln 700,"30"
file_writeln 700,Leer$
file_writeln 700,Leer$
file_writeln 700,Leer$
file_writeln 700,Leer$
file_writeln 700,Leer$
'
' ***  Datei Struktur - Dateikopf auf Form schreiben zur Kontrolle *************
'
print "Anzahl Zeilen"
print C$
print "Anzahl Spalten"
print "30"
print Leer$
print Leer$
print Leer$
print Leer$
print Leer$
print Leer$
'
stop
'
' ******************************************************************************
' *** Datei Planzeitbereich öffnen und Daten auslesen **************************
'
file_open_read 701,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_BEREICH.TXT"
'
' *** Datei Planzeitbereich Dateikopf auslesen *********************************
'
file_readln 701,b$(1)
file_readln 701,PLZ_Bereich3$
file_readln 701,b$(1)
file_readln 701,b$(1)
file_readln 701,b$(1)
file_readln 701,b$(1)
file_readln 701,b$(1)
file_readln 701,b$(1)
file_readln 701,b$(1)
file_readln 701,b$(1)
'
PLZ_Bereich3% = VAL(PLZ_Bereich3$)
'
print PLZ_Bereich3%
'
stop
'
For i% = 1 TO  PLZ_Bereich3%

file_readln 701,PLZ_Bereich1$(i%)
file_readln 701,PLZ_Bereich2$(i%)

print PLZ_Bereich1$(i%)
print PLZ_Bereich2$(i%)



Next i%

stop
' ******************************************************************************
' *** Daten über Zählschleifen erstellen ***************************************
For i% = 1 to PLZ_01%
'
PLZ_Stufe01$(i%)    = RIGHT$("000"+Str$(i%),3)
PLZ_Stufe02$(i%)    = PLZ_Bereich2$(i%)
'
' ******************************************************************************
' *** Pro Planzeitbereich XX Vorgänge erstellen ********************************
For j% = 1 to PLZ_02%
'
PLZ_Stufe03$(i%,j%) = RIGHT$("000"+Str$(j%),3)
PLZ_Stufe04$(i%,j%) = "Vorgang"
'
' ******************************************************************************
' *** Pro Vorgang XX Teilvorgänge erstellen ************************************
For k% = 1 to PLZ_03%
'
PLZ_Stufe05$(j%,k%) = RIGHT$("000"+Str$(k%),3)
PLZ_Stufe06$(j%,k%) = "Teilvorgang"
cls
' ******************************************************************************
' *** Pro Teilvorgang XX VorgangsPLZ_Stufen erstellen **************************
For l% = 0 to PLZ_04%
'
PLZ_Stufe07$(k%,l%) = RIGHT$("000"+Str$(l%),3)
PLZ_Stufe08$(k%,l%) = "Vorgangsstufe"
'
' *** mit allen benötigten Daten pro VorgangsPLZ_Stufe *****************************
'
PLZ_Stufe09$(k%,l%) = PLZ_Stufe01$(i%)+PLZ_Stufe03$(i%,j%)+PLZ_Stufe05$(j%,k%)+PLZ_Stufe07$(k%,l%)
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe10$(k%,l%) = "Zeitwert"
if l% > 0 then PLZ_Stufe10$(k%,l%) = "0099,100"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe11$(k%,l%) = "Bezugsmenge"
if l% > 0 then PLZ_Stufe11$(k%,l%) = "00030"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe12$(k%,l%) = "Zeitart"
if l% > 0 then PLZ_Stufe12$(k%,l%) = "thb"
'
' ***********************************************************
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe30$(k%,l%) = "Einflußgrösse X1"
if l% > 0 then PLZ_Stufe30$(k%,l%) = "Gewicht in kg"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe31$(k%,l%) = "Einflußgrösse X1"
if l% > 0 then PLZ_Stufe31$(k%,l%) = "00000.000"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe32$(k%,l%) = "Einflußgrösse X1"
if l% > 0 then PLZ_Stufe32$(k%,l%) =  Str$(m%)
'
' ***********************************************************
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe40$(k%,l%) = "Einflußgrösse X2"
if l% > 0 then PLZ_Stufe40$(k%,l%) = "Gewicht in kg"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe41$(k%,l%) = "Einflußgrösse X2"
if l% > 0 then PLZ_Stufe41$(k%,l%) = "00000.000"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe42$(k%,l%) = "Einflußgrösse X2"
if l% > 0 then PLZ_Stufe42$(k%,l%) =  Str$(m%)
'
' ***********************************************************
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe50$(k%,l%) = "Einflußgrösse X3"
if l% > 0 then PLZ_Stufe50$(k%,l%) = "Gewicht in kg"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe51$(k%,l%) = "Einflußgrösse X3"
if l% > 0 then PLZ_Stufe51$(k%,l%) = "00000.000"
'
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe52$(k%,l%) =  "Einflußgrösse X3"
if l% > 0 then PLZ_Stufe52$(k%,l%) =  Str$(m%)
'
' ***********************************************************
' *** Überschrift und Daten
if l% = 0 then PLZ_Stufe80$(k%,l%) = "ZA-Nummer"
if l% > 0 then PLZ_Stufe80$(k%,l%) = "AAA.ww.87"

if l% = 0 then PLZ_Stufe81$(k%,l%) = "ZA-AA Nummer"
if l% > 0 then PLZ_Stufe81$(k%,l%) = "01S/05Z"

if l% = 0 then PLZ_Stufe82$(k%,l%) = "ZA-Datum"
if l% > 0 then PLZ_Stufe82$(k%,l%) = "03.02.2012"

if l% = 0 then PLZ_Stufe83$(k%,l%) = "Name"
if l% > 0 then PLZ_Stufe83$(k%,l%) = "Severin"

if l% = 0 then PLZ_Stufe84$(k%,l%) = "ZA-WERT05."
if l% > 0 then PLZ_Stufe84$(k%,l%) = "ZA-WERT05."

if l% = 0 then PLZ_Stufe85$(k%,l%) = "ZA-WERT06."
if l% > 0 then PLZ_Stufe85$(k%,l%) = "ZA-WERT06."


PLZ_Stufe99$(k%,l%) = Leer$
'
' ******************************************************************************

m$  =  RIGHT$("00000"+Str$(m%),5)
PLZ_Stufe00$(m%) = PLZ_Stufe01$(i%)+PLZ_Stufe03$(i%,j%)+PLZ_Stufe05$(j%,k%)+PLZ_Stufe07$(k%,l%)

print PLZ_Stufe00$(m%)
print m$
'
print PLZ_Stufe01$(i%)+" "+PLZ_Stufe02$(i%)
' print PLZ_Stufe02$(i%)
'
print PLZ_Stufe03$(i%,j%)+" "+PLZ_Stufe04$(i%,j%)
' print PLZ_Stufe04$(i%,j%)
'
print PLZ_Stufe05$(j%,k%)+" "+PLZ_Stufe06$(j%,k%)
' print PLZ_Stufe06$(j%,k%)
' ***
print PLZ_Stufe07$(k%,l%)+" "+PLZ_Stufe08$(k%,l%)
' print PLZ_Stufe08$(k%,l%)
' ***
print PLZ_Stufe09$(k%,l%)
print PLZ_Stufe10$(k%,l%)
print PLZ_Stufe11$(k%,l%)
print PLZ_Stufe12$(k%,l%)
'
print PLZ_Stufe30$(k%,l%)
print PLZ_Stufe31$(k%,l%)
print PLZ_Stufe32$(k%,l%)
'
print PLZ_Stufe40$(k%,l%)
print PLZ_Stufe41$(k%,l%)
print PLZ_Stufe42$(k%,l%)
'
print PLZ_Stufe50$(k%,l%)
print PLZ_Stufe51$(k%,l%)
print PLZ_Stufe52$(k%,l%)
'
print PLZ_Stufe80$(k%,l%)
print PLZ_Stufe81$(k%,l%)
print PLZ_Stufe82$(k%,l%)
print PLZ_Stufe83$(k%,l%)
print PLZ_Stufe84$(k%,l%)
print PLZ_Stufe85$(k%,l%)
'
print PLZ_Stufe99$(k%,l%)
' cls
'
' ** write a line in Datei *****************************************************

file_writeln 700,PLZ_Stufe00$(m%)
file_writeln 700,m$
file_writeln 700,PLZ_Stufe01$(i%)
file_writeln 700,PLZ_Stufe02$(i%)
file_writeln 700,PLZ_Stufe03$(i%,j%)
file_writeln 700,PLZ_Stufe04$(i%,j%)
file_writeln 700,PLZ_Stufe05$(j%,k%)
file_writeln 700,PLZ_Stufe06$(j%,k%)
file_writeln 700,PLZ_Stufe07$(k%,l%)
file_writeln 700,PLZ_Stufe08$(k%,l%)

file_writeln 700,PLZ_Stufe09$(k%,l%)
file_writeln 700,PLZ_Stufe10$(k%,l%)
file_writeln 700,PLZ_Stufe11$(k%,l%)
file_writeln 700,PLZ_Stufe12$(k%,l%)

file_writeln 700,PLZ_Stufe30$(k%,l%)
file_writeln 700,PLZ_Stufe31$(k%,l%)
file_writeln 700,PLZ_Stufe32$(k%,l%)

file_writeln 700,PLZ_Stufe40$(k%,l%)
file_writeln 700,PLZ_Stufe41$(k%,l%)
file_writeln 700,PLZ_Stufe42$(k%,l%)

file_writeln 700,PLZ_Stufe50$(k%,l%)
file_writeln 700,PLZ_Stufe51$(k%,l%)
file_writeln 700,PLZ_Stufe52$(k%,l%)

file_writeln 700,PLZ_Stufe80$(k%,l%)
file_writeln 700,PLZ_Stufe81$(k%,l%)
file_writeln 700,PLZ_Stufe82$(k%,l%)
file_writeln 700,PLZ_Stufe83$(k%,l%)
file_writeln 700,PLZ_Stufe84$(k%,l%)
file_writeln 700,PLZ_Stufe85$(k%,l%)
file_writeln 700,PLZ_Stufe99$(k%,l%)
'
'
m% = m% + 1    :' Zähler für lfd. Nummmer
'
Next l%        :' Schleife für Vorgangsstufen und Daten
'
Next k%        :' Schleife für Teilvorgänge
'
Next j%        :' Schleife für Vorgänge
'
Next i%        :' Schleife für Planzeitbereiche
'
file_close 700  :' Datei schließen
'
cls
'
stop
'
' ******************************************************************************
' *** Stammdaten Datei lesen ***************************************************
' ******************************************************************************

' dim b$(2)
' dim b%(2)

' *** open a text file for reading *********************************************
file_open_read 700,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_STRUKTUR.TXT"
'
' *** Datei Zeilen und Spalten auslesen ****************************************
file_readln 700,b$(1)
file_readln 700,b$(2)
'
print b$(1)
print b$(2)
'
' b%(2) = Val(b$(2))
'
dim a$(PLZ_03%,30)
'
stop
'
cls
' *** print all its lines ******************************************************
while file_eof(700) <> 1
'
For i% = 1 to PLZ_03%-2
'
For j% = 1 to 30
'
file_readln 700,a$(i%,j%)
'
' print a$(i%,j%)
'
print mid$(a$(i%,j%),24,20)
'
next j%
pause 9
cls
'
next i%
'
end_while
'
file_close 700
'
print a$(PLZ_03%-2,30)
'
Print "fertig"

stop
'
' ******************************************************************************
' open a text file for writing after its last line


file_open_append 700,DIR_A$ + "PC-Zeitanalyse\00_PC_Zeit_DATEN\PLZ_STRUKTUR.TXT"


' write a line


file_writeln 700,"Hello !"


' close it


file_close 700

wenn Verzeichnis nicht existiert dann Verzeichnis erstellen.
wenn Verzeichnis\Unterverzeichnis nicht existiert dann Verzeichnis\Unterverzeichnis erstellen.
wenn Verzeichnis\Unterverzeichnis\Unterverzeichnis nicht existiert dann Verzeichnis\Unterverzeichnis\Unterverzeichnis erstellen.
...usw