主题：能否单独获取字符串中的数字内容

可以：

Dim s1 As String = "茶叶店10"
Dim s2 As String
For Each c As Char In s1
   If Char.IsNumber(c) Then
        s2 = s2 & c
    End If
Next
output.show(s2)

只是何不从规范输入入手呢？