Hallo zusammen,
derzeit habe ich ein kleines Problem mit dem durchlaufen eines RichTextitems mit Hilfe des RichTextNavigators.
Ich habe mal folgendes Dokument mit einem Richtextitem angelegt.
Zitat
eins
zwei
drei
vier
Wenn ich auf dieses Dokument mal folgenden Code anschmeisse, gibt er mir komischerweise 4 aus. Er scheint als irgendwie die Leerzeile zu überlesen.
ZitatAlles anzeigen
Dim view as NotesView
Dim note as NotesDocument
Dim item As notesrichtextitem
Dim rtnav As NotesRichTextNavigator
Dim count As Integer
Set view = session.CurrentDatabase.GetView("default")
Set note = view.GetFirstDocument
Set item = note.GetFirstItem("Body")
Set rtnav = item.CreateNavigator
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Do
count = count + 1
Loop While rtnav.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
End If
Messagebox Cstr(count)
Das blöde an der Geschichte ist es, dass ich die Leerzeilen auch brauche =:(
Hat jemand eine Idee, wie das kommt bzw wie ich das umgehen kann?