FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC

Développement d'applications avec le langage Panoramic
 
AccueilAccueil  FAQFAQ  RechercherRechercher  S'enregistrerS'enregistrer  MembresMembres  GroupesGroupes  Connexion  
Derniers sujets
» TourD Version 2
par Minibug Aujourd'hui à 1:50

» La métamatière et le peuple
par JL35 Hier à 21:18

» Capture d'une zone de l'écran total
par JL35 Hier à 18:41

» Logiciel de soutien scolaire en langues.
par Pedro Alvarez Hier à 11:49

» qui peut résoudre mon prb
par pascal10000 Jeu 16 Nov 2017 - 17:30

» évènements et objets système : listage automatique
par Jean Claude Jeu 16 Nov 2017 - 11:15

» Panoramic et la reconnaissance vocale.
par papydall Jeu 16 Nov 2017 - 3:45

» Bizzarerie dans Edge
par Marc 37 Mer 15 Nov 2017 - 17:45

» KGF_dll - nouvelles versions
par Klaus Mer 15 Nov 2017 - 2:08

» Analyser un code Panoramic
par JL35 Lun 13 Nov 2017 - 18:38

» Un bonjour en passant...
par Minibug Dim 12 Nov 2017 - 19:57

» mise a jour calculatrice
par joeeee2017 Dim 12 Nov 2017 - 4:20

» comment accèder à l'heure et à la date d'un fichier
par Klaus Sam 11 Nov 2017 - 0:53

» Compilateur FBPano
par Jicehel Mer 8 Nov 2017 - 15:22

» Mon adresse e-mail
par treehouse Mer 8 Nov 2017 - 14:36

Navigation
 Portail
 Index
 Membres
 Profil
 FAQ
 Rechercher
Rechercher
 
 

Résultats par :
 
Rechercher Recherche avancée
Novembre 2017
LunMarMerJeuVenSamDim
  12345
6789101112
13141516171819
20212223242526
27282930   
CalendrierCalendrier

Partagez | 
 

 Système de fichiers

Voir le sujet précédent Voir le sujet suivant Aller en bas 
AuteurMessage
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Système de fichiers   Mar 7 Aoû 2012 - 21:08

@ Klaus

Entschuldige das ich dein Forum benutze.
Aber sonst wird es nach einiger Zeit von Jack gesperrt.

@ all Panoramic's

Ich habe jetzt mein Programm als Rahmen fertig.
Jetzt geht es um Dateiverwaltung.
Dabei ist eine Struktur mit 4 Ebenen nötig.
Grafik der Struktur ist im Programm enthalten.
Mir geht es noch nicht um Opimierung.
Meine Frage ist ob dieser Ansatz richtig ist.

Das Programm ist nicht ausgereift.
Die Stop Befehle sind gewollt.
Wenn noch Fragen sind bitte stellen.

Vor dem Start Disk einstellen.
Achtung das Programm schreibt ein Verzeichnis.

Danke für Eure Meinung.
Severin


I'm ready now, as my program framework.
Now it comes to file management.
Here, a structure with 4 levels is necessary.
Graphic of the structure is included in the program.
I am still not Opimierung.
My question is whether this approach is correct.
The program is not fully developed.
The stop commands are intended.
If there are any questions please ask.

Set before the start of disc.
Note, the program writes a directory.

Thanks for your opinion.
Severin

Je suis prêt maintenant, comme mon programme-cadre.
Maintenant il s'agit de la gestion des dossiers.
Ici, une structure à 4 niveaux est nécessaire.
Graphique de la structure est inclus dans le programme.
Je ne suis pas encore optimisé.
Ma question est de savoir si cette approche est correcte.
Le programme n'est pas complètement développé.
Les commandes d'arrêt sont destinés.
Si vous avez des questions s'il vous plaît demander.

Fixé avant le début de disque.
Remarque, le programme écrit dans un répertoire.

Merci pour votre avis.
Severin






Code:
' *** 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
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10112
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Système de fichiers   Mar 7 Aoû 2012 - 22:05

Ich habe ein paar Kommentare in Zeilen 50 bis 55 eingefügt.

Im Grossen und Ganzen alles in Ordnung, ein kleines technisches Problem, und noch viel Optimisierungarbeit. Aber sehr vielversprechend.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Severin



Nombre de messages : 547
Localisation : Braunschweig / Germany
Date d'inscription : 13/12/2010

MessageSujet: Re: Système de fichiers   Mar 7 Aoû 2012 - 22:38

@ Klaus

Entschuldige, ich sehe keine Kommentare.

Oder gibt es noch andere Möglichkeiten.

Severin
Revenir en haut Aller en bas
Voir le profil de l'utilisateur
Klaus

avatar

Nombre de messages : 10112
Age : 68
Localisation : Ile de France
Date d'inscription : 29/12/2009

MessageSujet: Re: Système de fichiers   Mar 7 Aoû 2012 - 23:11

Oh, tut mir Leid - Manipulationsfehler !

1. Du testest zwar die Existenz des Verzeichnisse, aber in Abwesenhet erstellst Du es direkt, in einem Befehl, mit seinem Unterverzeichnis. Dies geht in Panoramic nicht. Du kannst nur ein Verzeichnis eine Stufe nach unten erstellen. Dort musst Du dann weiter das nächste Unterverzeichnis erstellen. So etwa (in Pseudo-Basic):
Code:

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

2. Du könntest "PC-Zeitanalyse\00_PC_Zeit_DATEN\" in eine Variable ablegen, so wie rep_a$.

3. Das Programm kann durch strukturierte Programmierung erheblich optimisiert werden.
Revenir en haut Aller en bas
Voir le profil de l'utilisateur http://klauspanoramic.comxa.com/index.html
Contenu sponsorisé




MessageSujet: Re: Système de fichiers   

Revenir en haut Aller en bas
 
Système de fichiers
Voir le sujet précédent Voir le sujet suivant Revenir en haut 
Page 1 sur 1

Permission de ce forum:Vous ne pouvez pas répondre aux sujets dans ce forum
FORUM DE DISCUSSION SUR LE LANGAGE PANORAMIC :: Activité des sites créés par les Panoramiciens. :: Le site de Klaus-
Sauter vers: