zweidimensionale Felder kopieren ?????

Wenns daran liegt, dass dein Feld leer ist, kannst du dieses ja vorher überprüfen.

Das würde gehen mit:

IF NOT (VARSTATE("TOOL_NAME[x,y]") == #INITIALIZED) THEN
 -> mach was anderes als kopieren
ENDIF

Das wird auch nicht unbedingt funktionieren,
da der Text auch bei initialisierter Variable nicht immer gleich lang ist.

Schau mal in dem Thread http://www.roboterforum.de/rob…te_schreiben-t1526.0.html
nach, da ist eine Lösung mit SWRITE skizziert. (Ist etwas abhängig von der Versionsnummer des Betriebssystems).

Es ist doch nun letztendlich egal, ob der Text nun gleich lang ist oder nicht.

Angenommen, er initialisiert sein Tool_Data nur bis zum Buchstaben 3.

Dann wird der Rest halt nicht kopiert. Abc wird danach natürlich genau so wenig initialisiert sein, aber er könnte ja einfach hingehen und für jeden nicht initialisierten Char einfach ein Leerzeichen einfügen. Dann ist nach dem Kopiervorgang in abc auf jeden Fall jeder Char initialisiert und belegt.

Müsste es nicht reichen abc[,]=TOOL_NAME[,] zu schreiben?
Ich meine ich habe sowas schonmal Programmiert. War zwar kein kopieren im direkten Sinn. Habe so ein Aarry als OUT Parameter einer Funktion übergeben.
Aber das ist ja auch nichts anderes wie kopieren. Im weiten Sinne.
Dann müsste es doch auch egal sein, ob die einzelnen Felder initialisiert sind.

Das Problem liegt darin, dass KUKA das Auslesen einer nicht initialisierten Variable nicht zulässt, bzw. zur Laufzeit einen Fehler wirft.

Demnach müsste eigentlich das auslesen eines kompletten Feldes mit nicht initialisierten Werten auch zu einem Fehler führen müsste.

P.S.

Bist du der DOS 6.22, der sich auch im SPS-Forum herumtreibt?

Grubba Ja, ab und an mal. :angel:

Arrays sind schon zum Teil sehr nervig beim KUKA. Muss da auch jedesmal rumprobieren bis das so geht, wie ich es gerne hätte.
Was auch nervt, dass er keine dynamischen kann. bzw. wenn er es kann, hat es bei mir nie geklappt.

Aber bei der S7 sind Arrays noch schlimmer.

Hallo,

Hat dies jemand schon so probiert????

DECL INT x,y
DECL CHAR abc[16,24]

For x=1 to 16
For y=1 to 24
ON_ERROR_PROCEED
abc[x,y]=TOOL_NAME[x,y]
IF $ERR.NUMBER == 0 THEN
;alles ok!
ELSE
ERR_CLEAR($ERR)
EXIT
ENDIF
Endfor
Endfor

ON_ERROR_PROCEED umgeht den Fehler auf der nächstfolgenden Zeile.
Sollte ab V5.5 gehen.

Gruss SJX