@IsMember in LotusScript

[Karin]

Hallo,

Gibt es eine Übersetzung für @IsMember nach LotusScript?

Gruß Karin

[Doc Torte]

ich würd die Feldwerte/ Liste als Array auslesen und dann mit einer Schleife duchsuchen, ist vielleicht nicht die beste, aber immerhin eine Methode.

[Don Pasquale]

Das war mal irgendwo hier im Forum,
leider weiss ich nicht mehr wo.

Bei mir klappt das Prima

Function RoleEnabled(sRole As String) As Integer
   
   Dim vResult As Variant
   
   vResult = Evaluate(|@IsMember("| & sRole & |"; @UserRoles)|)
   
   If vResult(0) = 1 Then
      RoleEnabled = 1
   Else
      RoleEnabled = 0
   End If  'If vResult(0) = 1
   
End Function

Ciao

Don Pasquale

[Axel]

Hi,

diesen Code habe ich mal im Web gefunden.

...
dim i as NotesItem, flag as integer

set i = doc.GetFirstItem("fieldname")
flag = false

forall v in i.Values
if cstr(v) = ValueToCheckFor$ then flag = true
end forall
...


Axel

[ata]

... in R5 gibt es auch noch ArrayGetIndex( Array , Wert )

Dim vValue As Variant
Dim flag as Variant

flag = False
vValue = Evaluate("@UserRoles") ' # nur als Beispiel
If Not IsNull(ArrayGetIndex( vValue , "[Admin]") ) Then flag = true

ata

[wflamme]

forall v in i.Values
if cstr(v) = ValueToCheckFor$ then flag = true
end forall

...
...then
 flag%=True
 Exit ForAll
...

Unnötig, die Liste nach einem Treffer noch weiter durchzuackern.

[doliman]

Hi,

as gibt auch so etwas:

Syntax
IsElement ( listName ( stringExpr ) )
Elements
   listName
   The name of a defined list.
expr
   Any expression.

[Axel]

forall v in i.Values
if cstr(v) = ValueToCheckFor$ then flag = true
end forall

...
...then
 flag%=True
 Exit ForAll
...

Unnötig, die Liste nach einem Treffer noch weiter durchzuackern.

Richtig! Ich habe den Code aus dem Web geladen aber selbst noch nicht getestet und optimiert.


@doliman
Das ist auch möglich, aber nur dann wenn eine Liste vorliegt. Mit einem Array oder einer Variant-Variablen funktioniert das nicht. Du mußt dann erst eine Liste draus machen.

Axel