Validating rich text
From "Rich text programmability for Notes R5 applications" by Andre Guirard, who works from Lotus Development's ISV Technical Consulting group, which originally appeared in the May/June 2000 edition of The View
By submitting your email address, you agree to receive emails regarding relevant topic offers from TechTarget and its partners. You can withdraw your consent at any time. Contact TechTarget at 275 Grove Street, Newton, MA.
Notes developers have long had to work around the problem that, in Notes, there is no way to make sure that the user enters a value in a rich text field before saving a document. There are workarounds for specific kinds of validations, but until R5, there hasn't been a general-purpose way to validate rich text field contents.
With R5, it's possible to write a Querysave event that reads the current value of the rich text field. To do this, you have to refresh the form using the NotesUIDocument.Refresh method with an argument of True, as the code below does. This code, created as an example, doesn't actually do any validation; it just displays the text it reads from the rich text field.
Sub Querysave(Source As Notesuidocument, Continue As Variant) Dim ws As New notesuiworkspace Dim uidoc As notesuidocument Dim doc As NotesDocument Dim rtf As Variant Set uidoc = ws.CurrentDocument uidoc.refresh True Set doc = uidoc.Document Set rtf = doc.GetFirstItem("Body") Messagebox debugstr(rtf.text) End Sub
The debugstr function in this code takes any value and returns a text description of it in a message box. It's not part of the LotusScript language; it's a function the author wrote that can be pasted in whenever one needs to display a value for debugging purposes.
You can try this yourself in the sample database available at The View's Web site: http://www.eview.com/eview/view.nsf/2d0e694750acb0ae8525668000517be3/f40ef674a562b18c852568d30057eee4?OpenDocument
Select Create-Validate Rich Text. Enter some values in the table that opens in the Validate Rich Text document.
When you use the Text property or the GetFormattedText method of a NotesRichTextItem, tables are presented as columns of text separated by tabs. So there's a "tab" character (in LotusScript, Chr$(9)) between each column, and the "newline" sequence, carriage return and line feed (Chr$(13) and Chr$(10)), at the end of each row.
This can get ambiguous if the person editing the document enters tabs or newlines in the table cells. If you were trying to validate the table contents and you looked for the "newline" sequence to spot the end of a row, then "20