Misc. Resources

Specified Mini-Lesson

MIDAS#16 Out of Notes Part 9: Professional Polish (Midas Rich Text LSX)

Out Of Notes, part 9: Professional Polish. While it is useful to publish Notes content in a variety of formats, companies require more than a regimented export. They require the ability to customize the look and feel of the exported data, customize the content to maintain certain corporate standards, redact information that may not be appropriate to leave the internal database and package the content with a professional cover image and possibly action oriented end pages. With Midas LSX V5, these are all possible, and in this video I show a few of the choices made and how they improve the professional appearance as well as the content control required for corporate or government use.
While there are four agents used, this last is the compilation of most of the techniques. This agent will only work in Midas V5.00.

This extended sample requires Midas 5.00 or higher. If you would like to try out this sample, request an evaluation license, and specify that you want to try Version 5, and one will be mailed to you as soon as the new version is released.

The four ePub files are linked below. From an iPhone or iPad, you can open these directly.

AGENT: Publish Thread with polished contents
Option Public
Option Declare
UseLSX "*lsxrtc"

Sub Initialize
Dim s As New NotesSession
Dim rtitem As New GeniiRTItem
Dim gcoll As New GeniiCollection("", S.CurrentDatabase.FilePath, "All Documents", "ID:"+CStr(s.DocumentContext.NoteID))
Call gcoll.AddLinked()
On Event ActOnResult From gcoll Call ActOnResult
Call rtitem.ConnectPageBody("", "CurbAppealDiscussion.nsf", "IntroEpub")
Call gcoll.ExportToEPub("c:\demo\thread4.epub", _
"Threadmap='Yes' Sort='No' Expand='32' UseTheme='yes' dc:title='Thread 4: Polished'", rtitem)
End Sub

Sub ActOnResult(Source As GeniiCollection, resultItem As GeniiRTItem)
Dim rtchunk As GeniiRTChunk
Set rtchunk = resultItem.DefineChunk("Table ID 'myBody'")
Call resultItem.DefineFont("Arial")
rtchunk.Font = "10 pt Arial"
Call rtchunk.RegexReplace("(^|[\D*])(4\d|5[1‒5]{1})\d{2}[ \\-]?\d{4}[ \\-]?\d{4}[ \\-]?(\d{4})([\D*]|$)", "$1xxxx-xxxx-xxxx-$3$4")
End Sub

Rough transcript (coming soon):

Copyright © 2014 Genii Software Ltd. All Rights Reserved.