Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: Fragensteller am 08.06.11 - 13:35:27

Titel: Alle Items eines Dokuments auflisten
Beitrag von: Fragensteller am 08.06.11 - 13:35:27

Hi leute, mal wieder ne Frage,
habe das was ich hier im Forum gefunden habe getestet aber ohne Erfolg.


Ich möchte alle Namen der Items eines Dokuments ausgeben.
Folgendes dachte ich sollte laufen aber leider Sackgasse.
Der Grund ist, das ich die Namen, also die Keys nicht unbedingt kenne, kann daher also nicht mit "getfirstitem" arbeiten.

Code

Sub Initialize

	Dim s As New NotesSession
	Dim db As NotesDatabase
	Dim doc As NotesDocument
	Dim docCol As NotesDocumentCollection
	Dim erfolg As Variant
	Dim newDoc As NotesDocument
	Dim item As NotesItem

	
	Set db = s.Currentdatabase
	Set docCol = db.Alldocuments
		
	Set doc = docCol.Getfirstdocument()
	
	While Not (doc Is Nothing) 'alle Dokumente durchgehen
				
		ForAll elem In doc.Items
			Print elem
		End ForAll
		
		'Set doc = view.Getnextdocument(doc)
	Wend

End Sub

Titel: Re: Alle Items eines Dokuments auflisten
Beitrag von: TRO am 08.06.11 - 13:40:33

print elem.Name

Titel: Re: Alle Items eines Dokuments auflisten
Beitrag von: Fragensteller am 08.06.11 - 13:44:30

Danke...
na toll. habe ja wohl alles auspropiert aber auf Name bin ich nicht gekommen... war immer bei Key.

Suppi.

Titel: Re: Alle Items eines Dokuments auflisten
Beitrag von: CarstenB am 08.06.11 - 13:47:57

Was ist denn der Hintergrund?
Wenn du dir alle Items eines Dokuments anzeigen lassen willst, kannst du auch den Document Viewer benutzen, dann bekommst du alle Items inkl. Werte eines Dokumentes aufgelistet

http://www.openntf.org/projects/pmt.nsf/ProjectLookup/Document%20Viewer

Titel: Re: Alle Items eines Dokuments auflisten
Beitrag von: Peter Klett am 08.06.11 - 13:53:03

Zitat von: Fragensteller am 08.06.11 - 13:44:30

Danke...
na toll. habe ja wohl alles auspropiert aber auf Name bin ich nicht gekommen... war immer bei Key.

Suppi.

Steht in der Notes-Designerhilfe, ist eine von den Eigenschaften (Properties) von NotesItem

Titel: Re: Alle Items eines Dokuments auflisten
Beitrag von: Christian Weiß am 08.06.11 - 15:30:22

Man könnte dies auch mt Hilfe der Formelsprache und der Funktion @DocFields erreichen.

Code

strHeader1 := "Show String";
strPrompt   := "Please select the key of the string.";
strHeader2 := "Value";
strField := @Prompt( [OkCancelEditCombo]; strHeader1; strPrompt; ""; @DocFields);
@Prompt([Ok]; strHeader2; "Field '" + strField +  "' = " + @GetField( strField ) )