RNJarvis

Public Sub SeparatorPageDelete(ByVal pXRootFolder As CASCADELib.CscXFolder)
   On Error GoTo ErrorHandler
   OutputDebugString "Scansation.SeparatorPageDelete"

   Dim i As Long
   Dim oXdoc As CscXDocument
   Dim lPageIndex As Long

   If Project.ScriptVariables.ItemByName("SeparatorPageDelete").Value = "True" Then
      OutputDebugString "Scansation.Separator page removal enabled, deleting seperator pages..."

RNJarvis

Public Function IsRegexMatch(ByVal strRegex As String, ByVal strTest As String, ByVal bWholeWord As Boolean, ByVal bIgnoreCase As Boolean, ByVal bIgnoreBlanks As Boolean) As Boolean
   OutputDebugString "Scansation.IsRegexMatch"
   OutputDebugString "Scansation.strRegex: " & CStr(strRegex)
   OutputDebugString "Scansation.strTest: " & CStr(strTest)
   OutputDebugString "Scansation.bWholeWord: " & CStr(bWholeWord)
   OutputDebugString "Scansation.bIgnoreCase: " & CStr(bIgnoreCase)
   OutputDebugString "Scansation.bIgnoreBlanks: " & CStr(bIgnoreBlanks)

   Dim fd As CscRegExpLib.CscFormatDefinition
   Dim floc As New CscRegExpLib.CscFormatLocator

RNJarvis

// Use Gists to store code you would like to remember later on
console.log(window); // log the "window" object to the console