Vb.net strword可以如何拆分使用vbcrlf

如何分割这些项目？我没有其他事情要做，这就是文本框结果的样子，我不知道如何从中正确提取值

Dim lines() As String = TxtResultToString1.Lines
For i As Integer = 1 To lines.Length - 1
    Dim strWords = lines(i).Split(vbCrLf)
    MsgBox(strWords(0))
Next

项目：这看起来像是文本框中的项目

{ item = , Count = 1 }
{ item = 13, Count = 1 }
{ item = 17, Count = 1 }
{ item = 31, Count = 1 }
{ item = 5, Count = 1 }
{ item = 8, Count = 1 }
{ item = 77, Count = 2 }
{ item = 68, Count = 1 }
{ item = 21, Count = 1 }
{ item = 71, Count = 1 }
{ item = 40, Count = 1 }
{ item = 14, Count = 1 }
{ item = 49, Count = 1 }
{ item = 45, Count = 1 }
{ item = 29, Count = 1 }
{ item = 36, Count = 1 }
{ item = 44, Count = 1 }

在另一个文本框中，我要执行以下操作： Textbox2.行=

    13 17 31
    17 31 5
    31 5 8
    8 77 68
    68 21 71
    21 71 40
    71 40 14
    40 14 49
    14 49 45
    49 45 29
    45 29 36
    29 36 44

---

首先，我解析文本框中的行以提取项值。我用逗号分割行，然后元素（0）用等号分割并修剪。结果是添加到列表中。然后在列表中循环使用字符串生成器来构建新行。负3避免指数超出范围

Private Sub ItemArrangement()
    Dim lst As New List(Of String)
    Dim lines = TextBox1.Lines
    For i = 1 To TextBox1.Lines.Count - 1
        Dim num = lines(i).Split(","c)(0).Split("="c)(1).Trim
        lst.Add(num)
    Next
    Dim sb As New StringBuilder
    For i = 0 To lst.Count - 3
        sb.AppendLine($"{lst(i)} {lst(i + 1)} {lst(i + 2)}")
    Next
    TextBox2.Text = sb.ToString
End Sub

您显示为输出的内容错过了从5开始的行。如果这是故意的，您将不得不调整代码

我在TextBox2中的输出如下所示

13 17 31
17 31 5
31 5 8
5 8 77
8 77 68
77 68 21
68 21 71
21 71 40
71 40 14
40 14 49
14 49 45
49 45 29
45 29 36
29 36 44

---

在换行符上拆分一条线有什么意义？可能重复