Dim bIsDokDiff as boolean
bIsDokDiff = false
if dok1 <> dok2 then
bIsDokDiff = true
' Liste erstellen
endif
if bIsDokDiff = true then
' Doks unterschiedlich. Verwurste Liste
endif
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).
Function HasElements(lst As Variant) As Boolean
Forall e In lst
HasElements = True
Exit Function
End Forall
HasElements = False
End Function
Vielleicht hilft das weiter?CodeFunction HasElements(lst As Variant) As Boolean Forall e In lst HasElements = True Exit Function End Forall HasElements = False End Function
-Werner