Question

我有一行文字和整数，如下所示：文字10 9 8

到目前为止，我的代码读取了这样的整数：

1

10

109

1098

我的代码：

Dim total As String
    For x = 0 To listbox1.Items.Count - 1

        For Each ch As Char In listbox1.Items(x)

            If Char.IsDigit(ch) Then
                total = String.Concat(total & ch)
                listbox1.Items.Add(total)
            End If
        Next
    Next

我希望我的代码能够读取这样的整数：

10 9 8

由于

Answer 1

试试这个。您的想法很好，您刚刚在错误的位置添加了Items.add。

    Dim total As String
    For x = 0 To ListBox1.Items.Count - 1

        For Each ch As Char In ListBox1.Items(x)

            If Char.IsDigit(ch) Then
                total = String.Concat(total & ch)
            End If
        Next
        ListBox1.Items.Add(total)
    Next
End Sub

读取一行中的单独整数

1 个答案: