Das Notes Forum
Domino 9 und frühere Versionen => Entwicklung => Thema gestartet von: Karin am 19.02.03 - 09:20:35
-
Hallo,
Gibt es eine Übersetzung für @IsMember nach LotusScript?
Gruß Karin
-
ich würd die Feldwerte/ Liste als Array auslesen und dann mit einer Schleife duchsuchen, ist vielleicht nicht die beste, aber immerhin eine Methode.
-
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
-
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
-
... 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
-
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.
-
Hi,
as gibt auch so etwas:
Syntax
IsElement ( listName ( stringExpr ) )
Elements
listName
The name of a defined list.
expr
Any expression.
-
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