vb.net 2010 如何把文本框中的数字提取出来

TextBox1.Text内容: GJ240 把240提取出来 放到 Label1.Text
TextBox2.Text内容: GJ35 把35提取出来 放到 Label2.Text

新手 求代码

源代码如下:(代码写在按钮点击事件里)

        Label1.Text = ""
        Label2.Text = ""
        Dim a As String = TextBox1.Text
        Dim b As String = TextBox2.Text
        For x = 1 To a.Length
            Dim txt As String = Mid(a, x, 1)
            If txt Like "#" Then
                Label1.Text = Label1.Text & txt
            End If
        Next
        For x = 1 To b.Length
            Dim txt As String = Mid(b, x, 1)
            If txt Like "#" Then
                Label2.Text = Label2.Text & txt
            End If
        Next

此方法用的是mid 将一个字符串拆分成单个字符,然后用like运算符进行对比是否为数字,关于这两个函数的用法如果不懂的可以自己搜索下,此外还有别的方法,这里就不多说了

温馨提示:答案为网友推荐,仅供参考
第1个回答  2014-06-28
还有这样 要注意 读到的 数据 类型转换一下 一般声明一个 text 类吧
第2个回答  2014-06-28
Label1.Text=TextBox1.Text.char char 定位第几位 很简单
相似回答