Hallo.
Ich bin am verzweifeln und hoffe, dass ich hier kluge Köpfe finde die mir bei der Lösung meines Problemes helfen können.
Bin noch sehr neu auf dem Lotus Notes Script Gebiet. ;)
Ich schreibe gerade ein Script das auf Knopfdruck ein Journaleintrag erfasst und in seine Einzelteile zerlegen soll-> nach Datum, Uhrzeit, Verfasser und Text.
Habe bisher versucht mit dem NotesRichTextNavigator die einzelnen Bereiche rauszuziehen, aber dies klappt nur, wenn die Einträge mit einem Absatz voneinander getrennt sind. Bei Zeilenumbrüchen findet er den Text nicht.
Codeausschnitte:
...
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Or rtnav.FindNextElement(RTELEM_TYPE_DOCLINK)Or rtnav.FindNextElement(RTELEM_TYPE_FILEATTACHMENT) Then
Set rtrange = item.CreateRange
count% = 0
Do
count% = count% + 1
Call rtrange.SetBegin(rtnav)
...
(Vergleich und speicherung der einzelnen Teile: rtrange.TextParagraph)
...
Loop While rtnav.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH) Or rtnav.FindNextElement(RTELEM_TYPE_DOCLINK) Or rtnav.FindNextElement(RTELEM_TYPE_FILEATTACHMENT)
Else
Messagebox "Kein Text im Journal",, "Kein text"
End If
...
Wie bekomme ich das Script hin, damit ich von Zeilenumbruch zu Zeilenumbruch arbeiten kann und nicht nur von Absatz zu Absatz?