我需要一种使用基本代码计算字符串中数字的方法答案

【问题标题】：I need a way to count numbers in a string using basic code我需要一种使用基本代码计算字符串中数字的方法
【发布时间】：2015-03-11 06:30:20
【问题描述】：

我不理解本网站上的其他代码，非常感谢您的帮助。顺便说一句，我不知道如何使用这个网站，如果我的问题格式错误，我深表歉意。我应该注意，我需要添加数字 & vbtab & 出现次数。所有这些都放在一个 lstbox 中。

 Private Sub btnCount_Click(sender As System.Object, e As System.EventArgs)         Handles btnCount.Click
    Dim NumberCounts As Integer
    Dim phrase As String
    phrase = Me.txtNumbers.Text

    Call CountNumbers(phrase, NumberCounts)

我可以修改这个数字代码吗？

  For character as integer = 0 to phrase.length -1
uppercaseLetter = char.ToUpper(phrase.lengthchars(character))
 if uppercaseLetter>= "A" and uppercaseLetter <= "Z" then
 letterIndex = Ascw(uppercaseLetter)
lettercounts(letterindex) +=1 
 end if
 next character

【问题讨论】：

您发布的代码并没有真正告诉我们任何事情。发布CountNumbers的代码。
@Tim 这是我的问题。我不知道从哪里开始。
Google 是你的朋友，搜索“vb.net count numbers in string”的第一页worldbestlearningcenter.com/index_files/…

标签： vb.net visual-studio-2010 visual-studio-2012

【解决方案1】：

如果您要计算短语中的位数（“0”-“9”），则可以将 CountNumbers 设为一个函数，该函数将字符串作为参数并返回整数。例如：

Function CountNumbers(phrase As String) As Integer
    Return phrase.Count(Function(c) Char.IsDigit(c))
End Function

或者，如果您愿意：

Function CountNumbers(phrase As String) As Integer
    Dim numberCount As Integer 
    For Each ch As Char In phrase
        If Char.IsDigit(ch) Then numberCount += 1
    Next
    Return numberCount 
    Return phrase.Count(Function(c) Char.IsDigit(c))
End Function

两个版本都使用 Char.IsDigit 方法来测试字符串中的每个字符是否都是数字。您可以使用它来显示在 TextBox 中输入的短语中的位数，如下所示：

Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    Label1.Text = CountNumbers(TextBox1.Text).ToString 
End Sub

【讨论】：