Data commit

Task/CSV-to-HTML-translation/Visual-Basic-.NET/csv-to-html-translation-1.vb

@@ -0,0 +1,43 @@
+Imports Microsoft.VisualBasic.FileIO
+
+Module Program
+    Sub Main(args As String())
+        Dim parser As TextFieldParser
+        Try
+            If args.Length > 1 Then
+                parser = My.Computer.FileSystem.OpenTextFieldParser(args(1), ",")
+            Else
+                parser = New TextFieldParser(Console.In) With {.Delimiters = {","}}
+            End If
+
+            Dim getLines =
+            Iterator Function() As IEnumerable(Of String())
+                Do Until parser.EndOfData
+                    Yield parser.ReadFields()
+                Loop
+            End Function
+
+            Dim result = CSVTOHTML(getLines(), If(args.Length > 0, Boolean.Parse(args(0)), False))
+
+            Console.WriteLine(result)
+        Finally
+            If parser IsNot Nothing Then parser.Dispose()
+        End Try
+    End Sub
+
+    Function CSVTOHTML(lines As IEnumerable(Of IEnumerable(Of String)), useTHead As Boolean) As XElement
+        Dim getRow = Function(row As IEnumerable(Of String)) From field In row Select <td><%= field %></td>
+
+        CSVTOHTML =
+<table>
+    <%= From l In lines.Select(
+            Function(line, i)
+                If useTHead AndAlso i = 0 Then
+                    Return <thead><%= getRow(line) %></thead>
+                Else
+                    Return <tr><%= getRow(line) %></tr>
+                End If
+            End Function) %>
+</table>
+    End Function
+End Module

Task/CSV-to-HTML-translation/Visual-Basic-.NET/csv-to-html-translation-2.vb

@@ -0,0 +1,34 @@
+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!
+^Z
+^Z
+<table>
+  <thead>
+    <td>Character</td>
+    <td>Speech</td>
+  </thead>
+  <tr>
+    <td>The multitude</td>
+    <td>The messiah! Show us the messiah!</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>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>