Hallo,

ich versuche gerade einen Agenten zu programmieren, der eine Ansicht nach doppelten Dokumenten durchsucht. Z.B. alle Dokumente löscht, die den gleichen Titel haben (Id geht leider nicht, da es sich um Kopien handelt.) Also ich schaffe es bis jetzt bestimmte Dokumente zu löschen. Wie bekomme ich den Vergleich von Titel1 zu Titlel2 und zu allen anderen Titeln hin?

Danke und Gruß

Hallo Magoo,

ich habe hier eine Funktion die auf DOC_ID überprüft.
Überall wo DOC_ID steht mußt Du deinen Titel
einsetzen. Teste das doch mal.

Ciao
Don Pasquale


Function DoesDOC_IDexists(Byval DOC_ID As String) As Integer
   
   Dim VIEW_BY_DOC_ID As String
   VIEW_BY_DOC_ID   = "DOC_ID"
   
   Dim Anzahl As Integer
   Dim session As New NotesSession    
   Set db = session.CurrentDatabase
   Set view = db.GetView(VIEW_BY_DOC_ID)
   Dim dc As notesdocumentcollection
   Set dc = view.GetAllDocumentsByKey(DOC_ID, False)
   
   Print DOC_ID
   ANZAHL = dc.Count
   
   If ANZAHL = 0 Then
      DoesDOC_IDexists = 0
   Else
      DoesDOC_IDexists = 1
   End If
End Function

... nö, das teil von donpasquale setzt nur ein feld auf 0 oder 1, je nachdem ob die doc_id mehrmals vorkommt oder nicht...

@Don Pasquale

irgendwie stehe ich wohl auf dem Schlauch, der Agent macht nix bei mir, ändert auch keine Feld

@Axel
ich will nicht nach einer bestimmte Überschrift suchen, sonder alle miteinander vergleichen und bei denen, die doppelt sind, den ältesten Eintrag rausschmeißen  

Hi,

daß ist ja auch nur die Suche ob es weitere Dokumente mit diesem Titel gibt. a gehört noch weitere Logik außenrum.

So zum Beispiel:

...

Set entrycollection = view.AllEntries
Set entry = vc.GetFirstEntry()
While Not (entry Is Nothing)
  Set doc = entry.Document
  strTitel = doc.Titel(0)
  strSearch = "Titel = '" & strTitel & "'"
  Set collection = db.Search(sSearch, Nothing, 0 )  

  If collection.Count > 1 Then
    Messagebox "Mehrere Dokumente vorhanden"

    'Löschen der älteren Dokumente
  End If

  Set entry = vc.GetNextEntry(entry)

Wend
...


Axel

Hi,

ich glaube aber auch, dass das nicht ganz unproblematisch ist.

Das Problem dürfte hier liegen:

Set entrycollection = view.AllEntries

Damit hast du alle Dokumente in einer Ansicht. Was passiert aber, wenn doppelte Dokumente gelöscht werden. In entrycollection sind sie aber noch vorhanden. Versucht man dann drauf zuzugreifen, knallts. Das müsste man irgendwie abfangen. Aber dafür fehlt mir im Moment die Idee wie.

Axel
 

@klaussal

Ja aber,....

Ein Teufel steckt auch hier noch im Detail. Du machst das mit

Set doc = view.GetFirstDocument

While...

  Set doc = view.GetNextDocument(doc)
Wend
...

Wenn du dann doc löscht, weil doppelt und älter, fehlt der Bezug für GetNextDocument. Das muss auch irgendwie abgefangen werden.


Axel
 

Wie wäre damit ?



   Dim session As NotesSession
   Dim db As NotesDatabase
   Dim view As NotesView
   
   Dim doc As NotesDocument   
   Dim RemoveDoc As NotesDocument
   
   Dim LOESCHLISTE List As String*32   
   
   Set session = New NotesSession
   Set db  = session.CurrentDatabase
   Set view = db.GetView( "DEINE VIEW" )
   Set doc = view.GetFirstDocument
   
   
   While Not doc Is Nothing
      
      
      If DOPPELT Then
         j = j + 1
         LOESCHLISTE(j) = doc.UniversalID
      End If
      
      Set doc = view.GetNextDocument(doc)         
   Wend
   
   Forall x In LOESCHLISTE
      
      Set RemoveDoc = db.GetDocumentByUNID(X)   
      Call Removedoc.RemoveFromFolder("($Inbox)")         
      
   End Forall

... und wie sieht's da mit der 64k-beschränkung aus ?

   ... und dabei hab ich noch nicht einmal gefragt, was DOPPELT ist und wo's herkommt.

nein, ganz im ernst, die lösung ist sehr schön  

aber da es sich wohl um eine grössere anzahl von docs handelt (sonst würd ich das ja per hand machen) , sollte man schon die sache im auge behalten.