Wie Liste auf Vorhandensein von Listenelementen prüfen?

[DAU-in]

Ich steh auf dem Schlauch:

Für den Vergleich zweier Dokumente stelle ich eine Abgleichsliste auf, d.h.,
wenn Dok2 im Feld "ab" verschieden ist von Dok1, erstelle ich in der Liste ein
Listenelement mit ListTag "ab" und dem Feldwert in Dok1.
Die Liste wird danach weiterverwurstet.
Das Problem: Wenn die Dokumente dieselben Werte in den gleichnamigen Feldern haben,
enthält die Liste kein einziges Listenelement.
Wie kann ich das abfragen?

Is nothing liefert Typemismatch, IsList, IsArray und Isempty greifen nicht.



Notes 8.0 auf Windows Vista.

Grüsse

Dau-in

[BigWim]

Wenn ich das richtig verstanden habe, tritt das Problem auf, wenn die Dokumente identisch sind und keine Liste erstellt wurde.

In diesem Fall arbeite ich mit einer Hilfsvariable. Also in unreine geschrieben.

Code

Dim bIsDokDiff as boolean
bIsDokDiff = false

if dok1 <> dok2 then
  bIsDokDiff = true
' Liste erstellen
endif

if bIsDokDiff = true then
'  Doks unterschiedlich. Verwurste Liste
endif

Viele Grüße
Markus

PS: Bin gespannt, ob es noch etwas eleganteres gibt ....

[DAU-in]

Ich habe ein Pseudoelement eingeführt, das in der weiteren Routine nicht mehr berücksichtigt wird.
Aber ich würde gerne so etwas wie 'hasElements' abfragen.

[jBubbleBoy]

Listen sind nicht dafür Konzeptioniert eine Anzahl von Werten zu verwalten. Wenn du deine Liste verarbeitest, wahrscheinlich mit:
forall x in "liste"
dann bekommst Du doch mit ob etwas vorhanden ist oder nicht.

[DAU-in]

ich will die Liste direkt weiterreichen in eine andere Routine.
und das knallt dann.

[BigWim]

Hast Du es schon mal mit IsList und IsElement probiert?

Mit Listen habe ich persönlich (noch) nicht viel Erfahrung. Das habe ich in der Hilfe gefunden.

IsList( listName ) returns True (-1) or False (0) depending on whether listName is a list.

IsElement( listName ( stringExpr )) returns True (-1) or False (0) depending on whether stringExpr is a list tag in listName. There are a variety of circumstances under which you might want to test for the existence of a particular list tag in a list. Two cases are:
You want to add a new element to a list and want to make sure that the list tag you plan to use isn’t already in use (because if it is, and you used it in an assignment statement, you would overwrite the element that it identifies).
You want to refer to an element and want to make sure that the element exists before doing so (because if you refer to a nonexistent list tag, LotusScript returns an error).

[Werner Götz]

Vielleicht hilft das weiter?

Code

Function HasElements(lst As Variant) As Boolean
	Forall e In lst
		HasElements = True
		Exit Function
	End Forall
	HasElements = False
End Function

-Werner

[DAU-in]

IsList gibt true zurück, weil die Variable als Liste definiert ist.
Das Abfragen der Listtags bringt auch nichts, weil die erst definiert werden, wenn ein Unterschied besteht.

[DAU-in]

Vielleicht hilft das weiter?

Code

Function HasElements(lst As Variant) As Boolean
	Forall e In lst
		HasElements = True
		Exit Function
	End Forall
	HasElements = False
End Function

-Werner

Die Firma dankt.