VB.NET打印格式化的表格在控制台窗口

Question

我有一个存储在我想打印到控制台窗口，它是所有排队正确的2维列表数据。

例子：

Dim aList As New List Of(List Of String)) 
aList = AfunctionThatFetchesData 

ALIST

{column 1}   {column 2} {column 3} 
This is some data 0   3 
Some more   1   3 
One more   2   3 

Answer 1

检查出Console.WriteLine，在那里你会看到它使用了composite formatting feature，支持定位参数的文档。所以，你可以使用对齐的东西，例如

Console.WriteLine("{0,-20} {1,-10} {2,-10}", "{column 1}", "{column 2}", "{column 3}") 
Console.WriteLine("{0,-20} {1,-10} {2,-10}", "This is some data", 0, 3) 

导致：

{column 1}   {column 2} {column 3} 
This is some data 0   3 

调整格式字符串的间距和路线会得到你想要的东西。

Answer 2

如果你希望用户能够手动数据输入到一个表：

Console.Write("Enter Data For Column 1: ") 
    Dim Data1 As String = Console.ReadLine 
    Console.Write("Enter Data For Column 2: ") 
    Dim Data2 As String = Console.ReadLine 

    Console.WriteLine("{0,-20} {1,-10} {2,-10}", "{Data Type}", "{Column 1}", "{Column 2}") 
    Console.WriteLine("{0,-20} {1,-10} {2,-10}", "Data Entered:", Data1, Data2) 

    Console.WriteLine("ENTER To Exit: ") 
    Console.ReadLine() 

It should look like this (Click Me).

的