Domino 9 und frühere Versionen > ND7: Entwicklung

"db.CreateCopy" ohne aktivierte Agenten?

<< < (3/3)

Driri:
Wieder was gelernt. Danke Glombi  ;)

Jens_1:
Hallo!

Da ich mich mit Schleifen und Array mangels Praxis immer etwas schwer tue habe ich die Herausforderungs sportlich gesehen und mit Erfolg versucht das ganze zu lösen.

Das ist dabei herausgekommen und über Hinweise auf elegantere Wege freue ich mich.

Gruß
Jens



--- Zitat ---Sub Initialize
   Dim session As New NotesSession      ' aktuelle Sitzung
   Dim db As NotesDatabase                  ' Datenbank in der das Script läuft
   Dim count As Integer                        ' Zähler für die Schleife zum Auslesen der Agenten
   Dim agname () As String                  ' Array mit den Namen der Agenten
   
   Set db = session.CurrentDatabase
   count = 0
   
   ' Namen der Agenten auslesen und im Array "agname" speichern   
   Forall a In db.Agents
      If a.trigger = 1 Then
         If a.IsEnabled = True Then
            Redim Preserve agname(count)
            agname(count) = a.name
            count = count + 1
         End If
      End If
   End Forall   
   
   ' Wenn das Array leer ist, also keine Agenten aktiviert waren dann aussteigen
   If count  = 0 Then
      Print " Keine Agenten deaktiviert..."
      Exit Sub
   End If
   
   ' Agenten deaktivieren
   Forall a In db.Agents
      If Not Isnull (Arraygetindex (agname, a.name)) Then
         a.isenabled = False
         Call a.save
         Print a.name & " deaktiviert"
      End If
   End Forall
   
   ' Agenten aktivieren
   Forall a In db.Agents
      If Not Isnull (Arraygetindex (agname, a.name)) Then
         a.isenabled = True
         Call a.save
         Print a.name & " aktiviert"
      End If
   End Forall
   
End Sub
--- Ende Zitat ---

Navigation

[0] Themen-Index

[*] Vorherige Sete