Domino Code Fragment

Code Name* Extract text from Notes table cells	Date* 6/18/96	Source (or email address if you prefer)* Lotus IP address:.3.145.151.141
Description* Programatically searches for the tab and line feed characters that separate the cells of a Notes table.	Type* LotusScript	Categories* List Processing/Sorting, User Interface (Notes)

Implementation: None (plug and play)	Required Client:	Server:
Limitations: In order for the sample script to work properly, the document must be saved before the script is run. In addition, the "Body" field of the document must contain only the table and no other text.	Comments: Place the script in the click event of a button on the document containing the table. For each cell of the table in the "Body" field of the current document, the sample script displays a messagebox containing the text of the cell.

Files/Graphics attachments (if applicable): Code:

Sub Click(Source As Button) Dim w As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim bodytext As Variant Dim x As Integer, y As Integer Dim asciichr As Integer Set uidoc = w.currentdocument Set doc = uidoc.document bodytext = doc.body y = 1 For x = 1 To Len(bodytext) asciichr = Asc(Mid(bodytext,x,1)) If asciichr = 9 Or asciichr = 10 Then cellnumber = cellnumber + 1 Messagebox("Cell " & Str(cellnumber) & " contains """ & Mid(bodytext,y,x-y)) & """" y = x + 1 End If Next x End Sub