Sub Initialize
On Error Goto trapError
Print "content-type: text/html; charset=utf-8"
Dim columnValuesParser As New SeparatedStringParserByViewColumn( "(lupCharactersByCompany)", 1 )
Call columnValuesParser.setDefaultTemplate( |
$lastName, $firstName | $address | $company |
| )
%REM
'Command for odd/even-colored rows
Call columnValuesParser.addConditionalTemplate( | @Modulo( i ; 2 ) = 0|, |
$lastName, $firstName | $address | $company |
| )
%ENDREM
'Conditions are compiled into @If. Therefore, put the most important templates first
Call columnValuesParser.addConditionalTemplate( |$address="Unseen University" & $company="Assassins' Guild"|, |
$lastName, $firstName | $address | $company |
| )
Call columnValuesParser.addConditionalTemplate( |$address="Unseen University"|, |
$lastName, $firstName | $address | $company |
| )
Call columnValuesParser.addConditionalTemplate( |$company="Assassins' Guild"|, |
$lastName, $firstName | $address | $company |
| )
Call columnValuesParser.addConditionalTemplate( |$address="Lancre"|, |
$lastName, $firstName | $address | $company |
| )
Call columnValuesParser.addConditionalTemplate( |$address="Überwald"|, |
$lastName, $firstName | $address | $company |
| )
Print ||
Print |Name | Address | Company |
|
Print columnValuesParser.parsedString()
Print |
|
Exit Sub
trapError:
Print Err, Error, Erl
Exit Sub
End Sub