Code: Select all
[13] Microsoft VBScript runtime error:Type mismatch at line:9, char:2near:Line 9 reads
Code: Select all
fields = split( line, chr(9) )Code: Select all
'Perform maths on tab delimited fields
'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)
'ie a tab
dim fields(3)
fields = split( line, chr(9) )
redim preserve fields(4)
fields(3) = fields(1) / fields(2)
processLine = join(fields, chr(9)) & EOL
end function
'Called at the start of a processing job -
'perform one-time initialisation here
sub startJob()
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 functionIf this filter doesn't work, please correct it before the next release of TextPipe.
