50 lines
1.4 KiB
Plaintext
50 lines
1.4 KiB
Plaintext
Data "Character,Speech"
|
|
Data "The multitude,The messiah! Show us the messiah!"
|
|
Data "Brian's mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>"
|
|
Data "The multitude,Who are you?"
|
|
Data "Brian's mother,I'm his mother; that's who!"
|
|
Data "The multitude,Behold his mother! Behold his mother!"
|
|
Data "***"
|
|
|
|
Print "<!DOCTYPE html>" & Chr(10) & "<html>"
|
|
Print "<head>"
|
|
Print "</head>" & Chr(10)
|
|
Print "<body>"
|
|
Print "<h1 style=""text-align:center"">CSV to html translation </h1>"
|
|
Print: Print "<table border = 1 cellpadding = 10 cellspacing = 0>"
|
|
|
|
Dim As Boolean header = true
|
|
Dim As String cadenaCSV, txt
|
|
Do
|
|
Read cadenaCSV
|
|
If cadenaCSV = "***" then Exit Do
|
|
|
|
If header then
|
|
Print "<thead bgcolor=""green"">" & Chr(10) & "<tr><th>";
|
|
Else
|
|
Print "<tr><td>";
|
|
End If
|
|
For i As Integer = 1 To Len(cadenaCSV)
|
|
txt = Mid(cadenaCSV, i, 1)
|
|
Select Case txt
|
|
Case ",": If header then Print "</th><th>"; Else Print "</td><td>";
|
|
Case "<": Print "<";
|
|
Case ">": Print ">";
|
|
Case "&": Print "&";
|
|
Case Else: Print txt;
|
|
End Select
|
|
Next i
|
|
If header then
|
|
Print "</th></tr>" & Chr(10) & "</thead>" & Chr(10) & "<tbody bgcolor=""yellow"">"
|
|
Else
|
|
Print "</td></tr>"
|
|
End If
|
|
|
|
header = false
|
|
Loop Until false
|
|
|
|
Print "</tbody>" & Chr(10) & "</table>"
|
|
Print Chr(10) & "</body>"
|
|
Print "</html>"
|
|
Sleep
|