Domino 9 und frühere Versionen > ND6: Entwicklung

Mehrere Werte in ein Feld schreiben

<< < (2/2)

Axel:
Sorry.   :-\  So kann das auch nicht gehen

...
Forall o In rt.EmbeddedObjects
                                Redim Preserve sizes(idx)
                                sizes(idx) = o.Filesize
                                idx = idx + 1
End Forall
...

So muss es aussehen.


Axel

mariab:
OK, danke jetzt klappts.

Eine Frage noch zum Array bzw. zu ForAll.
Könnte man anstelle der Forall Anweisung auch eine For Schleife einbauen um auf das Filesize zu gelangen? Habe es versucht aber irgendwie Blick ich noch nicht ganz durch

klaussal:
Definiere bitte "irgendwie"...

Axel:
Nein. Man hat keine Möglichkeit die Anzahl der Objekte auszulesen. Somit hast du keinen Maximalwert für die For - Schleife.

Die ForAll-Schleife ist hier schon das Mittel der Wahl.

Axel

Glombi:
Wenn die Anhänge nur in einem Rich Text Feld sind, ginge es auch so:

Dim s As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
dim ret_eval as variant

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document

ret_eval = Evaluate( |FIELD D_Info := @AttachmentLengths;@True|, doc )


Andtreas

Navigation

[0] Themen-Index

[*] Vorherige Sete