Domino 9 und frühere Versionen > ND6: Entwicklung

Walk the View

<< < (4/7) > >>

Driri:
Was ist denn "ready" ?

Wofür ist die 2. While-Schleife gut (While ready=False) ?

Du zählst i innerhalb von 2 Schleifen hoch. Das führt zu falschen Ergebnissen.

bikerboy:
ready ist ein Bool-Wert. Soll halt die abarbeitung unterbrechen.


i ist ja nur für mich als optisches Zeichen, dass da was passiert, selbst wenn was falsches drin steht ist "Bumms", weil er nix steuert. Aber ich glaube schon dass das richtige drin steht, zumindest hat mein Papier-PC das gesagt.

rbo:
Hi,

ich persönlich würde es auch mit Listen machen...
Mir ist gerade ein wenig langweilig, versuch doch mal diesen Code (nicht getestet)

--- Code: --- Dim searchkeys List As Boolean


While Not viewDoc Is Nothing

If Iselement(searchKeys(viewDoc.GetItemValue("pumpSearchKey")(0))) Then
Call viewDoc.remove
Else
searchKeys(viewDoc.GetItemValue("pumpSearchKey")(0)) = True
End If

Set viewDoc = view.getNextDocument(viewDoc)
Wend

--- Ende Code ---

Müsste wesentlich performanter sein als dein jetziger Code...
Sollte dir die Liste wirklich um die Ohren fliegen musst du ein anderes Medium zum zwischenspeichern gefundener Elemente finden (zb. Tempdoc)

Gruss René

EDIT:
So gehts natürlich nicht ganz, du mussts den Code ein wenig modifizieren weil

Set viewDoc = view.getNextDocument(viewDoc)

mit dem gelöschten Dok nicht klappt, Lösung steht allerdings weiter oben, dann sollte es passen...
   

bikerboy:
ja mit listen habe ich am anfang auch gearbeitet, nur ein Array, dass 90.000 * 39 byte fast kann mein system nicht. da laufen mir der ein oder andere speicher über.

flaite:
Ist das nicht so einfacher?

--- Code: ---
Dim lastValue as String

lastValue = "DAT_KANNES_ÜBERHAUPT_NICHT_GEBEN. ES_HARTO IMPROBABLE QUE una Casilla tenga un contenido así"
set doc = vw.getFirstDocument
while not doc is nothing
   
   set docLast = doc
   set doc = view.getnextdocument(doc)
   if docLast.pumpsearchkey(0) = lastValue then
          lastValue = docLast.pumpsearchkey(0)
          call docLast.remove(true)
   else
        lastValue= docLast.pumpsearchkey(0)
   end if
wend

--- Ende Code ---

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete