计算一个数字，用逗号分隔

Question

此代码如何处理用逗号分隔的数字位数（例如：1、2、12、14 =计数=4。

TxtNumberListCount.Text &= Environment.NewLine & TxtMReadOnly.Text.Where
(Function(x) Not Char.IsWhiteSpace(x)).Count()

Answer 1

它正在遍历每个字符并计算不是空格的字符。所以我相信答案应该是9而不是4

Answer 2

将字符串分割为and数组，然后获取元素数。

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Dim Digits As String = "1,2,12,14"
    Dim NumberOfElemets As Integer = Digits.Split(","c).Count
    TextBox1.Text = NumberOfElemets.ToString
End Sub

Answer 3

此代码可以完美运行，我已经尝试了很好。

Private Sub BtnCountItems_Click(sender As Object, e As EventArgs) Handles BtnCountItems.Click
    Dim Cnt As Integer
    Cnt = 0
    For i = 1 To Len(TextBox1.Text)
        If Mid(TextBox1.Text, i, 1) = "," Then Cnt += 1
    Next
    Cnt += 1
    MsgBox(Cnt)
End Sub