Domino 9 und frühere Versionen > ND9: Entwicklung

Zwei Items mit mehreren Werten auslesen (Array notwendig? Index?)

<< < (2/3) > >>

AlexZX:

--- Code: ---wert = NotesDocument.Abmessungen(ArrayGetIndex(NotesDocument.Typ, "Regal3", 0))
--- Ende Code ---

koehlerbv:
Das funktioniert aber nur dann, wenn man vorher sicher weiss, dass "Regal" im Item "Typ" vorhanden ist. Damit schliesst sich dies als alleiniger Code aus.

Peter Klett:
Ich nehme für sowas gerne Listen.


--- Code: ---'Liste einmalig aufbauen
Dim regale List As String
For i = 0 To Ubound (doc.Typ)
   regale (doc.Typ (i)) = doc.Abmessungen (i)
Next i

'Liste verwenden
If Iselement (regale ("Regal3")) Then
   wert = regale ("Regal3")
End If

--- Ende Code ---

Frank_B:
danke an alle hier.

U.a. die Tipps mit dem "Ubound" waren sehr hilfreich, da mir das ja auf einfachste Weise die Gesamtanzahl der Werte im Item zurückgibt (bei 0 beginnend, also -1) und mit ner for-Schleife kann ich ja dann suchen und finden.

In meiner Funktion fürs Exiting läufts nun:

const f5 = "r_art_"

     For i = 0 To UBound (pdoc.typ)
   if pdoc.typ(i) = uidoc.FieldGetText(f5+Cstr(val02)) Then
     Print pdoc.abmessungen(i)   '<- hier stehen die gesuchten Abmessungen
        End If
     Next i

Der "Ubound" war mir neu, noch nie verwendet  :D

koehlerbv:
Warum machst Du nach dem
       If pdoc.typ (i) = uidoc.FieldGetText (f5 + Cstr (val02))
noch weiter mit der Schleife? Hier kann doch mit Exit For leise Servus gesagt werden  ;)

Bernhard

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete