HTML Rendering – Convert Tabbed String to Html Table

Converts a tab-delimited string into an HTML table.

This function parses the tabbed string into rows and columns and generates HTML markup accordingly. If firstRowIsHeader is set to True, the first row is wrapped in <thead> and <th> tags.

      Public Function ConvertTabbedString2HtmlTable(TabbedString As String, 
                               Optional ByVal firstRowIsHeader As Boolean = True) As String

        Dim arRecords As String() = TabbedString.Split(New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
        Dim szToReturn As String = String.Empty

        Try
            For Each szRecord In arRecords

                Dim arFields As String() = szRecord.Split(vbTab)

                If firstRowIsHeader Then
                    szToReturn += "<thead><tr>" + vbCrLf
                    For Each szField In arFields
                        szToReturn += "<th>" + szField + "</th>"
                    Next
                    szToReturn += "</tr></thead>" + vbCrLf
                    firstRowIsHeader = False
                Else
                    szToReturn += "<tr>"
                    For Each szField In arFields
                        szToReturn += "<td>" + szField + "</td>"
                    Next
                    szToReturn += "</tr>" + vbCrLf
                End If

            Next

        Catch ex As Exception
        End Try

        szToReturn = "<table>" + vbCrLf + szToReturn + "</table>"
        Return szToReturn
    End Function

      Public Function ConvertTabbedString2HtmlTable(TabbedString As String, 
                               Optional ByVal firstRowIsHeader As Boolean = True) As String

        Dim arRecords As String() = TabbedString.Split(New String() {vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
        Dim szToReturn As String = String.Empty

        Try
            For Each szRecord In arRecords

                Dim arFields As String() = szRecord.Split(vbTab)

                If firstRowIsHeader Then
                    szToReturn += "<thead><tr>" + vbCrLf
                    For Each szField In arFields
                        szToReturn += "<th>" + szField + "</th>"
                    Next
                    szToReturn += "</tr></thead>" + vbCrLf
                    firstRowIsHeader = False
                Else
                    szToReturn += "<tr>"
                    For Each szField In arFields
                        szToReturn += "<td>" + szField + "</td>"
                    Next
                    szToReturn += "</tr>" + vbCrLf
                End If

            Next

        Catch ex As Exception
        End Try

        szToReturn = "<table>" + vbCrLf + szToReturn + "</table>"
        Return szToReturn
    End Function

Posted by ipercube