newline$ ="|"
' No escape behaviour, so can't refer to '/n'.
' Generally imported csv would have separator CR LF; easily converted first if needed
csv$ ="Character,Speech" +newline$+_
"The multitude,The messiah! Show us the messiah!" +newline$+_
"Brians mother,Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!" +newline$+_
"The multitude,Who are you?" +newline$+_
"Brians mother,I'm his mother; that's who!" +newline$+_
"The multitude,Behold his mother! Behold his mother!"
print ""
print ""
print ""
print ""
print "
CSV to HTML translation
"
print "
"
print "
"
for i =1 to len( csv$)
c$ =mid$( csv$, i, 1)
select case c$
case "|": print "
": print "
"
case ",": print "
";
case "<": print "&"+"lt;";
case ">": print "&"+"gt;";
case "&": print "&"+"amp;";
case else: print c$;
end select
next i
print "