Hi,
I have a rich text field which the end user input some text into it and after they press on “Return” i would go through a .dll library to make sure there is another extra new line in between the first and second line. eg.
1line 1 text
2line 2 text…
Ok so now i wish to detect the text in line 2, i had tried using methods like FindNextString or FindNextElement, but none could lead me to the line 2. Any people encountered such problem before?
If so please kindly guide me along or just point me to the correct direction will do. Many thanx in advance
oh if anyone of you interested in knowing what i used:
Dim session As New NotesSession
Dim db As NotesDatabase
Dim dc As NotesDocumentCollection
Dim doc As NotesDocument
Dim body As NotesRichTextItem
Dim rtnav As NotesRichTextNavigator
Dim rtnav2 As NotesRichTextNavigator
Dim rtrange As NotesRichTextRange
Dim rtrange2 As NotesRichTextRange
Set db = session.CurrentDatabase
Set dc = db.UnprocessedDocuments
Set doc = dc.GetFirstDocument
Set body = doc.GetFirstItem(“Body”)
REM Find paragraphs in Body item
Set rtnav = body.CreateNavigator
If rtnav.FindFirstElement(RTELEM_TYPE_TEXTPARAGRAPH) Then
Set rtrange = body.CreateRange
Set rtnav2 = body.CreateNavigator
Set rtrange2 = body.CreateRange
count% = 0
Do
count% = count% + 1
REM Set range for paragraph
Call rtrange.SetBegin(rtnav)
Call rtrange.SetEnd(rtnav)
REM Create navigator for paragraph
Set rtnav2 = rtrange.Navigator
REM Find text runs in paragraph
If rtnav2.FindFirstElement(RTELEM_TYPE_TEXTRUN) Then
count2% = 0
msg$ = ""
Do
count2% = count2% + 1
REM Set range for text run
Call rtrange2.SetBegin(rtnav2)
REM Print text of run
msg$ = rtrange2.TextRun
Messagebox msg$,, _
"Paragraph " & count% & ", run " & count2%
Loop While rtnav2.FindNextElement(RTELEM_TYPE_TEXTRUN)
End If
Loop While rtnav.FindNextElement(RTELEM_TYPE_TEXTPARAGRAPH)
Else
Messagebox “No text in Body”, “No text”
End If
Any the reply i got is the msgbox showing line 1 only.
Teo Hengshi