CSV to HTML translation: Difference between revisions
m
→{{header|EasyLang}}
(→{{header|Java}}: Add version with streaming/StringJoiner) |
|||
| (31 intermediate revisions by 16 users not shown) | |||
Line 29:
=={{header|11l}}==
{{trans|C}}
<
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>
Line 48:
}, end' ‘’)
print("</td></tr>\n</table>")</
{{out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 57:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Ada}}==
Line 63:
{{libheader|AWS}}
csv2html.adb:
<
with Ada.Text_IO;
with Templates_Parser;
Line 102:
(Templates_Parser.Parse ("table.tmplt", Translations));
end;
end Csv2Html;</
table.tmplt:
<
@@TABLE@@
<tr>
Line 112:
</tr>
@@END_TABLE@@
</table></
{{out}}
<
<tr>
<td>Character</td>
Line 140:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|ALGOL 68}}==
Line 146:
{{works with|ALGOL 68G|Any - tested with release [http://sourceforge.net/projects/algol68/files/algol68g/algol68g-1.18.0/algol68g-1.18.0-9h.tiny.el5.centos.fc11.i386.rpm/download 1.18.0-9h.tiny].}}
{{wont work with|ELLA ALGOL 68|Any (with appropriate job cards) - tested with release [http://sourceforge.net/projects/algol68/files/algol68toc/algol68toc-1.8.8d/algol68toc-1.8-8d.fc9.i386.rpm/download 1.8-8d] - due to extensive use of '''format'''[ted] ''transput''.}}
<
[6]STRING rows := []STRING(
Line 214:
elbat;
ydob;
lmth</
{{out}}
<
<HEAD>
<TITLE>CSV to HTML translation - Extra Credit</TITLE>
Line 234:
</TABLE>
</BODY>
</HTML></
=={{header|ANTLR}}==
===Java===
<
// Create an HTML Table from comma seperated values
// Nigel Galloway - June 2nd., 2013
Line 248:
field : Field{System.out.println("<TD>" + $Field.text.replace("<","<").replace(">",">") + "</TD>");};
Field : ~[,\n\r]+;
</syntaxhighlight>
=={{header|Applesoft BASIC}}==
<syntaxhighlight lang=gwbasic> 100 DATA "Character,Speech"
110 DATA "The multitude,The messiah! Show us the messiah!"
120 DATA "Brian's mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>"
130 DATA "The multitude,Who are you?"
140 DATA "Brian's mother,I'm his mother; that's who!"
150 DATA "The multitude,Behold his mother! Behold his mother!"
160 DATA
170 LET M$ = CHR$ (13)
180 LET Q$ = CHR$ (34)
190 LET TRUE = NOT FALSE
200 LET HEADER = TRUE
210 DIM C(255),H$(4,1)
220 LET H$(1,0) = "</TD><TD>"
230 LET H$(2,0) = "<"
240 LET H$(3,0) = ">"
250 LET H$(4,0) = "&"
260 FOR I = 1 TO 4
270 LET C( ASC ( MID$ (",<>&",I,1))) = I
280 LET H$(I,HEADER) = H$(I,0)
290 NEXT I
300 LET H$(1,1) = "</TH><TH>"
310 PRINT "<!DOCTYPE HTML>"M$"<HTML>"M$"<HEAD>"M$"</HEAD>"M$"<BODY>"
320 PRINT "<TABLE BORDER="Q$"1"Q$" CELLPADDING="Q$"10"Q$" CELLSPACING="Q$"0"Q$">"
330 READ CSV$
340 FOR Q = 0 TO 1 STEP 0
350 PRINT "<TR><T" MID$ ("DH",1 + HEADER,1)">";
360 FOR I = 1 TO LEN (CSV$)
370 LET C$ = MID$ (CSV$,I,1)
380 LET H = C( ASC (C$))
390 PRINT H$(H,HEADER) MID$ (C$,1,H = 0);
400 NEXT I
410 PRINT "</T" MID$ ("DH",1 + HEADER,1)"></TR>"
420 LET HEADER = FALSE
430 READ CSV$
440 LET Q = CSV$ = ""
450 NEXT Q
460 PRINT "</TABLE>"M$"</BODY>"M$"</HTML>"</syntaxhighlight>
=={{header|Arturo}}==
<syntaxhighlight lang=rebol>in: {
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!
}
table: function [content]
-> join @["<table>" join content "</table>"]
row: function [data]
-> join @[
"<tr><td>" escape.xml first data "</td>"
"<td>" escape.xml last data "</td></tr>"
]
print table map read.csv in => row</syntaxhighlight>
{{out}}
<table><tr><td>Character</td><td>Speech</td></tr><tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr><tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr><tr><td>The multitude</td><td>Who are you?</td></tr><tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr><tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr></table>
=={{header|AutoHotkey}}==
Very basic implementation
<
(
Character,Speech
Line 276 ⟶ 340:
return str
}
MsgBox % clipboard := TableData</
{{out}}
<pre><table>
Line 288 ⟶ 352:
=={{header|AutoIt}}==
<
Local $ascarray[4] = [34,38,60,62]
$String = "Character,Speech" & @CRLF
Line 317 ⟶ 381:
$newstring &= "</table>"
ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $newstring = ' & $newstring & @crlf & '>Error code: ' & @error & @crlf) ;### Debug Console
</syntaxhighlight>
{{out}}
Line 354 ⟶ 418:
Includes extra credit.<br />
File csv2html.awk
<
BEGIN {
FS=","
Line 377 ⟶ 441:
print "</table>"
}
</syntaxhighlight>
<pre>$ awk -f csv2html.awk input.csv</pre>
<
<tr>
<td>Character</td>
Line 405 ⟶ 469:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
Extra credit:
<pre>$ awk -v header=1 -f csv2html.awk input.csv</pre>
<
<tr>
<th>Character</th>
Line 435 ⟶ 499:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|Batch File}}==
<
::But well, a decent implementation!
@echo off
Line 469 ⟶ 533:
endlocal
)
echo ^</table^></
{{out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 478 ⟶ 542:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|BBC BASIC}}==
{{works with|BBC BASIC for Windows}}
<
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>"
Line 524 ⟶ 588:
SYS "ShellExecute", @hwnd%, 0, "CSVtoHTML.htm", 0, 0, 1
</syntaxhighlight>
{{out}}
<pre><HTML>
Line 549 ⟶ 613:
Note that right angle brackets are deliberately not escaped, since that is not strictly necessary for the markup to be valid.
<
v >0>::65*1+`\"~"`!*#v_4-5v >
v>#^~^<v"<tr><td>" < \v-1/<>">elb"
Line 557 ⟶ 621:
>^>\#v_$$0";pma&" v>"/<>d"v5 v , <
$ > \#v_$0";tl&"v v"</t"<0 > : |
^_>#!,#:<>#<0#<\#<<< >:#,_$#^_v@ $<</
{{out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 566 ⟶ 630:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Bracmat}}==
===Extra credit solution using pattern matching ===
This is not the most concise solution, but it is relatively efficient. To collect the lines we use a pattern that matches a line starting from position <code>[!p</code>. Each time a line is matched, <code>p</code> is updated, the two found elements are collected and the pattern is forced to fail, so the pattern matcher finds the next line. The found rows are collected in reverse order, because prepending to a list is faster than appending. When all lines are read, the collected lines are reversed, interspersed with newline characters. Finally the predefined function toML is used to create HTML.
<
= p q Character Speech swor rows row
. 0:?p
Line 602 ⟶ 666:
"
)
</syntaxhighlight>
Output:
<
<tbody><tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
<tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr>
Line 610 ⟶ 674:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</tbody></table></
===Simple solution NOT using pattern matching ===
Line 619 ⟶ 683:
In the code below, we use <code>vap</code> with a third argument, a splitting separator character. The outer call to <code>vap</code> splits a text into rows. An embedded call to <code>vap</code> splits each row into cell elements. This code is very efficient.
<
=
. toML
Line 641 ⟶ 705:
The multitude,Behold his mother! Behold his mother!
"
)</
===Extra credit solution===
<
=
. toML
Line 682 ⟶ 746:
The multitude,Behold his mother! Behold his mother!
"
)</
Output:
<
<table><thead><tr><th>Character</th><th>Speech</th></tr>
</thead><tbody><tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 693 ⟶ 757:
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
<tr><td /></tr>
</tbody></table></
=={{header|C}}==
<
const char *input =
Line 725 ⟶ 789:
return 0;
}</
{{out}}
Line 732 ⟶ 796:
$ ./csv</pre>
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 739 ⟶ 803:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|C sharp|C#}}==
===Simple Solution===
<
using System;
using System.Collections.Generic;
Line 778 ⟶ 842:
}
}
</syntaxhighlight>
{{out}} when using the text suggested:
<
<table><tr><td>Character</td><td>Speech</td></tr><tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr><tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr><tr><td>The multitude</td><td>Who are you?</td></tr><tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr><tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr></table>
</syntaxhighlight>
===Extra Credit Solution===
<
using System.Linq;
using System.Net;
Line 840 ⟶ 904:
}
}
}</
{{out|Sample HTML Output}}
<
<tr>
<th>Character</th>
Line 868 ⟶ 932:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|C++}}==
<
#include <boost/regex.hpp>
#include <iostream>
Line 902 ⟶ 966:
tabletext.append( "</TABLE>\n" ) ;
return tabletext ;
}</
{{out}}
<
<TABLE>
<TR><TD>Character</TD><TD>Speech</TD></TR>
Line 913 ⟶ 977:
<TR><TD>The multitude</TD><TD>Behold his mother! Behold his mother!</TD></TR>
</TABLE>
</syntaxhighlight>
=={{header|Clojure}}==
Line 919 ⟶ 983:
We assume the presence of a file, but the input could come from anywhere.
<
Character,Speech
The multitude,The messiah! Show us the messiah!
Line 926 ⟶ 990:
Brians mother,I'm his mother; that's who!
The multitude,Behold his mother! Behold his mother!
</syntaxhighlight>
<
(require 'clojure.string)
Line 960 ⟶ 1,024:
tbl (map #(clojure.string/split % #",") lines)]
(println (to-html tbl)))
</syntaxhighlight>
{{out}}
<
<table><tbody><tr><td>Character</td><td>Speech</td></tr><tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr><tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr><tr><td>The multitude</td><td>Who are you?</td></tr><tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr><tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr></tbody></thead>
</syntaxhighlight>
=={{header|CoffeeScript}}==
Line 971 ⟶ 1,035:
{{works with|node.js}}
<
this.replace(/&/g, '&')
.replace(/</g, '<')
Line 1,009 ⟶ 1,073:
</tbody>
</table>
"""</
{{out}}
<
<thead>
<th scope="col">Character</th>
Line 1,029 ⟶ 1,093:
<td>Behold his mother! Behold his mother!</td>
</tbody>
</table></
=={{header|Common Lisp}}==
<
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>
Line 1,085 ⟶ 1,149:
(dolist (row rows)
(format html "~C~A~C" #\Tab (html-row row nil) #\Newline))
(write-string "</table>" html))))</
<pre>CL-USER> (csv->html *csv*)</pre>
{{out}}
<
<tr><th>Character</th><th>Speech</th></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 1,097 ⟶ 1,161:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|D}}==
{{trans|C}}
<
import std.stdio;
Line 1,137 ⟶ 1,201:
"</td></tr>\n</tbody>\n</table>\n\n</body></html>".write;
}</
{{out}}
<
<head><meta charset="utf-8"></head>
<body>
Line 1,157 ⟶ 1,221:
</body>
</html></
=={{header|Delphi}}==
Line 1,163 ⟶ 1,227:
This solution solves both the basic and extra credit tasks.
<
{$APPTYPE CONSOLE}
Line 1,335 ⟶ 1,399:
// Keep console window open
Readln;
end.</
{{out|Basic output}}
<
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
Line 1,366 ⟶ 1,430:
</table>
</body>
</html></
{{out|Extra credit output}}
<
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
Line 1,397 ⟶ 1,461:
</table>
</body>
</html></
=={{header|EasyLang}}==
<syntaxhighlight>
h$ = "<table border=1>\n<tr><th>"
repeat
s$ = input
until s$ = ""
write h$
for c$ in strchars s$
if c$ = ","
if scnd = 0
c$ = "</th><th>"
else
c$ = "</td><td>"
.
elif c$ = "<"
c$ = "<"
elif c$ = ">"
c$ = ">"
elif c$ = "&"
c$ = "&"
.
write c$
.
if scnd = 0
h$ = "</th></tr>\n<tr><td>"
scnd = 1
else
h$ = "</td></tr>\n<tr><td>"
.
.
print "</td></tr>\n</table>"
#
input_data
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!
</syntaxhighlight>
{{out}}
<table border=1>
<tr><th>Character</th><th>Speech</th></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
<tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr>
<tr><td>The multitude</td><td>Who are you?</td></tr>
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table>
=={{header|EchoLisp}}==
<
;; CSV -> LISTS
(define (csv->row line) (string-split line ","))
Line 1,431 ⟶ 1,546:
(style 'table "border-spacing: 10px;border:28px ridge orange") ;; special biblical border
(style 'th "color:blue;")
</syntaxhighlight>
{{out}}
<
;; changed <angry> to <b> to show that html tags inside text are correctly transmitted.
(define MontyPython #<<
Line 1,451 ⟶ 1,566:
(task MontyPython)
</syntaxhighlight>
<table style='border-spacing: 10px;border:28px ridge orange'> <tr> <th style='color:blue;'> Character </th> <th style='color:blue;'> Speech </th> </tr> <tr> <td style='text-align:left'> The multitude </td> <td style='text-align:left'> The messiah! Show us the messiah! </td> </tr> <tr> <td style='text-align:left'> Brians mother </td> <td style='text-align:left'> <b>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</b> </td> </tr> <tr> <td style='text-align:left'> The multitude </td> <td style='text-align:left'> Who are you? </td> </tr> <tr> <td style='text-align:left'> Brians mother </td> <td style='text-align:left'> I'm his mother; that's who! </td> </tr> <tr> <td style='text-align:left'> The multitude </td> <td style='text-align:left'> Behold his mother! Behold his mother! </td> </tr> </table>
Line 1,457 ⟶ 1,572:
=={{header|Erlang}}==
Using functions from [[Create_an_HTML_table]]
<
-module( csv_to_html ).
Line 1,478 ⟶ 1,593:
Brians mother,I'm his mother; that's who!
The multitude,Behold his mother! Behold his mother!".
</syntaxhighlight>
{{out}}
Line 1,486 ⟶ 1,601:
{{trans|C}}
{{works with|Euphoria|4.*}}
<
"The multitude,The messiah! Show us the messiah!\n" &
"Brians mother,<angry>Now you listen here! He's not the messiah; " &
Line 1,505 ⟶ 1,620:
end switch
end for
puts(1,"</td></tr>\n</table>")</
{{out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 1,515 ⟶ 1,630:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|F_Sharp|F#}}==
Use .NET XmlWriter.
Stylesheet styling is applied only when command line option <tt>-h</tt> ist given.
<
open System.Text
open System.Xml
Line 1,573 ⟶ 1,688:
x.WriteEndElement() // tr
x.Close()
0</
{{out}} (stylesheet version)
<div style="font-size:70%">
<
<!DOCTYPE HTML >
<html>
Line 1,620 ⟶ 1,735:
</table>
</body>
</html></
=={{header|Factor}}==
<syntaxhighlight lang
"Character,Speech
Line 1,635 ⟶ 1,747:
The multitude,Behold his mother! Behold his mother!"
string>csv [ simple-table. ] with-html-writer pprint-xml</syntaxhighlight>
{{out}}
<syntaxhighlight lang=html5><table style="display: inline-table; border-collapse: collapse;">
<tr>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
Character
</td>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
Speech
</td>
</tr>
<tr>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
The multitude
</td>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
The messiah! Show us the messiah!
</td>
</tr>
<tr>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
Brians mother
</td>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
<angry>Now you listen here! He's not the messiah; he's a very
naughty boy! Now go away!</angry>
</td>
</tr>
<tr>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
The multitude
</td>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
Who are you?
</td>
</tr>
<tr>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
Brians mother
</td>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
I'm his mother; that's who!
</td>
</tr>
<tr>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
The multitude
</td>
<td valign="top" style="border: 1px solid #cccccc; padding: 2px; ">
Behold his mother! Behold his mother!
</td>
</tr>
</table>
<br/></syntaxhighlight>
=={{header|Forth}}==
Line 1,669 ⟶ 1,807:
{{trans|C}}
<
: END-COLUMN ." </td>" ;
Line 1,690 ⟶ 1,828:
;
CSV2HTML BYE</
{{out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 1,701 ⟶ 1,839:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Fortran}}==
Line 1,713 ⟶ 1,851:
The check for a comma is not <code>ALINE(I:I).EQ.","</code> because in other work this usage has been found to evoke astoundingly bad code, notably that ''both'' appearances of "I" are checked as being within bounds, and, the length is calculated by subtracting the "first" (I) from the "last" (also I) at run time! At least by the COMPAQ F90/95 compiler. By contrast, the ICHAR usage, which can only be for a single character, lacks this madness and far superior speed results. Not important in this example, but it explains why this puzzling usage appeared in a prog. at the Culham Science Centre in source from an IBM mainframe.
<
SUBROUTINE CSVTEXT2HTML(FNAME,HEADED) !Does not recognise quoted strings.
Converts without checking field counts, or noting special characters.
Line 1,785 ⟶ 1,923:
CALL CSVTEXT2HTML("Text.csv",.TRUE.) !The first line is a heading.
END
</syntaxhighlight>
{{Output}}
<pre>
Line 1,828 ⟶ 1,966:
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</Table>
=={{header|FreeBASIC}}==
<syntaxhighlight lang=freebasic>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</syntaxhighlight>
=={{header|FutureBasic}}==
FB has a native Macintosh web browser, so the HTML output, along with extra credit, is shown in the accompanying screenshot. This code produces a complete, launchable application.
<syntaxhighlight lang=futurebasic>
output file "CSV2HTML"
include "Tlbx WebKit.incl"
_window = 1
begin enum output 1
_webView
end enum
void local fn BuildWindow
CGRect r = fn CGRectMake( 0, 0, 600, 220 )
window _window, @"Rosetta Code CSV to HTML", r, NSWindowStyleMaskTitled + NSWindowStyleMaskClosable
r = fn CGRectMake( 20, 20, 560, 180 )
wkwebview _webView, r,, _window
end fn
local fn CSV2HTML as CFStringRef
NSUInteger i, count
CFStringRef csvStr = @"Character,Speech\n¬
The multitude,The messiah! Show us the messiah!\n¬
Brians mother,Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!\n¬
The multitude,Who are you\n¬
Brians mother,I'm his mother; that's who!\n¬
The multitude,Behold his mother! Behold his mother!"
CFArrayRef linesArray = fn StringComponentsSeparatedByString( csvStr, @"\n" )
CFMutableStringRef htmlStr = fn MutableStringWithCapacity(0)
MutableStringAppendString( htmlStr, @"<table style=\"background:#eee;\">\n" )
MutableStringAppendString( htmlStr, @"<tr bgcolor=wheat><th>Character</th><th>Speech</th></tr>" )
MutableStringAppendString( htmlStr, @"<caption>From Monty Python's \"The Life of Brian\"</caption>\n" )
count = len( linesArray )
for i = 1 to count - 1
CFStringRef tempStr = linesArray[i]
CFArrayRef tempArr = fn StringComponentsSeparatedByString( tempStr, @"," )
MutableStringAppendString( htmlStr, @"<tr>\n" )
MutableStringAppendString( htmlStr, fn StringWithFormat( @"<td style=\"width:120px;\"><b>%@</b></td>>\n", tempArr[0] ) )
MutableStringAppendString( htmlStr, fn StringWithFormat( @"<td><i>%@</i></td>\n", tempArr[1] ) )
MutableStringAppendString( htmlStr, @"</tr>\n" )
next
MutableStringAppendString( htmlStr, @"</table><br></br>" )
end fn = fn StringWithString( htmlStr )
local fn LoadHTML2WebView
CFStringRef htmlStr = fn CSV2HTML
fn WKWebViewLoadHTMLString( _webView, htmlStr, NULL )
end fn
void local fn DoDialog( ev as long, tag as long, wnd as long, obj as CFTypeRef )
select (ev)
case _windowWillClose : end
end select
end fn
on dialog fn DoDialog
fn BuildWindow
fn LoadHTML2WebView
HandleEvents
</syntaxhighlight>
{{output}}
[[File:CSV to HTML.png]]
=={{header|Go}}==
<
import (
Line 1,866 ⟶ 2,127:
`)).Execute(&b, data)
return b.String(), err
}</
Extra credit version accepts -h command line option to do the special formatting for the heading line.
<
import (
Line 1,924 ⟶ 2,185:
</table>
`
)</
{{out}}
Extra credit version with -h
<
<thead>
<tr><th>Character</th><th>Speech</th></tr>
Line 1,938 ⟶ 2,199:
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</tbody>
</table></
Basic version, or extra credit version without -h
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 1,947 ⟶ 2,208:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Groovy}}==
Line 1,953 ⟶ 2,214:
===Solution #1: Nested GStrings===
Brute force solution using nested GStrings. It solves both the basic and extra credit tasks.
<
"<td>${cell.replaceAll('&','&').replaceAll('<','<')}</td>"
}
Line 1,990 ⟶ 2,251:
<body>${formatTable(csv, header)}</body>
</html>"""
}</
'''Test:'''
<
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>
Line 2,009 ⟶ 2,270:
println '-----------------------------------------'
println (formatPage('Extra Credit', csv, true))
println '-----------------------------------------'</
{{out|Basic output}}
<div style="height:30ex;overflow:scroll;"><
<head>
<title>Basic</title>
Line 2,030 ⟶ 2,291:
</table>
</body>
</html></
[[File:Groovy-csv-to-html-basic.jpg]] <br>Appearance as rendered in Google Chrome.
{{out|Extra Credit output}}
<div style="height:30ex;overflow:scroll;"><
<head>
<title>Extra Credit</title>
Line 2,056 ⟶ 2,317:
</table>
</body>
</html></
[[File:Groovy-csv-to-html-extra.jpg]] <br>Appearance as rendered in Google Chrome.
===Solution #2: MarkupBuilder===
A much cleaner solution using the Groovy XML MarkupBuilder class. It solves both the basic and extra credit tasks.
<
def formatRow = { doc, row ->
Line 2,090 ⟶ 2,351:
}
writer.toString()
}</
'''Test:'''<br/>
Line 2,096 ⟶ 2,357:
{{out|Basic output}}
<div style="height:30ex;overflow:scroll;"><
<head>
<title>Basic</title>
Line 2,132 ⟶ 2,393:
</table>
</body>
</html></
The HTML for this solution looks superficially different than that from the GString solution, but the appearance as rendered in Google Chrome is identical.
'''Extra Credit output:'''
<div style="height:30ex;overflow:scroll;"><
<head>
<title>Extra Credit</title>
Line 2,177 ⟶ 2,438:
</table>
</body>
</html></
The HTML for this solution looks superficially different than that from the GString solution, but the appearance as rendered in Google Chrome is identical.
Line 2,183 ⟶ 2,444:
=={{header|Haskell}}==
'''Simple solution'''
<
splitOn :: Char -> String -> [String] -- otherwise
splitOn delim = foldr (\x rest ->
Line 2,208 ⟶ 2,469:
in "<table>\n" ++ html ++ "</table>"
main = interact csvToTable</
'''Compact version'''
<
split p = unfoldr (\s -> case dropWhile p s of [] -> Nothing
ss -> Just $ break p ss)
Line 2,221 ⟶ 2,482:
'&' -> "&"; '"' -> """; _ -> [c]}) x
++ "</td>\n") cols)
++ "</tr>") . split (==',')) $ lines csv) ++ "</table>")</
;Output:
<div style="height:30ex;overflow:scroll;"><
<tr>
<td>Character</td>
Line 2,249 ⟶ 2,510:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|Icon}} and {{header|Unicon}}==
Line 2,257 ⟶ 2,518:
to the procedure writes or a 1 (for more on this see [[Icon%2BUnicon/Intro#Conjunction.2C_yielding_a_different_result|Introduction to Icon/Unicon - Conjunction yielding different results]]).
<
pchar := &letters ++ &digits ++ '!?;. ' # printable chars
Line 2,276 ⟶ 2,537:
write(" </TBODY>")
write("</TABLE>")
end</
{{Out}}
<
<THEAD>
<TR><TD>Character</TD><TD>Speech</TD></TR>
Line 2,290 ⟶ 2,551:
<TR><TD>The multitude</TD><TD>Behold his mother! Behold his mother!</TD></TR>
</TBODY>
</TABLE></
=={{header|J}}==
'''Solution (extra credit)'''
<
encodeHTML=: ('&';'&';'<';'<';'>';'>')&stringreplace
Line 2,315 ⟶ 2,576:
end.
;markupTable markupRows t
)</
For those interested, equivalent tacit versions of <code>tag</code> and <code>makeHTMLtablefromCSV</code> are:
<
makeHTMLtablefromCSV6=: 0&$: : ([: ; markupTable@markupRows@([ markupCells`(markupHdrCells@{. , markupCells@}.)@.[ fixcsv@encodeHTML))</
'''Example'''
<
Character,Speech
The multitude,The messiah! Show us the messiah!
Line 2,330 ⟶ 2,591:
The multitude,Behold his mother! Behold his mother!
)
1 makeHTMLtablefromCSV CSVstrng</
{{Out|HTML output}}
<
<tr><th>Character</th><th>Speech</th></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 2,339 ⟶ 2,600:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Java}}==
'''Simple solution without escaping for Java v8+'''
<
// Use Collectors.joining(...) for streaming, otherwise StringJoiner
StringBuilder html = new StringBuilder("<table>\n");
Line 2,351 ⟶ 2,612:
html.append(Arrays.stream(row.split(",")).collect(collector));
}
html.append("</table>\n");</
'''Solution including simple and extra credit version'''
Line 2,359 ⟶ 2,620:
<tt>for extended solution: java -cp . Csv2Html header < text.csv</tt>
<
import java.io.InputStreamReader;
import java.io.PrintStream;
Line 2,445 ⟶ 2,706:
}
}
</syntaxhighlight>
{{out|simple solution}}
<
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="Content-type" content="text/html;charset=UTF-8"/>
Line 2,465 ⟶ 2,726:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></body></html></
{{out|extended}}
<
<html xmlns="http://www.w3.org/1999/xhtml">
<head><meta http-equiv="Content-type" content="text/html;charset=UTF-8"/>
Line 2,485 ⟶ 2,746:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></body></html></
=={{header|JavaScript}}==
<
"The multitude,The messiah! Show us the messiah!\n" +
"Brians mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>\n" +
Line 2,507 ⟶ 2,768:
'\t</tbody>\n</table>');
</syntaxhighlight>
<
<thead>
<tr><td>Character</td><td>Speech</td></tr>
Line 2,520 ⟶ 2,781:
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</tbody>
</table></
{{out}}
<
<thead>
<tr><td>Character</td><td>Speech</td></tr>
Line 2,533 ⟶ 2,794:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr> </tbody>
</table></
=={{header|jq}}==
We will assume the input is in a file named csv2html.csv, and that the jq program as given below is in a file named csv2html.jqn. To simplify things, we will invoke the jq processor twice -- the first invocation simply converts the text input into a sequence of JSON strings:
<
</
[" <thead> <tr>"]
+ (split(",") | map(" <th>\(@html)</th>"))
Line 2,559 ⟶ 2,820:
;
csv2html | .[]</
===Output===
<
<thead> <tr>
<th>Character</th>
Line 2,587 ⟶ 2,848:
<td>Behold his mother! Behold his mother! </td>
</tr>
</table></
=={{header|Jsish}}==
From Javascript entry.
<
var csv = "Character,Speech\n" +
"The multitude,The messiah! Show us the messiah!\n" +
Line 2,627 ⟶ 2,888:
</table>
=!EXPECTEND!=
*/</
{{out}}
Line 2,634 ⟶ 2,895:
=={{header|Julia}}==
<
using CSV, DataFrames
Line 2,704 ⟶ 2,965:
print(csv2html("input.csv", header=true))
</
<
<head>
Line 2,769 ⟶ 3,030:
</table>
</body>
</html></
=={{header|Kotlin}}==
<
val csv =
Line 2,825 ⟶ 3,086:
sb.append("</td>\n$i$i</tr>\n$i</tbody>\n</table>")
println(sb.toString())
}</
{{out}}
<
<tr>
<td>Character</td>
Line 2,885 ⟶ 3,146:
</tbody>
</table>
</syntaxhighlight>
=={{header|Lambdatalk}}==
<syntaxhighlight lang=scheme>
{def CSV
Character,Speech\n
The multitude,The messiah! Show us the messiah!\n
Brians mother,Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!\n
The multitude,Who are you\n
Brians mother,I'm his mother; that's who!\n
The multitude,Behold his mother! Behold his mother!\n
}
-> CSV
{def csv2html
{lambda {:csv}
{table {@ style="background:#eee;"}
{S.replace ([^,]*),([^_]*)_
by {tr {td {@ style="width:120px;"}{b €1}} {td {i €2}}}
in {S.replace \\n by _ in :csv}}}}}
-> csv2html
{csv2html {CSV}} ->
</syntaxhighlight>
{{out}}
<table style="background:#eee;"><tr><td style="width:120px;"><b>Character</b></td> <td><i>Speech</i></td></tr><tr><td style="width:120px;"><b> The multitude</b></td> <td><i>The messiah! Show us the messiah!</i></td></tr><tr><td style="width:120px;"><b> Brians mother</b></td> <td><i>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</i></td></tr><tr><td style="width:120px;"><b> The multitude</b></td> <td><i>Who are you</i></td></tr><tr><td style="width:120px;"><b> Brians mother</b></td> <td><i>I'm his mother; that's who!</i></td></tr><tr><td style="width:120px;"><b> The multitude</b></td> <td><i>Behold his mother! Behold his mother!</i></td></tr></table>
=={{header|Liberty BASIC}}==
<syntaxhighlight lang=lb>
newline$ ="|"
' No escape behaviour, so can't refer to '/n'.
Line 2,925 ⟶ 3,211:
print "</HTML>"
end
</syntaxhighlight>
{{Out}}
<pre>
Line 2,953 ⟶ 3,239:
=={{header|Lua}}==
<
csv = [[
Line 2,980 ⟶ 3,266:
for _, line in pairs(html) do
print(line)
end</
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 2,989 ⟶ 3,275:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|M2000 Interpreter}}==
<syntaxhighlight lang="m2000 interpreter">
module csv2html {
nl$={
}
Repl$=lambda$ (a$) ->{
a$=replace$("&", "&",a$)
a$=replace$(">", ">",a$)
a$=replace$("""", """,a$)
// add any other replacement here
=replace$("<", "<",a$)
}
Tag$=lambda$ nl$, repl$ (a$, b$, n=4)->{
if n>0 then
a$=rtrim$(replace$(nl$, nl$+string$(" ", n), nl$+a$))
if right$(a$,2)<>nl$ then a$+=nl$
else
if right$(a$, 2)=nl$ then if left$(a$,2)<>nl$ then a$=nl$+a$
end if
prop=(,) : Read ? prop // forth parameter optional (we have to initalize first with an empty array)
p=each(prop) : prop$="" // p is an iteration object.
while p
prop$+=" "+repl$(prop#val$(p^))+"="+quote$(repl$(prop#val$(p^+1)))
p=each(prop,p^+2) // start new from p^+2 (p^ is the internal counter)
end while
="<"+b$+prop$+">"+a$+"</"+b$+">"+nl$
}
// Prepare FILE csv
tofile$={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!
}
open "forHtml.csv" for wide output as #f
Print #f, tofile$;
close #f
// prepare the input style for Input from file statement
// "," - we use comma between fields
// "." - for numbers we use dot for decimal separator
// false - we didn't read json style strings to normal strings (so \n convert to code 13, \t to code 9)
// true - we read strings unquote
input with ",",".",false, true
// Read csv file
i=1
document export$=""
Open "forHtml.csv" for wide input as #f
while not eof(#f)
input #f, a$, b$
a$=repl$(a$)
b$=repl$(b$)
if i=1 then
export$+=tag$(tag$(a$, "th", 0)+tag$(b$,"th", 0), "tr", 4)
else
export$+=tag$(tag$(a$, "td", 0)+tag$(b$,"td", 0), "tr", 4)
end if
i++
end while
close #f
style$=tag$({TD {background-color:#ddddff; }
thead TD {background-color:#ddffdd; text-align:center; }
},"style",4,("type", "text/css"))
title$= tag$("CSV to HTML translation - Extra Credit","title",0)
Head$= tag$(title$+ style$,"head")
html$={<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">}+nl$+tag$(head$+tag$(tag$(export$, "table"), "body"), "html")
clipboard html$
Report html$
Print "Press Esc to exit browser"
browser "about: "+html$
}
csv2html
</syntaxhighlight>
{{out}}
<pre>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN">
<html>
<head>
<title>CSV to HTML translation - Extra Credit</title>
<style type="text/css">
TD {background-color:#ddddff; }
thead TD {background-color:#ddffdd; text-align:center; }
</style>
</head>
<body>
<table>
<tr>
<th>Character</th>
<th>Speech</th>
</tr>
<tr>
<td>The multitude</td>
<td>The messiah! Show us the messiah!</td>
</tr>
<tr>
<td>Brians mother</td>
<td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td>
</tr>
<tr>
<td>The multitude</td>
<td>Who are you?</td>
</tr>
<tr>
<td>Brians mother</td>
<td>I'm his mother; that's who!</td>
</tr>
<tr>
<td>The multitude</td>
<td>Behold his mother! Behold his mother!</td>
</tr>
</table>
</body>
</html>
</pre>
=={{header|Maple}}==
<
html_table := proc(str)
local char;
Line 3,020 ⟶ 3,424:
Brians mother,I'm his mother; that's who!
The multitude,Behold his mother! Behold his mother!");
</syntaxhighlight>
{{Out|Output}}
<pre>
Line 3,034 ⟶ 3,438:
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<
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>
Line 3,050 ⟶ 3,454:
StringSplit[StringReplace[a,{","->"</td><td>","<"->"<",">"->">"}],"\n"]//Rest]
,"</table>"]
</syntaxhighlight>
{{Out|Naive}}
<pre>
Line 3,081 ⟶ 3,485:
split it into a cell array, and print it out specifying format.
<
inputString = fileread(csvFileName);
% using multiple regular expressions to clear up special chars
Line 3,097 ⟶ 3,501:
cellfun(@(x)fprintf(1,['\n\t<tr>' sprintf('\n\t\t<td>%s</td>',x{:}) '\n\t</tr>']),tableValues(2:end))
fprintf(1,'\n</table>')
</syntaxhighlight>
As a single line:
<
fprintf(1,['<table>\n\t<tr>\n\t\t<th>',regexprep(regexprep(regexprep(regexprep(regexprep(regexprep(regexprep(regexprep(fileread(cvsFileName),'&','&'),'"','"'),'<','<'),'>','>'),'(?<=(^[^\n\r]*)),','</th>\n\t\t<th>'),'(?<!>)(\r\n|\r|\n)','</td>\n\t<tr>\n\t</tr>\n\t\t<td>'),'</td>\n','</th>\n','once'),',','</td>\n\t\t<td>'),'</td>\n\t</tr>\n</table>\n'])
</syntaxhighlight>
{{Out}}
<
<table>
<tr>
Line 3,130 ⟶ 3,534:
</tr>
</table>
</syntaxhighlight>
=={{header|Maxima}}==
<
outfile: "table.html";
instream: openr(infile);
Line 3,153 ⟶ 3,557:
close(instream);
close(outstream);</
<
<THEAD bgcolor="yellow"><TR><TD>Character</TD><TD>Speech</TD></TR></THEAD>
<TBODY bgcolor="orange"><TR><TD>The multitude</TD><TD>The messiah! Show us the messiah!</TD></TR></TBODY>
Line 3,162 ⟶ 3,566:
<TBODY bgcolor="orange"><TR><TD>Brians mother</TD><TD>I'm his mother; that's who!</TD></TR></TBODY>
<TBODY bgcolor="orange"><TR><TD>The multitude</TD><TD>Behold his mother! Behold his mother!</TD></TR></TBODY>
</TABLE></
=={{header|ML/I}}==
This example carries out the special formatting for extra credit. This is a macro rather than a function, though, due to the nature of ML/I.
===Input===
<
"" CSV to HTML
"" assumes macros on input stream 1, terminal on stream 2
Line 3,220 ⟶ 3,624:
</body>
</html>
]</
===Output===
<
<html>
<head>
Line 3,272 ⟶ 3,676:
</table>
</body>
</html></
=={{header|Nanoquery}}==
<
def toHtmlRow(record, tag)
htmlrow = "\t<tr>\n"
Line 3,306 ⟶ 3,710:
htmltable = htmltable+"</table>"
println htmltable</
=={{header|NetRexx}}==
Uses the [[NetRexx]] solution for [[Read_a_file_line_by_line#Using_Java_Scanner|Read a file line by line]] to read the CSV file into the program.
<
options replace format comments java crossref symbols nobinary
Line 3,430 ⟶ 3,834:
|| ''
return html
</syntaxhighlight>
'''Output:'''
<div style="height:30ex;overflow:scroll;">
<
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="en-US" xml:lang="en-US">
Line 3,516 ⟶ 3,920:
</body>
</html>
</syntaxhighlight>
</div>
Line 3,525 ⟶ 3,929:
=={{header|Nim}}==
{{trans|Python}}
<
const csvtext = """Character,Speech
Line 3,534 ⟶ 3,938:
The multitude,Behold his mother! Behold his mother!"""
proc row2tr(row: string): string =
result = "<tr>"
let cols = xmlEncode(row).split(",")
Line 3,541 ⟶ 3,945:
result.add "</tr>"
proc csv2html(txt: string): string =
result = "<table summary=\"csv2html program output\">\n"
for row in txt.splitLines():
Line 3,547 ⟶ 3,951:
result.add "</table>"
echo csv2html(csvtext)</
{{Out}}
<pre><table summary="csv2html program output">
Line 3,560 ⟶ 3,964:
=={{header|Oberon-2}}==
{{Works with|oo2c Version 2}}
<
MODULE CSV2HTML;
IMPORT
Line 3,633 ⟶ 4,037:
fileChannel.Close()
END CSV2HTML.
</syntaxhighlight>
{{out}}
<pre>
Line 3,648 ⟶ 4,052:
=={{header|Objeck}}==
{{trans|Java}}
<
use Data.CSV;
Line 3,719 ⟶ 4,123:
}
}
</syntaxhighlight>
Output:
Line 3,732 ⟶ 4,136:
but we do not use it hereafter because the CSV data does not contain comas.
<
let csv_data = "\
Line 3,766 ⟶ 4,170:
let () =
print_html_table (list_of_csv csv_data)</
{{Out|Sample html output}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 3,776 ⟶ 4,180:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table> </
===Extra credit solution===
<
let csv_data = "\
Line 3,823 ⟶ 4,227:
let () =
print_html_table (list_of_csv csv_data)</
{{out}}
<
<head>
<style type="text/css">
Line 3,842 ⟶ 4,246:
</tbody>
</table>
</html></
=={{header|OpenEdge/Progress}}==
<
FUNCTION csvToHtml RETURNS CHARACTER (
i_lhas_header AS LOGICAL,
Line 3,895 ⟶ 4,299:
"The multitude,Behold his mother! Behold his mother!"
)
VIEW-AS ALERT-BOX.</
{{out|with header enabled}}
<
<table>
<tr>
Line 3,924 ⟶ 4,328:
</tr>
</table>
</html></
=={{header|Perl}}==
Line 3,930 ⟶ 4,334:
Provide the CSV data as standard input. With a command-line argument, the first row will use <code><th></code> instead of <code><td></code>.
<
sub row {
Line 3,944 ⟶ 4,348:
row @ARGV ? 'th' : 'td', $first;
row 'td', $_ foreach @rest;
print "</table>\n";</
{{Out|Output (with a command-line argument)}}
<
<tr><th>Character</th><th>Speech</th></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 3,954 ⟶ 4,358:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Phix}}==
<!--<syntaxhighlight lang="phix">(phixonline)-->
<span style="color: #008080;">with javascript_semantics</span>
<span style="color: #008080;">constant</span> <span style="color: #000000;">input</span> <span style="color: #0000FF;">=</span> <span style="color: #008000;">"""
Character,Speech
Brians mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>
Brians mother,I'm his mother; that's who!
The multitude,Behold his mother! Behold his mother!"""</span>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"<table>\n<tr><td>"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">for</span> <span style="color: #000000;">i</span> <span style="color: #0000FF;">=</span> <span style="color: #000000;">1</span> <span style="color: #008080;">to</span> <span style="color: #7060A8;">length</span><span style="color: #0000FF;">(</span><span style="color: #000000;">input</span><span style="color: #0000FF;">)</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">switch</span> <span style="color: #000000;">input</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">]</span> <span style="color: #008080;">do</span>
<span style="color: #008080;">case</span> <span style="color: #008000;">'\n'</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"</td></tr>\n<tr><td>"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">case</span> <span style="color: #008000;">','</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"</td><td>"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">case</span> <span style="color: #008000;">'<'</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&lt;"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">case</span> <span style="color: #008000;">'>'</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&gt;"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">case</span> <span style="color: #008000;">'&'</span> <span style="color: #008080;">then</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"&amp;"</span><span style="color: #0000FF;">)</span>
<span style="color: #008080;">case</span> <span style="color: #008080;">else</span> <span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #000000;">input</span><span style="color: #0000FF;">[</span><span style="color: #000000;">i</span><span style="color: #0000FF;">])</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">switch</span>
<span style="color: #008080;">end</span> <span style="color: #008080;">for</span>
<span style="color: #7060A8;">puts</span><span style="color: #0000FF;">(</span><span style="color: #000000;">1</span><span style="color: #0000FF;">,</span><span style="color: #008000;">"</td></tr>\n</table>"</span><span style="color: #0000FF;">)</span>
<!--</syntaxhighlight>-->
{{out}}
<pre>
<table>
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>Brians mother</td><td>&lt;angry&gt;Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!&lt;/angry&gt;</td></tr>
<tr><td>The multitude</td><td>Who are you?</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></pre>
=={{header|PHP}}==
Line 4,014 ⟶ 4,422:
echo convert($csv);
</syntaxhighlight>
=={{header|PicoLisp}}==
===Simple solution===
<
(in "text.csv"
Line 4,025 ⟶ 4,433:
(while (split (line) ",")
(<row> NIL (ht:Prin (pack (car @))) (ht:Prin (pack (cadr @))))
(prinl) ) ) )</
{{Out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 4,034 ⟶ 4,442:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
===Extra credit solution===
<
(in "text.csv"
Line 4,045 ⟶ 4,453:
(while (split (line) ",")
(<row> NIL (ht:Prin (pack (car @))) (ht:Prin (pack (cadr @))))
(prinl) ) ) ) )</
{{Out}}
<
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
<tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr>
Line 4,053 ⟶ 4,461:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|PowerShell}}==
===Simple solution===
<
Import-Csv -Path .\csv_html_test.csv | ConvertTo-Html -Fragment | Out-File .\csv_html_test.html
</syntaxhighlight>
{{Out}}
<
<colgroup>
<col/>
Line 4,073 ⟶ 4,481:
<tr><td>Brians mother</td><td>I'm his mother; that's who! </td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother! </td></tr>
</table></
===Extra credit solution===
<
$htmlformat = '<title>Csv to Html</title>'
$htmlformat += '<style type="text/css">'
Line 4,085 ⟶ 4,493:
Import-Csv -Path .\csv_html_test.csv | ConvertTo-Html -Head $htmlformat -Body '<h1>Csv to Html</h1>' | Out-File .\csv_html_test.html
Invoke-Expression .\csv_html_test.html
</syntaxhighlight>
{{Out}}
<
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
Line 4,109 ⟶ 4,517:
</table>
</body></html>
</syntaxhighlight>
=={{header|Prolog}}==
Line 4,115 ⟶ 4,523:
{{Works with|SWI-Prolog}}
===Simple solution===
<
L = "Character,Speech
The multitude,The messiah! Show us the messiah!
Line 4,168 ⟶ 4,576:
csv_td_in(T, S).
</syntaxhighlight>
{{out}}
<
<TR>
<TD>Character</TD><TD>Speech</TD>
Line 4,190 ⟶ 4,598:
</TR>
</TABLE>
</syntaxhighlight>
===Extra credit solution===
<
L =
"Character,Speech
Line 4,282 ⟶ 4,690:
[H],
csv_body_td_in(T, S).
</syntaxhighlight>
{{out}}
<
<THEAD>
<TR>
Line 4,308 ⟶ 4,716:
</TBODY>
</TABLE>
</syntaxhighlight>
===HTML outputs rendered in firefox browser===
Line 4,318 ⟶ 4,726:
(Note: rendered versions of all three outputs are shown at the foot of this section).
===Simple solution===
<
Character,Speech
The multitude,The messiah! Show us the messiah!
Line 4,345 ⟶ 4,753:
htmltxt = csv2html(csvtxt)
print(htmltxt)</
'''Sample HTML output'''
<
<TBODY><TR><TD>Character</TD><TD>Speech</TD></TR></TBODY>
<TBODY><TR><TD>The multitude</TD><TD>The messiah! Show us the messiah!</TD></TR></TBODY>
Line 4,356 ⟶ 4,764:
<TBODY><TR><TD>Brians mother</TD><TD>I'm his mother; that's who!</TD></TR></TBODY>
<TBODY><TR><TD>The multitude</TD><TD>Behold his mother! Behold his mother!</TD></TR></TBODY>
</TABLE></
===Extra credit solution===
<
cols = escape(row).split(',')
attr_tr = attr.get('TR', '')
Line 4,388 ⟶ 4,796:
)
)
print(htmltxt)</
'''Sample HTML output'''
Line 4,394 ⟶ 4,802:
The raw HTML would not render correctly through the wiki interface but shows a suitably coloured table with cell borders.
-->
<
<THEAD bgcolor="yellow"><TR><TD>Character</TD><TD>Speech</TD></TR></THEAD>
<TBODY bgcolor="orange"><TR><TD>The multitude</TD><TD>The messiah! Show us the messiah!</TD></TR></TBODY>
Line 4,401 ⟶ 4,809:
<TBODY bgcolor="orange"><TR><TD>Brians mother</TD><TD>I'm his mother; that's who!</TD></TR></TBODY>
<TBODY bgcolor="orange"><TR><TD>The multitude</TD><TD>Behold his mother! Behold his mother!</TD></TR></TBODY>
</TABLE></
===Robust solution===
Line 4,413 ⟶ 4,821:
Since the version of ElementTree in the standard library does not support pretty-printing, the output it produces is minified. Unlike the "extra credit" version, this doesn't put each <code><TR></code> element in its own <code><TBODY></code>.
<
from xml.etree import ElementTree as ET
Line 4,449 ⟶ 4,857:
})
print(htmltxt.decode('utf8'))</
'''Sample HTML output'''
Line 4,456 ⟶ 4,864:
The only difference between this and The output is semantically identical to the "extra credit" version, but whitespace has been collapsed as if it had been run through a minifier.
-->
<
===HTML outputs rendered in firefox browser===
Line 4,464 ⟶ 4,872:
Using base R functions only, this is a very basic implementation and produces a simple HTML table
<
Opened <- readLines(con = File)
Size <- length(Opened)
Line 4,483 ⟶ 4,891:
Table[length(Table)] <- paste0(Table[length(Table)],"</table>")
writeLines(as.character(Table), HTML)</
'''Sample HTML output:'''
<
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
<tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr>
<tr><td>The multitude</td><td>Who are you?</td></tr>
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr></table></
=={{header|Racket}}==
Uses X-exprs:
<
(define e.g.-CSV
Line 4,523 ⟶ 4,931:
(require xml)
(display (xexpr->string (CSV-lines->HTML-table e.g.-CSV)))</
'''Sample HTML output:'''
<
</tr></thead><tbody><tr><td>The multitude</td><td>The messiah! Show us the messiah!</td>
</tr><tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td>
Line 4,533 ⟶ 4,941:
</tr><tr><td>Brians mother</td><td>I'm his mother; that's who!</td>
</tr><tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td>
</tr></tbody></table></
=={{header|Raku}}==
Line 4,539 ⟶ 4,947:
{{works with|rakudo|2015.09}}
A very lispy solution:
<syntaxhighlight lang=raku
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>
Line 4,566 ⟶ 4,974:
# all whitespace and comments between split(…) and .map
.map({tag 'td', $^cell}))})\ # map those cells as td
.join("\n"); # append a newline for nicer output</
{{Out}}
<
<html>
<head><title>Some Text</title></head>
Line 4,579 ⟶ 4,987:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></body></html></
=={{header|Red}}==
<
csv: {Character,Speech
Line 4,621 ⟶ 5,029:
print csv2html csv ;; call function
write %data.html csv2html csv ;; write to file
</syntaxhighlight>
output
<pre>
Line 4,644 ⟶ 5,052:
=={{header|Retro}}==
<
"Character,Speech
The multitude,The messiah! Show us the messiah!
Line 4,666 ⟶ 5,074:
"</td></tr>\n</table>" puts ;
CSV displayHTML</
{{Out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 4,676 ⟶ 5,084:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|REXX}}==
Line 4,682 ⟶ 5,090:
:::* file:///c:/output.html
:::* file:///c:/outputh.html
<
arg header_ . /*obtain an uppercase version of args. */
wantsHdr= (header_=='HEADER') /*is the arg (low/upp/mix case)=HEADER?*/
Line 4,717 ⟶ 5,125:
exit /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
write: call lineout oFID, left('', 0 || arg(1) )arg(2); return</
Some older REXXes don't have a '''changestr''' BIF, so one is included here ──► [[CHANGESTR.REX]]. <br>
Line 4,826 ⟶ 5,234:
ruby csv2html.rb header
I/O is done through standard input/output.
<
puts '<table summary="csv2html program output">'
Line 4,842 ⟶ 5,250:
end
puts "</table>"</
{{Out}}
<
<tr><th>Character</th><th>Speech</th></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 4,851 ⟶ 5,259:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Run BASIC}}==
The extra credit version has 2 extra lines of code to get the heading.
<
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>
Line 4,878 ⟶ 5,286:
k = instr(strRep$,rep$)
WEND
END FUNCTION</
{{Out}}
<table border=1><TR bgcolor=wheat align=center><th>Character</th><th>Speech</th></TR>
Line 4,889 ⟶ 5,297:
=={{header|Rust}}==
{{trans|C}}
<
"Character,Speech
The multitude,The messiah! Show us the messiah!
Line 4,911 ⟶ 5,319:
println!("</td></tr>\n</table>");
}
</syntaxhighlight>
{{Out}}
<
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 4,920 ⟶ 5,328:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Scala}}==
{{libheader|org.scala-lang.xml}}
Scala has built-in support for XML, so you can freely mix XML literals into your Scala source code. This is nice, because instead of using strings to represent XML, you create XML literals that the compiler can understand and verify. This approach lets you easily generate dynamic XML by interweaving Scala code and XML in the same expressions.<
val header = <head>
<title>CsvToHTML</title>
Line 4,965 ⟶ 5,373:
println(csv2html(csv, true))
}</
<head>
<title>CsvToHTML</title>
Line 5,014 ⟶ 5,422:
</table>
</body>
</html></
=={{header|Sed}}==
File csv2html.sed
<
s|<|\<|g
Line 5,027 ⟶ 5,435:
s|$|</td>\n </tr>|
1s|^|<table>\n|
$s|$|\n</table>|</
<pre>$ sed -f csv2html.sed input.csv</pre>
<
<tr>
<td>Character</td>
Line 5,056 ⟶ 5,464:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|Seed7}}==
Line 5,062 ⟶ 5,470:
function [http://seed7.sourceforge.net/libraries/html_ent.htm#encodeHtmlContent%28in_string%29 encodeHtmlContent],
which replaces characters with HTML entities. E.g.: '<' is replaced by ''&lt;''.
<
include "html_ent.s7i";
Line 5,091 ⟶ 5,499:
end for;
writeln("</table>");
end func;</
{{Out}}
<
<table>
<tr><th>Character</th><th>Speech</th></tr>
Line 5,104 ⟶ 5,512:
<tr><td></td></tr>
</table>
</syntaxhighlight>
{{Out}} viewed with a browser:
Line 5,118 ⟶ 5,526:
=={{header|Sidef}}==
<
func tag(t, d) { "<#{t}>#{d}</#{t}>" }
Line 5,147 ⟶ 5,555:
EOT
print csv2html(str)</
{{out}}
<
<html>
<head><title>Some Text</title></head>
Line 5,159 ⟶ 5,567:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></body></html></
=={{header|Tcl}}==
Line 5,165 ⟶ 5,573:
{{tcllib|html}}
{{tcllib|struct::queue}}
<
package require csv
package require html
Line 5,188 ⟶ 5,596:
}]
[html::closeTag]
}]</
Extra credit version:
<
package require csv
package require html
Line 5,235 ⟶ 5,643:
}]
}]
}]</
{{out}}
<
<tr bgcolor="yellow"><td>Character</td><td>Speech</td></tr>
<tr bgcolor="orange"><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
Line 5,244 ⟶ 5,652:
<tr bgcolor="orange"><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr bgcolor="orange"><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|TUSCRIPT}}==
<
$$ MODE TUSCRIPT
MODE DATA
Line 5,286 ⟶ 5,694:
WRITE html "</table></body></html>"
ENDACCESS/PRINT html
</syntaxhighlight>
=== Output (source code) ===
<
<html>
<head>
Line 5,303 ⟶ 5,711:
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></body></html>
</syntaxhighlight>
=== Output (rendered) ===
[[file:tuscript_csv2html.png|500px|thumb|none|rendered by browser ]]
Line 5,311 ⟶ 5,719:
====Simple====
<
@char,@speech
@(end)
Line 5,323 ⟶ 5,731:
@ (end)
</table>
@(end)</
{{Out}}
<pre>$ txr csv.txr csv.txt</pre>
<
<tr>
<td>Character</td>
Line 5,353 ⟶ 5,761:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
====With Styling====
<
@char,@speech
@(end)
Line 5,385 ⟶ 5,793:
@ (end)
</table>
@(end)</
{{Out}}
<pre>$ txr csv2.txr csv.txt</pre>
<
tr.odd td {
background-color: #CC9999; color: black;
Line 5,425 ⟶ 5,833:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|UNIX Shell}}==
{{works with|bash}}
<syntaxhighlight lang=bash>csv2html() {
IFS=,
echo "<table>"
echo "<thead>"
read -
htmlrow
echo "</thead>"
echo "<tbody>"
while read -
done
echo "</tbody>"
echo "</table>"
}
htmlrow() {
shift
echo "<tr>"
for field
do echo "<$cell>$(escape_html "$field")</$cell>"
done
echo "</tr>"
}
escape_html() {
str=${1//\&/&}
Line 5,461 ⟶ 5,871:
}
csv2html <<-END
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!
END</syntaxhighlight>
{{output}}
<
<thead>
<tr>
<th>Character</th>
<th>Speech</th>
</tr>
</thead>
<tbody>
<tr>
<td>The multitude</td>
</tr>
<tr>
<td>Brians mother</td>
<td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td>
</tr>
<tr>
<td>The multitude</td>
<td>Who are you?</td>
</tr>
<tr>
<td>Brians mother</td>
<td>I'm his mother; that's who!</td>
</tr>
<tr>
<td>The multitude</td>
<td>Behold his mother! Behold his mother!</td>
</tr>
</tbody>
</table></
=={{header|VBA}}==
{{trans|Phix}}<
input_ = "Character,Speech\n" & _
"The multitude,The messiah! Show us the messiah!\n" & _
Line 5,515 ⟶ 5,940:
Next i
Debug.Print "</td></tr>" & vbCrLf & "</table>"
End Sub</
<
<tr><td>
Character</td><td>Speech</td></tr>
Line 5,524 ⟶ 5,949:
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|VBScript}}==
<syntaxhighlight lang=vb>
Set objfso = CreateObject("Scripting.FileSystemObject")
Line 5,561 ⟶ 5,986:
replace_chars = Replace(Replace(s,"<","<"),">",">")
End Function
</syntaxhighlight>
{{out}}
Line 5,572 ⟶ 5,997:
If a block is highlighted, only the block is converted. If no block highlighted, the entire file is converted.
<
BB(0) // convert entire file
BE(File_Size)
Line 5,598 ⟶ 6,023:
Line(1)
}
BB(Clear)</
{{out}}
<
<tr><td>Character</td><td>Speech </td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah! </td></tr>
Line 5,608 ⟶ 6,033:
<tr><td>Brians mother</td><td>I'm his mother; that's who! </td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table></
=={{header|Visual Basic .NET}}==
Line 5,619 ⟶ 6,044:
TextFieldParser is designed to work with files and so makes heavy use of peeking, which results in buggy behavior when signaling end-of-file using the console. The most reliable way seems to be alternately pressing enter and Ctrl+Z after the last character of the last line of data.
<
Module Program
Line 5,661 ⟶ 6,086:
</table>
End Function
End Module</
{{out|input=true}}
<
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>
Line 5,697 ⟶ 6,122:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
=={{header|Wren}}==
{{trans|Kotlin}}
<syntaxhighlight lang="wren">var csv =
"Character,Speech\n" +
"The multitude,The messiah! Show us the messiah!\n" +
"Brians mother,<angry>Now you listen here! He's not the messiah; " +
"he's a very naughty boy! Now go away!</angry>\n" +
"The multitude,Who are you?\n" +
"Brians mother,I'm his mother; that's who!\n" +
"The multitude,Behold his mother! Behold his mother!"
var i = " " // indent
var ii = i + i // double indent
var iii = ii + i // triple indent
var sb = "<table>\n%(i)<tr>\n%(ii)<td>"
for (c in csv) {
sb = sb + ((c == "\n") ? "</td>\n%(i)</tr>\n%(i)<tr>\n%(ii)<td>" :
(c == ",") ? "</td>\n%(ii)<td>" :
(c == "&") ? "&" :
(c == "'") ? "'" :
(c == "<") ? "<" :
(c == ">") ? ">" : c)
}
sb = sb + "</td>\n%(i)</tr>\n</table>"
System.print(sb)
System.print()
// now using first row as a table header
sb = "<table>\n%(i)<thead>\n%(ii)<tr>\n%(iii)<td>"
var hLength = csv.indexOf("\n") + 1 // find length of first row including CR
for (c in csv.take(hLength)) {
sb = sb + ((c == "\n") ? "</td>\n%(ii)</tr>\n%(i)</thead>\n%(i)<tbody>\n%(ii)<tr>\n%(iii)<td>" :
(c == ",") ? "</td>\n%(iii)<td>" : c)
}
for (c in csv.skip(hLength)) {
sb = sb + ((c == "\n") ? "</td>\n%(ii)</tr>\n%(ii)<tr>\n%(iii)<td>" :
(c == ",") ? "</td>\n%(iii)<td>" :
(c == "&") ? "&" :
(c == "'") ? "'" :
(c == "<") ? "<" :
(c == ">") ? ">" : c)
}
sb = sb + "</td>\n%(ii)</tr>\n%(i)</tbody>\n</table>"
System.print(sb)</syntaxhighlight>
{{out}}
<pre>
Same as Kotlin entry.
</pre>
=={{header|XPL0}}==
{{trans|C}}
<syntaxhighlight lang "XPL0">string 0;
char Input, S;
[Input:=
"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!";
Text(0, "<table>^m^j<tr><td>");
S:= Input;
while S(0) do
[case S(0) of
$0A: Text(0, "</td></tr>^m^j<tr><td>");
^,: Text(0, "</td><td>");
^<: Text(0, "<");
^>: Text(0, ">");
^&: Text(0, "&")
other ChOut(0, S(0));
S:= S+1;
];
Text(0, "</td></tr>^m^j</table>");
]</syntaxhighlight>
{{out}}
<pre>
<table>
<tr><td>Character</td><td>Speech</td></tr>
<tr><td>The multitude</td><td>The messiah! Show us the messiah!</td></tr>
<tr><td>Brians mother</td><td><angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry></td></tr>
<tr><td>The multitude</td><td>Who are you?</td></tr>
<tr><td>Brians mother</td><td>I'm his mother; that's who!</td></tr>
<tr><td>The multitude</td><td>Behold his mother! Behold his mother!</td></tr>
</table>
</pre>
=={{header|XSLT 2.0}}==
Line 5,705 ⟶ 6,218:
# Pass as the URI of the input csv as a parameter (named url-of-csv) to your XSLT 2.0 processor
<syntaxhighlight lang=text><xsl:stylesheet
xmlns:xsl="http://www.w3.org/1999/XSL/Transform"
xmlns:xcsvt="http://www.seanbdurkin.id.au/xslt/csv-to-xml.xslt"
Line 5,758 ⟶ 6,271:
<xsl:template match="xcsv:notice" mode="phase-2" />
</xsl:stylesheet></
This style-sheet, when applied to the task input, yields...
<
SYSTEM "about:legacy-compat">
<html lang="en">
Line 5,799 ⟶ 6,312:
</table>
</body>
</html></
=={{header|zkl}}==
<
"The multitude,The messiah! Show us the messiah!\n"
"Brians mother,<angry>Now you listen here! He's not the messiah; he's a very naughty boy! Now go away!</angry>\n"
Line 5,814 ⟶ 6,327:
.pump("<tr>\n","strip",String.fpM("101"," <td>","</td>\n"))+"</tr>\n"
}) + "</table>";
html.println();</
The pump method writes or appends to a sink, in this case a string (eg "<table/>"). The fpM method is function/partial application and takes a string (ones and zeros) to indicate the positional input parameters. So String.fpM("101","a","c")("B") creates a new string "aBc".
{{out}}
<
<tr>
<td>Character</td>
Line 5,842 ⟶ 6,355:
<td>Behold his mother! Behold his mother!</td>
</tr>
</table></
[[Category:CSV]]
[[Category:HTML]]
| |||