Auslesen einer Tabelle mit dem NotesRichTextNavigator

[ManniF]

Hallo,

ich habe folgendes Problem mit der NotesRichTextNavigator Klasse:
Ich möchte eine Tabelle (2 Spalten, 3 Zeilen) in einem bestehenden RichText-Feld auslesen und Zelle für Zelle den Text als Rückgabewert erhalten.
Mein Script bricht mit der Fehlermeldung "Position is not valid" in der "Loop"-Zeile ab.
Laut Debugger wird das RichTextfeld gefunden und auch der Text aus der ersten Zelle wird angezeigt.

Code

Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtrange As NotesRichTextRange

Set body = doc.GetFirstItem("Test")
Set rtnav = body.CreateNavigator

Call rtnav.FindFirstElement(RTELEM_TYPE_TABLECELL)  
Set rtrange = body.CreateRange
count% = 0

Do 
count% = count% + 1		
Messagebox rtrange.TextParagraph		
Loop While rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

Wo liegt hier mein Fehler? Habe ich etwas übersehen, vergessen oder falsch gemacht?
Wenn mir jemand helfen könnte, das wäre sehr nett.
Gruß Manni

[ata]

Hallo,

der erste schnelle Blick:

... die Fußsteuerung der Schleife stört mich, da es auch ohne Tabelle sein kann - und dann wäre so eine Fehlermeldung auf jeden Fall drin.

... zudem würde ich den Zähler per Print zur Kontrolle ausgeben, um zu sehen wo er sich gerade befindet, ob er die Tabelle mit deren Zellen überhaupt findet...

Toni

[ManniF]

Hi,
danke schonmal für deine Mühe.

habe den Zähler per Print ausgeben lassen. Die Tabelle und auch die erste Zelle wird gefunden. Den Text, der sich darin befindet, gibt auch die Messagebox aus.
Nur in die nächste Zelle kann er irgendwie nicht navigieren.

Die Schleife habe ich so aus der Hilfe übernommen...

Gruß Manni

[ata]

... fußgesteuert bezieht sie sich auf Objekte, die nicht unbedingt da sein müssen. Kopfgesteuert würde bedeuten, das Object zu initialisieren und dann im Kopf der Schleife prüfen, ob das Objekt nicht Nothing ist...

... kann es sich um verbundene Zellen handeln?

Toni

[ManniF]

Code

Do While not rtnav is nothing
count% = count% + 1		
Messagebox rtrange.TextParagraph		
Call rtnav.FindNextElement(RTELEM_TYPE_TABLECELL)

Loop

bringt leider auch keinen Erfolg (gleiche Fehlermeldung).

Verbundene Zellen sind ausgeschlossen.

Gruß Manni

[ata]

... was meint denn der Debugger zu den Objekten - kannst du da was erkennen? Eventuell wäre eine Demo-DB zum Nachvollziehen nicht schlecht...

Toni