Domino 9 und frühere Versionen > ND8: Entwicklung

...wie erstellt/befüllt man ein Array ?

(1/5) > >>

Scotty67:
...also entwicklungs-flasche :P - darf ich euch wieder quälen ?

ich lese in einer while-wend schleife mit getitemvalue z.B. email Adresse heraus - das funkt !
nur auslesen ist nicht genug ich sollte die gesammelt wegschreiben weil ich diese dann in einem neuen Dokument
brauche zum erstellen des SendTo Buttons

meine frage wie lege ich das array an und wie kann ich in der schleife die
werte dort hineinschreiben


in der 2ten stufe möchte ich dieses soeben erzeugte Array an eine neues Dokument übergeben, in dem neuen
dokument sollen die einzelnen arraywerte via Checkbox im Dokument nummer B anklickbar sein.....

vIELEN dank für Euer Feedback

LG/Hannes

Peter Klett:
Hier ein paar Brocken, aus denen Du Dir das zusammenbasteln kannst:

Dim meinarray As Variant
Redim meinarray (5) '-> jetzt 6 Elemente, Element 1 = meinarray (0)
Ubound (meinarray) '-> die Obergrenze, hier also jetzt 5
Redim Preserve meinarray (6) '-> jetzt ein Element mehr, die alten Einträge bleiben erhalten (wg. Preserve)
Redim Preserve meinarray (Ubound (meinarray) + 1)'-> jetzt noch ein Element mehr, aber dynamisch
meinarray (3) = "Onkel Otto" '-> das 4. Element hat jetzt den Wert "Onkel Otto"
NotesDocument.MeinFeld = meinarray '-> MeinFeld enthält jetzt den Inhalt von meinarray, dieses Feld könntest Du als Formel für Auswahl in dem Ankreuzfeld verwenden

Damit kommst Du doch bestimmt etwas weiter, oder?

Klafu:
Eine etwas leichtere Darstellung aus der Hilfe zum Thema "Array"

Dim states(1 to 50) As String
states(1) = "Alabama"
states(2) = "Alaska"
states(3) = "Arizona"
' and so on.
Print states(2)
' Output: Alaska

Chris

Axel:

--- Zitat von: Klafu am 25.05.10 - 16:50:06 ---Dim states(1 to 50) As String

--- Ende Zitat ---

Das würde ich mir von Anfang an nicht angewöhnen. Standardmäßig fängt Notes bei 0 an, also

Dim states(3) as String

Damit legst du eine Array-Variable mit 4 (0 - 3) Elementen an.

Du machst dir und anderen das Leben dadurch nur leichter, denn jede Dokumentation und auch jede Hilfestellung, z.B. in Foren gehen davon aus.

Axel

Scotty67:
danke mal vorab - aber wie geht man an die sache ran wenn das auslesen von email adressen nicht abschätzbar ist ?
d.h. mal können es 20 mal 100 sein ?

ob die Übergabe der gesammelten Werte richtig ist ? vielleicht könnt ihr dazu noch etwas sagen ?

ich hätte mir mal folgendes zusammengestellt (das wichtigste halt)

Dim myNames () As Variant
...
in der while not schleifen
Redim Preserve myNames(arrayIndex)
myNames(arrayIndex) = emailAddress(0)
arrayIndex = arrayIndex + 1      

übergabe:
Set item = maildoc.ReplaceItemValue    ( "Empfaenger", myNames )
      

Navigation

[0] Themen-Index

[#] Nächste Seite