如何读取列表框vb中每行的前2个数字。净

Question

我的列表框有这样的行

12345678％32 = 5

4663578877fg

6883346899

,,,等

我怎样才能得到每一行的前两个数字

12

46

68

顺便说一句，列表框只有每行第一行的数字

谢谢！

Answer 1

myListBox.Items.Add("1234")
myListBox.Items.Add("567")
myListBox.Items.Add("890")
For position As Integer = 0 To myListBox.Items.Count - 1
    myListBox.Items(position) = CStr(myListBox.Items(position)).Substring(0, 2)
Next

编辑

我们可以使用返回String数组的RichTextBox.Lines属性。数组中的每个String表示RichTextBox中的一行。如果要将前两位数存储在数组中，可以尝试：

Dim intValues(Convert.ToInt32(RichTextBox1.Lines.Length)) As Integer 'Stores the digits
For position As Integer = 0 To Convert.ToInt32(RichTextBox1.Lines.Length) - 1
        intValues(position) = Convert.ToInt32(RichTextBox1.Lines(position).Substring(0, 2))
Next