Holen Sie sich die maximale Länge für jedes Feld einer DataTable

Question

Mein Ziel ist es, den gesamten Inhalt einer DataTable in eine RichTextBox zu zeigen, so dachte ich über String.Format, um Spalten zu machen, aber ich muss die maximale Länge des Inhalts für jede Spalte wissen.

fand ich den unter C# -Code auf SO aber ich war nicht in der Lage, es zu VB.Net zu übersetzen:

List<int> maximumLengthForColumns = Enumerable.Range(0, dataTable.Columns.Count) 
            .Select(col => dataTable.AsEnumerable() 
            .Select(row => row[col]).OfType<string>() 
            .Max(val => val.Length)).ToList(); 

Jeder Hinweis auf jede andere (und einfacher oder besser) Art und Weise mein Ziel zu erreichen geschätzt wird.

Answer 1

'dtb is the datatable' 
Dim lstMaxLen As New List(Of Integer) 
For Each dcl As DataColumn In dtb.Columns 
    Dim intMaxLen As Integer = 0 
    For Each drw As DataRow In dtb.Rows 
    If drw(dcl.ColumnName).ToString.Length > intMaxLen Then 
     intMaxLen = drw(dcl.ColumnName).ToString.Length 
    End If 
    Next drw 
    lstMaxLen.Add(intMaxLen) 
Next dcl 

Answer 2

Es sollte wie folgt sein:

Dim maximumLengthForColumns As List(Of Integer) = Enumerable.Range(0, DataTable.Columns.Count).[Select](Function(col) dataTable.AsEnumerable().[Select](Function(row) row(col)).OfType(Of String)().Max(Function(val) val.Length)).ToList() 

Der formatierte Code ist als unten (dieses ist nur zur besseren Lesbarkeit):

Dim maximumLengthForColumns As List(Of Integer) = Enumerable.Range(0, dataTableDataTable.Columns.Count) 
               .[Select](Function(col) dataTable.AsEnumerable() 
               .[Select](Function(row) row(col)) 
               .OfType(Of String)().Max(Function(val) val.Length)).ToList()