如何在VB.NET中提取文本框文本的第一组数字？

在VB.NET里实现这个需求其实很简单，用正则表达式就能轻松搞定——它可以精准定位文本里的第一组连续数字，然后替换TextBox的内容就行。我给你写个实用的示例：

首先，你需要先导入正则表达式的命名空间，在代码文件顶部加上：

Imports System.Text.RegularExpressions

接下来，假设你用按钮触发提取操作（也可以在TextBox的TextChanged事件里处理，看你的具体场景），下面是按钮点击事件的代码：

Private Sub btnExtractFirstNumber_Click(sender As Object, e As EventArgs) Handles btnExtractFirstNumber.Click
    ' 先获取TextBox里的原始文本
    Dim inputText As String = txtYourTextBox.Text
    
    ' 用正则匹配第一组连续数字：\d+ 表示匹配1个或多个连续数字
    Dim firstNumberMatch As Match = Regex.Match(inputText, "\d+")
    
    ' 判断是否找到匹配的数字
    If firstNumberMatch.Success Then
        ' 把匹配到的第一组数字设置为TextBox的显示内容
        txtYourTextBox.Text = firstNumberMatch.Value
    Else
        ' 如果没找到数字，这里可以选择清空TextBox或者保留原文本，示例里用清空
        txtYourTextBox.Text = String.Empty
    End If
End Sub

代码说明： #

• Regex.Match(inputText, "\d+")：这个方法会在输入文本里找到第一个连续的数字序列，比如你的输入如果是类似"订单号：190212-003"这样的内容，就会匹配到190212，和你提到的结果完全一致。
• 如果你的需求是匹配带小数的数字（比如"金额：123.45元"），可以把正则表达式改成\d+\.?\d*，这样就能匹配到123.45这类带小数点的数字了。

内容的提问来源于stack exchange，提问作者hello.w.o.r.l.d