Domino 9 und frühere Versionen > ND6: Entwicklung

Mehrere Werte in ein Feld schreiben

(1/2) > >>

mariab:
Hallo,

habe folgenden Code der die Dateigrösse ermittelt. Nun möchte ich die Grösse nicht mittels Messagebox ausgeben sondern in ein Feld (D_Info) schreiben.


--- Code: ---Sub Click(Source As Button)
Dim s As New NotesSession
Dim db As NotesDatabase
Dim ws As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Dim doc As NotesDocument
Dim rt As NotesRichTextItem
Dim item As NotesItem

Set uidoc = ws.CurrentDocument
Set doc = uidoc.Document
Set rt = doc.GetFirstItem( "D_Doku" )

If rt Is Nothing Then
Msgbox "Kein Dateianhang vorhanden"
Exit Sub
End If

Forall o In rt.EmbeddedObjects
werte = o.Filesize
doc.D_Info = werte
End Forall

End Sub

--- Ende Code ---

Wenn ich nun zwei Dateianhänge habe so erscheint die Größe des ersten Anhangs, dann wird dieser vom zweiten überschrieben. Wie kann ich beide Werte anzeigen?

Axel:
Du musst die Werte in ein Array oder eine Liste schreiben.


Axel

mariab:
Ok, aber wie. Hast du hier ein paar Lösungshilfen. Bin gerade dabei mich etwas mehr mit LS auseinanderzusetzen

Axel:
Mal so ins Balue gedacht und ungetestet.

Sub Click(Source As Button)
   Dim s As New NotesSession
   Dim db As NotesDatabase
   Dim ws As New NotesUIWorkspace
   Dim uidoc As NotesUIDocument
   Dim doc As NotesDocument
   Dim rt As NotesRichTextItem
   Dim item As NotesItem
                Dim sizes() As long
                Dim idx As Integer
   
   Set uidoc = ws.CurrentDocument
   Set doc = uidoc.Document
   Set rt = doc.GetFirstItem( "D_Doku" )
   
   If rt Is Nothing Then
      Msgbox "Kein Dateianhang vorhanden"
      Exit Sub
   End If
   
                idx = 0
   Forall o In rt.EmbeddedObjects
                                Redim Preserve sizes(idx) = o.Filesize
                                idx = idx + 1
   End Forall
   
            doc.D_Info = sizes

End Sub

Das Redim Preserve ist zwar ein Performance-Killer, aber in Anbetracht das wahrscheinlich nie hunderte von Anhängen vorhanden sind, ist das hier nicht so kritisch.

Axel

mariab:
Danke, erhalte aber im Designer einen Fehler bei der Zeile:

--- Code: ---Redim Preserve sizes(idx) = o.Filesize

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite