DataMystic

Code: Select all

'Our line counter
dim a

'Called for every line in the file
'EOL contains the end of line characters (Unix, DOS or Mac) that must be
'appended to each line
function processLine(line, EOL)
  a = 1 - a
  if a = 1 then 
    processLine = line & " " & EOL
  else
    processLine = ""
  end if
end function


'Called at the start of a processing job -
'perform one-time initialisation here
sub startJob()
  a = 0
end sub


'Called at the end of a processing job -
'destroy any declared objects here
sub endJob()
  'do nothing
end sub


'Called before each file is opened -
'perform per-file initialisation here
function startFile()
  startFile = ""
end function


'Called before each file is closed -
'flush all pending file output here
function endFile()
  endFile = ""
end function

Code: Select all

|  |  |--Add file footer [\r\n]
|  |  |   
|  |  |--Perl pattern [(.*\r\n)(.*\r\n)] with [$2]
|  |  |     [ ] Match case
|  |  |     [ ] Whole words only
|  |  |     [ ] Case sensitive replace
|  |  |     [ ] Prompt on replace
|  |  |     [ ] Skip prompt if identical
|  |  |     [ ] First only
|  |  |     [ ] Extract matches
|  |  |     Maximum text buffer size 4096
|  |  |     [ ] Maximum match (greedy)
|  |  |     [ ] Allow comments
|  |  |     [X] '.' matches newline
|  |  |     [ ] UTF-8 Support
|  |  |   
|  |  +--Remove blank lines

Code: Select all

function processLine(line, EOL)
  a = a + 1
  if a = 4 then a = 1

  if a = 3 then
    processLine = line & " " & EOL
  else
    processLine = ""
  end if