Domino 9 und frühere Versionen > ND8: Entwicklung

Liste der Agenten sortieren

(1/2) > >>

Bruce Willis:
Hallo,

(wie) könnte die Liste der Agenten nach Namen sortiert werden?
Der Code unten bringt die unsortierte Liste.

Gruß
Leo


Sub Initialize
  Dim session As New NotesSession
  Dim db As NotesDatabase
  Set db = session.CurrentDatabase
  agents = db.Agents
  If Not IsEmpty(agents) Then
    Forall agent In agents
      Messagebox(agent.Name) 
    End Forall
  Else
    Messagebox("No agents in database")
  End If
End Sub

koehlerbv:
Die musst Du Dir entsprechend Deiner Anforderungen selbst sortieren. NotesDatabase.Agents gibt Dir ein Array sortiert nach der NoteID (Erstellungsdatum) zurück.

Bernhard

Tode:
Entweder Du suchst Dir einen Sort- Algorithmus Deiner Wahl aus und implementierst ihn in LotusScript (BubbleSort, QuickSort, etc.),
oder Du nutzt die @Sort- Funktion per evaluate...


--- Code: ---Dim session As New NotesSession
  Dim db As NotesDatabase
  Dim strAgents as String
  DIm varSortedAgents as Variant
  Set db = session.CurrentDatabase
  agents = db.Agents
  If Not IsEmpty(agents) Then
    Forall agent In agents
      If strAgents = "" then
        strAgents = agent.Name
      else
        strAGents = strAgents + "~" + agent.Name
      End If
    End Forall
    varSortedAgents = Evaluate( {@Sort( @Explode( "}&strAgents&{";"~");[ASCENDING])} )
    '- hier tun was immer Du mit Deinen sortierten Agenten machen willst
  Else
    Messagebox("No agents in database")
  End If
--- Ende Code ---

Bruce Willis:

--- Zitat von: koehlerbv am 12.12.12 - 10:49:54 ---NotesDatabase.Agents gibt Dir ein Array sortiert nach der NoteID (Erstellungsdatum) zurück.


--- Ende Zitat ---

Ah so.
Danke, Bernhard.

Bruce Willis:

--- Zitat von: Tode am 12.12.12 - 10:54:00 ---...in LotusScript (BubbleSort, QuickSort, etc.),
oder Du nutzt die @Sort- Funktion per evaluate...


--- Ende Zitat ---

Vielen Dank, Torsten !!!

Navigation

[0] Themen-Index

[#] Nächste Seite