Deklaration Zeichenketten

In der Doku steht nichts über eine Beschränkung der Grösse von Arrays. Meckert der tatsächlich schon bei 199 Einträgen?
Dann wäre die Lösung ein Array mit mehr Dimensionen, zB 64*64, das hat ebenfalls 4096 Einträge, nur eben zweidimensional. Dann müsstest Du halt ein wenig seltsam zählen:

TEST_SATZ[1,1]={NAME[] "Test       1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0}
TEST_SATZ[1,2]={NAME[] "Test       1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0}
.
.
.
TEST_SATZ[1,64]={NAME[] "Test       1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0}


TEST_SATZ[2,1]={NAME[] "Test       1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0}
TEST_SATZ[2,2]={NAME[] "Test       1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0}
.
.
.
TEST_SATZ[2,64]={NAME[] "Test       1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0}

Macht den Code zwar nicht gerade einfacher, aber das sollte dann ja gehen. Es sei denn, die maximale Gesamtzahl aller Einträge wäre 199...

Zum abfragen wären das dann zwei Schleifen ineinander, die beide von i=1 to 64 bzw von j=1 to 64 zähelen. An der Stelle wärs dann nicht so schlimm.

warum du die Fehlermeldung gerade bei 199 bekommst liegt wahrscheinlich an der Grösse der config.dat. Um das zu untersuchen musst Du sie mir schicken. Auf jeden Fall wirst Du nie 4096 Einträge machen können.
Vorschlag: den String mit SWRITE im Programm zusammenbauen

Ich hab eben mal getestet, ich konnte nen Array von der Grösse 4096 deklarieren. So weit ich weiss wird dabei auch direkt der Speicherplatz reserviert. Versuch evtl mal den String weg zu lassen. Der enthält ja als einzige Information den Index ins array, welcher ja schon kurz davor steht.
Ohne String sinds ja nur noch nen paar Byte pro Eintrag.

Zitat von Handschuh #33

Ich bekomme eine externe Programmanwahl zwischen 1 und 4096 und dachte mir, da ich damit je nach Teil immer verschiede Positionen anfahren muß und keine Übereinstimmung in allen Positionen habe, mache ich es mir so einfach! :-|

Kann mir kaum vorstellen, daß es sich um 4096 verschiedene Teile handelt. Füg doch noch einen INT für Programmnummer hinzu. Sagen wir für 20 verschieden Produkte oder Teile:

STRUC TESTTYP CHAR NAME[12],REAL ABNAHME_POS,H,ABGABE_POS,INT ProgNr

;===== TESTDATEN
INT AKT_TEST=1
INT AKT_TEST_NR=1
INT NUMMER=1

INT ANZ_DATEN=20
DECL TESTTYP TEST_SATZ[20]

TEST_SATZ[1]={NAME[] "Test 1",ABNAHME_POS 0.0,ABGABE_POS,H 130.0,Prognr 1}
TEST_SATZ[2]={NAME[] "Test 2",ABNAHME_POS 0.0,ABGABE_POS,H 130.0,Prognr 64}
TEST_SATZ[3]={NAME[] "Test 2",ABNAHME_POS 0.0,ABGABE_POS,H 130.0,Prognr 4}.
.
.
TEST_SATZ[20]={NAME[] "Test 20",ABNAHME_POS 0.0,ABGABE_POS 130.0,Prognr 4096}

Im Hauptprogramm schreibst du dann:

INT i ;Schleifenzähler (Muß in den Deklarationsteil)

AKT_TEST=0

For i = 1 to ANZAHL_DATEN
If TEST_SATZ[i].Prognr==SPSProgNr then ;SPSProgNr= Übergebene Programmnummer
AKT_TEST=i
Exit
Endif
endfor

If AKT_TEST==0 then
;Keine passende Programmnummer Fehler
HALT
;Mach irgendwas...
Endif

Dazu mußt du natürlich die verschiedenen Programmnummern kennen. Aber es spart 'ne Menge Datensätze und die Config.dat läßt sich auch schneller öffnen.
Das ganze ist auch übersichtlicher.

Hallo, meinen Vorschlag mit dem SWRITE kannst Du in den Müll werfen - war da auf einem falschen Dampfer - habs aber jetzt kapiert.
Das Problem ist, das eine Variable(struktur) nur 32 kB gross sein kann.
Da muss eine andere Lösung her

Zitat von Handschuh #33

Er hat zwar mit der Intergervariable nicht gemeckert, wollte aber nicht durchlaufen und den STEP musste ich noch angeben!

Hmmmm, ohne Angabe ist der STEP IMO immer 1. Also, bei mir geht's ohne STEP

Schön, dass das so klappt,
aber manchmal braucht man dann doch etwas grössere
Arrays.

Hatte da auch mal eine Aufgabe mit einem
20000 Punkte Array gelöst.

Dazu die Punkte in mehrere .DAT-Dateien aufgeteilt,
in einem anderen dann importiert. Und zwei Routinen
geschrieben, die dann jeweils den Index und den Namen
des entsprechenden Arrays ermitteln und darauf zugreifen.

Hier das etwas gekürze Beispiel.

DEFDAT  BAHNEN1 PUBLIC


IMPORT E6POS Pfad8[500] IS /R1/BAHNEN2..Pfad8
IMPORT E6POS Pfad9[500] IS /R1/BAHNEN2..Pfad9
IMPORT E6POS Pfad10[500] IS /R1/BAHNEN2..Pfad10
IMPORT E6POS Pfad11[500] IS /R1/BAHNEN2..Pfad11
IMPORT E6POS Pfad12[500] IS /R1/BAHNEN2..Pfad12
IMPORT E6POS Pfad13[500] IS /R1/BAHNEN2..Pfad13
IMPORT E6POS Pfad14[500] IS /R1/BAHNEN2..Pfad14




DECL E6POS pfad1[500]
pfad1[1]={x 0.0,y 0.0,z 0.0,a 0.0,b 0.0,c 0.0,s 0,t 0,e1 0.0}
pfad1[2]={x 0.0,y 0.0,z 0.0,a 0.0,b 0.0,c 0.0,s 0,t 0,e1 0.0}
..
pfad1[500]={x 0.0,y 0.0,z 0.0,a 0.0,b 0.0,c 0.0,s 0,t 0,e1 0.0}


DECL E6POS pfad2[500]
pfad2[1]={x 0.0,y 0.0,z 0.0,a 0.0,b 0.0,c 0.0,s 0,t 0,e1 0.0}
...
enddat

eine zweite enstsprechende bahnen2.dat

Und im .SRC dazu:

Global DEFFCT e6pos GETARRAY(INDEX :IN)


DECL INT INDEX


DECL e6pos ANSWER
DECL INT INDEX1
DECL INT INDEX2
; Modulodivision
INDEX1=INDEX/500
INDEX2=INDEX-INDEX1*500+1


SWITCH  INDEX1
 CASE 0
  ANSWER=pfad1[INDEX2]
 CASE 1
  ANSWER=pfad2[INDEX2]


...


 ENDSWITCH
 RETURN  (ANSWER)
ENDFCT


GLOBAL DEF SETARRAY (INDEX :IN,POINT :IN )


DECL INT INDEX
DECL E6POS POINT


DECL INT INDEX1
DECL INT INDEX2
; Modulodivision
INDEX1=INDEX/1000
INDEX2=INDEX-INDEX1*1000+1


SWITCH  INDEX1
 CASE 0
  pfad1[INDEX2]=POINT
 CASE 1
  pfad2[INDEX2]=POINT
...
ENDSWITCH


END

Und Tschüss.