Visual Basic中提取字符串内长度可变的指定数字

针对你遇到的问题——字符串结构为「1-3位数字 + 单个A-Z字母 + 1-3位数字」，固定长度截取开头数字会失效的情况，提供两种可靠的解决方案：

方法一：正则表达式匹配（推荐） #

利用正则表达式精准匹配字符串结构，直接提取对应分组的内容，代码简洁且适配所有符合格式的字符串：

Imports System.Text.RegularExpressions

' 示例输入
Dim Sequence As String = "73X4"
' 正则模式：^开头，(\d{1,3})匹配1-3位数字，([A-Z])匹配单个大写字母，(\d{1,3})匹配末尾1-3位数字，$结尾
Dim pattern As String = "^(\d{1,3})([A-Z])(\d{1,3})$"
Dim matchResult As Match = Regex.Match(Sequence, pattern)

If matchResult.Success Then
    ' 提取各组内容并转换为对应类型
    Dim num1 As Integer = Integer.Parse(matchResult.Groups(1).Value)
    Dim letter As String = matchResult.Groups(2).Value
    Dim num2 As Integer = Integer.Parse(matchResult.Groups(3).Value)
    
    ' 示例输出
    Console.WriteLine($"num1: {num1}, 字母: {letter}, num2: {num2}")
Else
    ' 处理格式不符合的情况
    Console.WriteLine("输入字符串格式不符合要求（需为1-3位数字+单个大写字母+1-3位数字）")
End If

方法二：遍历字符定位字母 #

通过遍历字符串找到唯一的字母位置，再拆分前后的数字内容，无需引用额外命名空间：

Dim Sequence As String = "5Y123"
Dim letterPosition As Integer = -1

' 遍历找到第一个（也是唯一的）字母的索引
For i As Integer = 0 To Sequence.Length - 1
    If Char.IsLetter(Sequence(i)) Then
        letterPosition = i
        Exit For
    End If
Next

If letterPosition <> -1 Then
    ' 拆分并转换数字
    Dim num1 As Integer = Integer.Parse(Sequence.Substring(0, letterPosition))
    Dim letter As String = Sequence(letterPosition).ToString()
    Dim num2 As Integer = Integer.Parse(Sequence.Substring(letterPosition + 1))
    
    ' 示例输出
    Console.WriteLine($"num1: {num1}, 字母: {letter}, num2: {num2}")
Else
    Console.WriteLine("输入字符串中未找到大写字母")
End If

两种方法对比 #

• 正则表达式：代码更简洁，适合批量处理或复杂格式验证场景；
• 遍历定位：逻辑直观，无需依赖正则库，适合简单场景。

内容的提问来源于stack exchange，提问作者Lloyd Thomas