Question

vb text提取数字问题

vb text提取数字问题，在text1.text里输入“桶3个，脸盘2个，牙刷4把，牙膏1只”，在text2.text里显示3，text3.text里显示2，text4.text里显示4，text5.text里显示1。有没有办法做到？满意答案追加分

Answer 1

Private Sub Command1_Click()
 Dim s As String
    Dim tmp As String
    Dim i As Long
    s = Text5.Text
    
    
    While Len(s)
        If Not IsNumeric(Mid(s, 1, 1)) Then
            s = Mid(s, 2)
        Else
            tmp = Mid(Val(1 & s), 2)
            s = Replace(s, tmp, "", 1, 1)
            'Debug.Print tmp
            i = i + 1
            Me.Controls("Text" & i).Text = tmp
        End If
    Wend
End Sub

追问

好像不行哦，text1.text 里显示5 ，其他不显示

追答

Answer 2

Option Explicit

Private Sub Command1_Click()

    Dim s As String

    s = Text1.Text
   
    MsgBox GetNumber(s)
   
End Sub

'取字符串中的第一个数字，数字从0~9，如果是多个数字，则不要直接退出循环，而应该继续拼接处理
Private Function GetNumber(ByVal s As String)

    Dim i       As Integer

    Dim number  As Integer

    Dim CharAsc As Integer
   
    For i = 1 To Len(s)
      
        CharAsc = Asc(Mid$(s, i, 1))

        If CharAsc >= 48 And CharAsc <= 57 Then
            GetNumber = Mid$(s, i, 1)
            Exit Function
     
        End If
   
    Next

End Function

 

你要对每个TextBox调用一次函数，我写测试只是写了一个！