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 || Print columnValuesParser.parsedString() Print |
NameAddressCompany
| Exit Sub trapError: Print Err, Error, Erl Exit Sub End Sub