Das Notes Forum

Domino 9 und frühere Versionen => ND8: Entwicklung => Thema gestartet von: oxyd21 am 17.10.08 - 14:51:46

Titel: Elemente eines Item zählen
Beitrag von: oxyd21 am 17.10.08 - 14:51:46

Servus,

ich steh gerade ein wenig auf'm Schlauch.
Wie zähle ich die Elemente in einem NotesItem(Text List)?

So geht's schonmal nicht:

Code

Dim item As Notesitem
...
Set item = New NotesItem(doc,"People","" )
Call item.AppendToTextList( doc.SendTo )
Call item.AppendToTextList( doc.CopyTo )
Call item.AppendToTextList( doc.From)
					
...
					
Dim x As Variant
Dim element As Integer					
x = doc.getitemvalue("item")
element  = Ubound(x)
Msgbox Cstr(element)

Viele Grüße,
Michael

Titel: Re: Elemente eines Item zählen
Beitrag von: koehlerbv am 17.10.08 - 14:56:10

"Geht schon mal nicht" ist eine schlechte Fehlerbeschreibung ...

Offensichtlich kenne ich eine Rahmenbedingung bei Dir noch nicht, denn schon ein simples
Messagebox Cstr (Ubound (NotesDocument.ItemName) + 1)
würde ausreichen, um die Anzahl der Arraymember anzuzeigen.

Bernhard

Titel: Re: Elemente eines Item zählen
Beitrag von: oxyd21 am 17.10.08 - 14:59:22

Danke, das wars.

Titel: Re: Elemente eines Item zählen
Beitrag von: koehlerbv am 17.10.08 - 15:07:42

Das kann es nicht gewesen sein, denn Dein Code hätte auch funktionieren müssen (abgesehen davon, dass Du bei 3 Elementen eben nur die Zahl 2 ausgegeben bekommen hast wegen Option Base 0).

Woran hat es also wirklich geklemmt?

Bernhard

Titel: Re: Elemente eines Item zählen
Beitrag von: oxyd21 am 17.10.08 - 15:29:48

Der Code war soweit in Ordnung; manchmal sieht man den Wald vor lauter Bäumen nicht.

doc.getitemvalue("item") -> das ist ja wohl ein ziemlich blöder Fehler. Mit getitemvalue auf ein Objekt zugreifen.  ::) Das blieb logischerweise leer und ich bekam 0 als Ergebnis.

Das mit der 1 ist klar, die Messagebox war nur zur Kontrolle beim Test.

Grüße, Michael

Titel: Re: Elemente eines Item zählen
Beitrag von: koehlerbv am 17.10.08 - 15:36:36

GetItemValue wäre doch richtig gewesen, Michael. Dein Parameter "item" dürfte daher keinem "Feld"namen entsprochen haben, richtig?

Ich habe Deinen Code vor meinem Posting fix ausprobiert und angepasst. "FieldName" ist hierbei der Name des interessierenden (Mehrfachwerte enthaltenden) Items (bzw. des Felds im Frontend):

Code

	Dim ws As New NotesUIWorkspace
	Dim x As Variant
	Dim element As Integer
	
	x = ws.CurrentDocument.Document.getitemvalue("FieldName")
	element  = Ubound(x)
	Msgbox Cstr(element)

Und das funktioniert natürlich. Mein alternativer Vorschlag war natürlich ... naja, "knackiger" (so als Einzeiler)  ;)


Ein schönes Wochenende wünscht
Bernhard

Titel: Re: Elemente eines Item zählen
Beitrag von: oxyd21 am 17.10.08 - 15:41:25

Ich habe auf das Item zugegriffen und nicht auf das Feld.

Titel: Re: Elemente eines Item zählen
Beitrag von: koehlerbv am 17.10.08 - 16:01:21

Nur, damit dieser Thread auch später noch verständlich ist): Du hast natürlich nicht auf ein "Feld" zugegriffen (mache ich ja mit beiden Varianten auch nicht), denn das ist Frontend und ein Designelement einer Maske. Du wirst für GetItemValue den Namen Deines instantiierten NotesItem-Objekts verwendet haben, richtig? Und dazu gab es keine Entsprechung mit einem Item Deines Dokuments - ergo: "Leeres" Item, 0 Elemente.

Noch ein Tipp: Wenn Du als Rückgabewert 0 erhältst, stehst Du vor der Entscheidung: Ist da nun nix oder ist da nur ein Element drin oder gibt es das Item an sich gar nicht (dass nicht existierende Items auch 0 zurückgeben, hast Du ja nun gesehen). Evtl. brauchst Du also weitere Abfragen.

Bernhard