Question

是否有一种简单的方法可以在VB.NET中向控制台打印一个可能是多维的数组，以便进行调试（即只检查数组的内容是否正确）。

来自Objective-C背景的NSLog函数打印出格式合理的输出，如下面的一维数组：

myArray {
    0 => "Hello"
    1 => "World"
    2 => "Good Day"
    3 => "To You!"
}

和类似的多维数组（以下是二维数组输出的示例）：

myTwoDArray {
    0 => {
        0 => "Element"
        1 => "Zero"
    }
    1 => {
        0 => "Element"
        1 => "One"
    }
    2 => {
        0 => "Element"
        1 => "Two"
    }
    3 => {
        0 => "Element"
        1 => "Three"
    }
}

Answer 1

我认为没有任何原生（内置）功能可以做到这一点，然而，下面的功能应该可以正常工作。

Public Shared Sub PrintValues(myArr As Array)
  Dim s As String = ""
  Dim myEnumerator As System.Collections.IEnumerator = myArr.GetEnumerator()
  Dim i As Integer = 0
  Dim cols As Integer = myArr.GetLength(myArr.Rank - 1)
  While myEnumerator.MoveNext()
    If i < cols Then
      i += 1
    Else
      'Console.WriteLine()
      s = s & vbCrLf
      i = 1
    End If
    'Console.Write(ControlChars.Tab + "{0}", myEnumerator.Current)
    s = s & myEnumerator.Current & " "
  End While
  'Console.WriteLine()
  MsgBox(s)
End Sub

为了在非控制台应用程序中测试函数，我添加了字符串变量S，当您在控制台应用程序中使用该函数时，您应该可以省略它。

在Visual Basic中打印（多）维数组

1 个答案: