将交错列表读入多维数组
Read Staggerd List into MultiDimensional Array
我有一个保存为文本文件的交错列表,我需要将该文件读入一个多维数组,其中 header 在第一层,它下面的所有行都是第二层等级.
例如:
Greetings
Hello
How are you
Have a great day
Needs
Help
I need a drink
数组(0,0) = 问候语
数组(0,1) = 你好
Array(0,2) = 你好吗
如何遍历此信息并知道它何时到达第二列?
为此使用列表而不是数组会更容易。但是,以下代码将创建一个代表您的类别的参差不齐的数组。
Dim lists As New List(Of String())
Dim currentGroup As New List(Of String)
For Each line As String In IO.File.ReadAllLines(filePath)
If line.StartsWith(" ") Then
currentGroup.Add(line.Trim)
Else
If currentGroup.Count > 0 Then lists.Add(currentGroup.ToArray)
currentGroup = New List(Of String) From {line}
End If
Next
If currentGroup.Count > 0 Then lists.Add(currentGroup.ToArray)
Dim myArray()() As String = lists.ToArray
我有一个保存为文本文件的交错列表,我需要将该文件读入一个多维数组,其中 header 在第一层,它下面的所有行都是第二层等级.
例如:
Greetings
Hello
How are you
Have a great day
Needs
Help
I need a drink
数组(0,0) = 问候语
数组(0,1) = 你好
Array(0,2) = 你好吗
如何遍历此信息并知道它何时到达第二列?
为此使用列表而不是数组会更容易。但是,以下代码将创建一个代表您的类别的参差不齐的数组。
Dim lists As New List(Of String())
Dim currentGroup As New List(Of String)
For Each line As String In IO.File.ReadAllLines(filePath)
If line.StartsWith(" ") Then
currentGroup.Add(line.Trim)
Else
If currentGroup.Count > 0 Then lists.Add(currentGroup.ToArray)
currentGroup = New List(Of String) From {line}
End If
Next
If currentGroup.Count > 0 Then lists.Add(currentGroup.ToArray)
Dim myArray()() As String = lists.ToArray