25 lines
902 B
Plaintext
25 lines
902 B
Plaintext
csv$ = "Character,Speech
|
|
The multitude,The messiah! Show us the messiah!
|
|
Brians mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>
|
|
The multitude,Who are you?
|
|
Brians mother,I'm his mother; that's who!
|
|
The multitude,Behold his mother! Behold his mother!"
|
|
|
|
k = instr(csv$,",") ' 2 exra lines to get heading
|
|
csv$ = left$(csv$,k - 1) + "</th><th> + mid$(csv$,k + 1)
|
|
|
|
csv$ = strRep$(csv$,",","</td><td>")
|
|
html "<table border=1><TR bgcolor=wheat align=center><th>";strRep$(csv$,chr$(13),"</td></tr><tr><td>");"</td></tr></table"
|
|
wait
|
|
' --------------------------------
|
|
' string replace rep str with
|
|
' --------------------------------
|
|
FUNCTION strRep$(strRep$,rep$,with$)
|
|
ln = len(rep$)
|
|
k = instr(strRep$,rep$)
|
|
while k
|
|
strRep$ = left$(strRep$,k - 1) + with$ + mid$(strRep$,k + ln)
|
|
k = instr(strRep$,rep$)
|
|
WEND
|
|
END FUNCTION
|