VB.NET中如何移除TextBox自动添加的最后一个横杠？

我来帮你搞定这个最后多余横杠的小麻烦！先看你的需求：给txtAntivirusCode的内容自动按每5个字符加横杠，但输入完成后会多一个末尾的横杠，要把它去掉。其实咱们可以从两个方向解决：要么在添加横杠的过程中就避免最后出现多余的，要么在处理完后直接移除末尾的横杠。

方案一：从根源避免多余横杠（推荐） #

这个方法会先清理掉输入里已有的横杠，再按每5个字符一组重新拼接，组之间才加横杠，这样绝对不会出现末尾多余的横杠。而且还能防止用户手动输入横杠导致的格式混乱。

如果是在TextChanged事件里处理的话，代码可以这么写：

Private isUpdating As Boolean = False ' 用来避免无限触发TextChanged事件

Private Sub txtAntivirusCode_TextChanged(sender As Object, e As EventArgs) Handles txtAntivirusCode.TextChanged
    If isUpdating Then Return ' 如果正在更新文本，直接退出，避免循环触发
    isUpdating = True

    ' 第一步：清理掉所有已有的横杠，只保留纯字符
    Dim cleanText As String = txtAntivirusCode.Text.Replace("-", "")
    Dim formattedText As String = ""

    ' 第二步：按每5个字符分组拼接，组之间加横杠
    For i As Integer = 0 To cleanText.Length - 1 Step 5
        If i > 0 Then
            formattedText += "-" ' 不是第一组的话，先加横杠
        End If
        ' 计算当前组的结束位置，防止超出文本长度
        Dim endIndex As Integer = Math.Min(i + 5, cleanText.Length)
        formattedText += cleanText.Substring(i, endIndex - i)
    Next

    ' 第三步：把格式化好的文本赋值回去，并把光标移到最后
    txtAntivirusCode.Text = formattedText
    txtAntivirusCode.SelectionStart = formattedText.Length

    isUpdating = False ' 恢复标志位
End Sub

方案二：在原代码基础上移除末尾横杠 #

如果你不想大改原来的代码，也可以在处理完文本后，检查最后一个字符是不是横杠，如果是就删掉它：

' 假设你原来的处理逻辑已经得到了strKeyTextField
If strKeyTextField.EndsWith("-") Then
    ' 移除最后一个字符（横杠）
    strKeyTextField = strKeyTextField.Remove(strKeyTextField.Length - 1, 1)
End If
' 把处理后的文本赋值回TextBox
txtAntivirusCode.Text = strKeyTextField

这个方法简单直接，但要注意如果用户手动输入末尾横杠的话，也会被移除，不过一般来说这个场景下是合理的。

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