Autor Thema: Ansicht durchlaufen  (Gelesen 1564 mal)

Offline skywook

  • Senior Mitglied
  • ****
  • Beiträge: 445
  • Ich liebe dieses Forum!
Ansicht durchlaufen
« am: 01.09.04 - 16:21:53 »
Hallo,
das Script soll eine Ansicht durchlaufen und doppelte Dokumente löschen. Habe aber das Problem, dass die Schleife nur ein einziges mal durchläuft. Kann mir jemand einen Tipp geben.

Dim Server As String
   Dim Filename As String
   Dim z As String
   
   Dim Datenbank As NotesDatabase
   Dim Ansicht As NotesView
   Dim Dokument As NotesDocument
   
   Server = ""
   Filename = "spar.nsf"
   Set Datenbank = New NotesDatabase(server,Filename)
      
   Set Ansicht = Datenbank.GetView("hkt")
   Set Dokument = Ansicht.GetFirstDocument()
   z = Cstr(Dokument.hkt(0))         
   Set Dokument = Ansicht.GetNextDocument(dokument)
   
   Do Until Dokument Is Nothing
      If z = Cstr(dokument.hkt(0)) Then
         Call dokument.Remove( True )
      Else      
         z = Cstr(Dokument.hkt(0))
         Set Dokument = Ansicht.GetNextDocument(dokument)
      End If
      
   Loop

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re:Ansicht durchlaufen
« Antwort #1 am: 01.09.04 - 16:28:49 »
Zeichne mal Deine Logik mit einem Flowchart (oder in Pseudocode) auf und Du wist sofort sehen, wo Dein Denkfehler ist.
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline skywook

  • Senior Mitglied
  • ****
  • Beiträge: 445
  • Ich liebe dieses Forum!
Re:Ansicht durchlaufen
« Antwort #2 am: 01.09.04 - 16:30:56 »
wenn das Dokument gelöscht wird, fehlt die Verbindung. Aber wie beuge ich dem vor?

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re:Ansicht durchlaufen
« Antwort #3 am: 01.09.04 - 16:32:46 »
Indem Du am Anfang des Loops in ein TempDoc das NextDoc setzest und am Ende des Loops das TempDoc ins Dokument reinsetzest
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re:Ansicht durchlaufen
« Antwort #4 am: 01.09.04 - 16:35:48 »
Oder
docKill = doc
doc = View.GetNextDocument (doc)
Call docKill.Remove (true)

Es gibt sicher noch mehr Spielarten.

Bernhard

Offline skywook

  • Senior Mitglied
  • ****
  • Beiträge: 445
  • Ich liebe dieses Forum!
Re:Ansicht durchlaufen
« Antwort #5 am: 01.09.04 - 16:45:53 »
Sorry, aber das docKill = doc funktioniert nicht

Glombi

  • Gast
Re:Ansicht durchlaufen
« Antwort #6 am: 01.09.04 - 16:52:30 »
Sorry, aber das docKill = doc funktioniert nicht
Ersetze doc durch Dokument, dann sollte es gehen. Nicht immer einfach alles gedankenlos abtippen  ;)

Andreas

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re:Ansicht durchlaufen
« Antwort #7 am: 01.09.04 - 17:08:55 »
Vor allem brauchts noch ein Set davor

Set docKill = Dokument
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

Offline koehlerbv

  • Moderator
  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 20.460
  • Geschlecht: Männlich
Re:Ansicht durchlaufen
« Antwort #8 am: 01.09.04 - 17:16:42 »
Sei doch nicht so kleinlich, Jens  ;D

Offline Semeaphoros

  • Gold Platin u.s.w. member:)
  • *****
  • Beiträge: 8.152
  • Geschlecht: Männlich
  • ho semeaphoros - agr.: der Notesträger
    • LIGONET GmbH
Re:Ansicht durchlaufen
« Antwort #9 am: 01.09.04 - 17:25:15 »
Ich nicht, aber der Compiler ...... :)

.... wobei ich ihm (dem Compiler) auch jedesmal sage: "Na, wenn Dus schon haben willst, warum setztest Dus dann nicht gleich selber hin ....."
Jens-B. Augustiny

Beratung und Unterstützung für Notes und Domino Infrastruktur und Anwendungen

Homepage: http://www.ligonet.ch

IBM Certified Advanced Application Developer - Lotus Notes and Domino 7 und 6
IBM Certified Advanced System Administrator - Lotus Notes and Domino 7 und 6

 

Impressum Atnotes.de  -  Powered by Syslords Solutions  -  Datenschutz