Autor Thema: Werte zu Array hinzufügen  (Gelesen 1528 mal)

Offline Gravedigger

  • Aktives Mitglied
  • ***
  • Beiträge: 179
  • Geschlecht: Männlich
Werte zu Array hinzufügen
« am: 23.05.03 - 13:15:08 »
Hallo,

wie kann ich einem Array einen Wert hinzufügen?
AppendToTextList -> erfolglos
array1 = array1 + wert -> erfolglos

Oder habe ich etwas falsch gemacht?


Danke
Client R 8.5.1 bis R 9.0.1 FP9 (ab Win 7 Prof.)
Server R 9.0.1 FP 6 (Win 2012 R2 Datacenter Edition x64)

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Werte zu Array hinzufügen
« Antwort #1 am: 23.05.03 - 13:28:26 »
Hi,

ist das ein dynamisches Array oder ein fest dimensioniertes ?

bei einem dynamischen geht's so

maxanzahl = Ubound(array)
Redim Preserve array(maxanzahl + 1)
array(maxanzahl+1) = wert

Bei einem festdimensionierten hast du keine Chance, wenn das Array "voll belegt ist".

Axel

Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline Gravedigger

  • Aktives Mitglied
  • ***
  • Beiträge: 179
  • Geschlecht: Männlich
Re:Werte zu Array hinzufügen
« Antwort #2 am: 23.05.03 - 13:33:11 »
Eigentlich dynamisch, ich probier mal deinen Tipp.
Client R 8.5.1 bis R 9.0.1 FP9 (ab Win 7 Prof.)
Server R 9.0.1 FP 6 (Win 2012 R2 Datacenter Edition x64)

Offline harkpabst_meliantrop

  • Senior Mitglied
  • ****
  • Beiträge: 463
  • Geschlecht: Männlich
  • I love!
    • Heute schon gelebt?
Re:Werte zu Array hinzufügen
« Antwort #3 am: 23.05.03 - 13:34:48 »
Etwas bequemer geht es, wenn man mit Listen statt mit Arrays arbeitet. Die sollen aber dem Vernehmen nach recht langsamer sein.

Offline Gravedigger

  • Aktives Mitglied
  • ***
  • Beiträge: 179
  • Geschlecht: Männlich
Re:Werte zu Array hinzufügen
« Antwort #4 am: 23.05.03 - 14:36:42 »
Funzt nicht. Fehler: Illegal Redim

Dim zahl As Integer
zahl = Ubound(viewdoc.fdAppl)
Redim Preserve viewdoc.fdAppl(zahl + 1)
viewdoc.fdAppl(zahl + 1) = appl
Client R 8.5.1 bis R 9.0.1 FP9 (ab Win 7 Prof.)
Server R 9.0.1 FP 6 (Win 2012 R2 Datacenter Edition x64)

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:Werte zu Array hinzufügen
« Antwort #5 am: 23.05.03 - 14:40:43 »
Hi,

so kann das auch nicht gehen. Du hättest dazuschreiben sollen, dass du in ein Feld den Wert hinzufügen möchtest.

Das sollte so gehen:

...
Set item = viewdoc.GetFirstItem( "viewdoc" )
Call item.AppendToTextList( "neuer Wert" )
...
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline Gravedigger

  • Aktives Mitglied
  • ***
  • Beiträge: 179
  • Geschlecht: Männlich
Re:Werte zu Array hinzufügen
« Antwort #6 am: 23.05.03 - 14:49:28 »
Danke. Es funktioniert.  :D
Client R 8.5.1 bis R 9.0.1 FP9 (ab Win 7 Prof.)
Server R 9.0.1 FP 6 (Win 2012 R2 Datacenter Edition x64)

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz