Autor Thema: @IsMember in LotusScript  (Gelesen 6284 mal)

Offline Karin

  • Junior Mitglied
  • **
  • Beiträge: 57
  • Ich liebe dieses Forum!
@IsMember in LotusScript
« am: 19.02.03 - 09:20:35 »
Hallo,

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

Gruß Karin

Offline Doc Torte

  • Aktives Mitglied
  • ***
  • Beiträge: 178
  • Geschlecht: Männlich
  • ...promovierter Bäcker... ;-)
    • ...that's me
Re:@IsMember in LotusScript
« Antwort #1 am: 19.02.03 - 09:30:54 »
ich würd die Feldwerte/ Liste als Array auslesen und dann mit einer Schleife duchsuchen, ist vielleicht nicht die beste, aber immerhin eine Methode.
Wer nicht ständig besser wird, hört bald auf gut zu sein !
Schritt für Schritt geht's immer vorwärts...

Offline Don Pasquale

  • Freund des Hauses!
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 1.390
  • Geschlecht: Männlich
  • Don Pasquale
    • Auf Verlorenem Posten
Re:@IsMember in LotusScript
« Antwort #2 am: 19.02.03 - 09:47:19 »
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

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:@IsMember in LotusScript
« Antwort #3 am: 19.02.03 - 10:28:08 »
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
Ohne Computer wären wir noch lange nicht hinterm Mond!

Offline ata

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 5.092
  • Geschlecht: Männlich
  • drenaiondrufflos
    • Anton Tauscher Privat
Re:@IsMember in LotusScript
« Antwort #4 am: 19.02.03 - 11:00:18 »
... 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
Grüßle Toni :)

Offline wflamme

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 690
  • Geschlecht: Männlich
  • Irgendwie geht das schon...
    • wflamme
Re:@IsMember in LotusScript
« Antwort #5 am: 19.02.03 - 17:59:35 »
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.
Grüße,
Wolfgang

"I love deadlines. I love the whooshing sound they make as they pass by..."
DOUGLAS ADAMS

wflamme@mainz-online.de
http://www.sns1.de/partner/flamme/wflamme.nsf

Offline doliman

  • Senior Mitglied
  • ****
  • Beiträge: 332
  • Geschlecht: Männlich
    • www.doleschel.de
Re:@IsMember in LotusScript
« Antwort #6 am: 19.02.03 - 18:04:23 »
Hi,

as gibt auch so etwas:

Syntax
IsElement ( listName ( stringExpr ) )
Elements
   listName
   The name of a defined list.
expr
   Any expression.
Grüßle
                           _///_
                          (o~o)
-------------oOOO--(_)--OOOo-------------
Frank Doleschel

----------------------
Ein Berufsleben ohne Notes ist zwar möglich aber die Alternativen sind erschreckend ;-)

Offline Axel

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.658
  • Geschlecht: Männlich
  • It's not a bug, it's Notes
Re:@IsMember in LotusScript
« Antwort #7 am: 19.02.03 - 18:29:19 »
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
 
Ohne Computer wären wir noch lange nicht hinterm Mond!

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz