VB.NET中如何提取文本框输入数字的中间字符？

没问题，这个需求其实很好实现，咱们一步步拆解思路，再给你具体的代码示例：

核心实现思路 #

• 第一步：获取字符串长度：先拿到输入文本框里字符串的长度，用TextBox1.Text.Length就能轻松获取。
• 第二步：判断奇偶性：用长度对2取模（Length Mod 2），结果为1就是奇数长度，为0则是偶数长度。
• 第三步：计算提取位置：
  • 如果是奇数长度：中间字符的索引是(Length - 1) \ 2（因为VB.NET里字符串索引从0开始，比如长度5，(5-1)/2=2，对应第3个字符，正好是中间的那个），只需要提取1个字符。
  • 如果是偶数长度：中间两个字符的起始索引是(Length \ 2) - 1（比如长度6，6/2=3，减1得2，从索引2开始取2个字符，正好是中间的两个），需要提取2个字符。
• 第四步：提取字符：用String.Substring()方法，传入起始索引和要提取的字符数就能拿到结果。

VB.NET代码示例 #

方法一：单独封装成函数（推荐，复用性高） #

Private Function GetMiddleCharacters(inputStr As String) As String
    ' 先处理空字符串的情况，避免报错
    If String.IsNullOrEmpty(inputStr) Then
        Return ""
    End If

    Dim strLength As Integer = inputStr.Length
    Dim result As String = ""

    If strLength Mod 2 = 1 Then
        ' 奇数长度，提取中间1个字符
        Dim middleIndex As Integer = (strLength - 1) \ 2
        result = inputStr.Substring(middleIndex, 1)
    Else
        ' 偶数长度，提取中间2个字符
        Dim startIndex As Integer = (strLength \ 2) - 1
        result = inputStr.Substring(startIndex, 2)
    End If

    Return result
End Function

方法二：直接在文本框的TextChanged事件中使用 #

比如你有一个名为txtInput的文本框，和一个lblResult的标签用来显示结果：

Private Sub txtInput_TextChanged(sender As Object, e As EventArgs) Handles txtInput.TextChanged
    Dim input As String = txtInput.Text.Trim()
    ' 可以加个判断，确保输入是数字字符串（可选）
    If Not String.IsNullOrEmpty(input) AndAlso input.All(Function(c) Char.IsDigit(c)) Then
        lblResult.Text = GetMiddleCharacters(input)
    Else
        lblResult.Text = "请输入有效的数字字符串"
    End If
End Sub

测试示例 #

• 输入"31572"（长度5，奇数）：函数返回"5"
• 输入"123752"（长度6，偶数）：函数返回"37"

这样就能完美实现你要的功能啦，要是有其他疑问随时问~

内容的提问来源于stack exchange，提问作者Dominador Schneider