Hi Scorpion,
Look what you can do with this code.
Reason HTML you want it fast, this is fast.
I made it after I saw your message so there is not any thing done to make it
look nice.
It is not that much work to let it show nicer.
Public Module main
Public Sub main()
'First the testtable
'As Scorpion wishes a dataset
'Make a datatable with 8 columns
Dim ds As New DataSet
Dim dt As New DataTable("scorpion")
For i As Integer = 0 To 7
Dim dc As New DataColumn(Chr(i + 48))
dt.Columns.Add(dc)
Next
'And 12 rows every column filled with a letter
For i As Integer = 0 To 11
dt.Rows.Add(dt.NewRow)
For y As Integer = 0 To dt.Columns.Count - 1
dt.Rows(i)(y) = Chr(y + 65)
Next
Next
ds.Tables.Add(dt)
----------------------------
Above is to make the test dataset.
----------------------------
Dim Scorpion As New ArrayList
For i As Integer = 0 To ds.Tables("scorpion").Rows.Count - 1
Dim row As New System.Text.StringBuilder
Scorpion.Add(row)
row.Append("<TR><TD>")
For y As Integer = 0 To ds.Tables("scorpion").Columns.Count - 1
row.Append(ds.Tables("scorpion").Rows(i)(y).tostring)
If y <> ds.Tables("scorpion").Columns.Count - 1 Then
row.Append("</TD><TD>")
Else
row.Append("<TD></TR>")
End If
Next
Next
Dim sw As New IO.StreamWriter("C:\Scorpion.html")
sw.WriteLine("<HTML><HEAD></HEAD><BODY><TABLE>")
For i As Integer = 0 To Scorpion.Count - 1
sw.WriteLine(Scorpion(i).ToString)
Next
sw.WriteLine("</TABLE></BODY></HTML>")
sw.Flush()
sw.Close()
End Sub
End Module
