将字符串拆分为4个数组VB.NET

Question

因此，我基本上使用了一个非常简单的宏程序来记录鼠标单击。 每次用户单击时，都会在4个列表框中的每一个（Click，MouseX，Mouse Y，Time）中添加一个新行。

我希望能够保存自己创建的宏，因为我不喜欢一遍又一遍地重新创建它们。

我做了一个保存功能，将所有4个列表框中的数据保存到一个文本文件中，如下所示：

1
1
1
1
END!~
1020
1032
1134
1129
END!~
611
670
668
602
END!~
32
62
93
131
END!~

我可以导入整个文本文件，并用“〜”将其拆分，从而得到array（3），如下所示：

    Dim bigstringy = System.IO.File.ReadAllText("C:\Users\llooker\Desktop\Macro Scripts\Macro1.txt")

    Dim strarr() As String
    strarr = bigstringy.Split("~")

我尝试使用

Listbox1.Items.addRange(strarr(0))
Listbox2.Items.addRange(strarr(1))

但这给了我一个错误。

如何将字符串分成4个单独的数组，然后将其用作每个单独列表框的范围？

我正在努力实现这一目标：

LISTBOX1:
    1
    1
    1
    1
    END!

LISTBOX2:
    1020
    1032
    1134
    1129
    END!

LISTBOX3:
    611
    670
    668
    602
    END!

LISTBOX4:
    32
    62
    93
    131
    END!

Answer 1

尝试

Listbox1.Items.addRange(Split(strarr(0), vbCrLf))
Listbox2.Items.addRange(Split(strarr(1), vbCrLf))

Answer 2

有时，一个简单的旧的for-next循环更易于理解和使用

Dim bigstringy = System.IO.File.ReadAllText("C:\Users\llooker\Desktop\Macro Scripts\Macro1.txt")

Dim strarr() As String
strarr = bigstringy.Split(new string() {Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries)
Dim blocks = strarr.Length \ 4
for x as Integer = 0 to blocks
   Listbox1.Items.Add(strarr(x).TrimEnd("~"c))
   Listbox2.Items.Add(strarr(x + (blocks * 1)).TrimEnd("~"c))
   Listbox3.Items.Add(strarr(x + (blocks * 2)).TrimEnd("~"c))
   Listbox4.Items.Add(strarr(x + (blocks * 3)).TrimEnd("~"c))
Next

您有4个列表，并且为每个列表编写了一个项目块，因此在换行符处分割文本可以计算遍历数组所需的迭代次数。 在每次迭代时，您都会读取列表的数据块，这些数据块现在被块的大小均匀地分开，并将正确的数据集添加到列表中。

使用这种方法，当您将列表框项目写入文件时，可以在END!之后删除TILDE (~)字符END! 书签。
如果这样做，那么您也可以删除该TrimEnd ，我需要添加4次才能处理这个不必要的（现在）分隔符。

请记住，如果您不是在顺序写入每个列表框数据的情况下，而是在四个列表框中用相同的索引写一行内容，并用逗号分隔每个值，则可以简化很多操作。 例如：

1,1020,611,32
1,1032,670,62
1,1134,668,93
1,1129,602,131

Answer 3

在这里，你很好：

Private Sub AddValuesToListBoxes()
    Dim count = 0
    For Each list In Split(IO.File.ReadAllText("c:\values.txt"), "~" & vbCrLf)
        CType(Controls("ListBox" & Threading.Interlocked.Increment(count)), ListBox).Items.AddRange(Split(list, vbCrLf))
    Next
End Sub

Answer 4

感谢PT_01，这是我的解决方案！

Private Sub btnLoad_Click(sender As Object, e As EventArgs) Handles btnLoad.Click

    Dim bigstringy = System.IO.File.ReadAllText("C:\Users\llooker\Desktop\Macro Scripts\Macro1.txt")

    Dim strarr() As String
    strarr = bigstringy.Split("~"c)

    ListBox1.Items.Clear()
    ListBox1.Items.AddRange(Split(strarr(0), vbCrLf))

    ListBox2.Items.Clear()
    ListBox2.Items.AddRange(Split(strarr(1), vbCrLf))

    ListBox3.Items.Clear()
    ListBox3.Items.AddRange(Split(strarr(2), vbCrLf))

    ListBox4.Items.Clear()
    ListBox4.Items.AddRange(Split(strarr(3), vbCrLf))

    ListBox2.Items.RemoveAt(0)
    ListBox3.Items.RemoveAt(0)
    ListBox4.Items.RemoveAt(0)

End Sub