VB.NET：操作文本框输入：每5个字符，并删除特殊字符

Question

短跑基本上我试图复制在Windows 7（在窗口）激活密钥文本框的形式。它将自动大写字母的形式，删除或拒绝除自动输入的每5个字符以外的所有非字母数字字符。

我认为这可以用一个相当复杂的替代正则表达式来完成，但我似乎无法建立一个以适应需求。

这是我现在所拥有的一个例子，但它创建了一个无限循环，因为它消除了所有的字符，包括破折号，比加一个破折号，这会改变文本，并再次删除破折号。

任何建议，解决方案或想法，将不胜感激！

代码从原来的问题修改，我使用的解决方案：

 Private Sub aKeyTextField_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles aKeyTextField.KeyPress 
    'Test only 
    If Char.IsLetterOrDigit(e.KeyChar) Then 
     Dim test As String = "" 
     Select Case e.KeyChar 
      Case "0" To "9" 
       ' Do nothing 
      Case "a" To "z" 
       e.KeyChar = Char.ToUpper(e.KeyChar) 
      Case Else 
       e.Handled = True 
     End Select 
    ElseIf Not e.KeyChar = Convert.ToChar(8) Then 

     e.KeyChar = "" 
     End If 


     Dim strKeyTextField As String = aKeyTextField.Text 
     Dim n As Integer = 5 
    Dim intlength As Integer = aKeyTextField.TextLength 

    If Not e.KeyChar = Convert.ToChar(8) Then 

     While intlength > 4 And intlength < 29 

      If aKeyTextField.Text.Length = 5 Then 
       strKeyTextField = strKeyTextField.Insert(5, "-") 

      End If 

      Dim singleChar As Char 
      singleChar = strKeyTextField.Chars(n) 

      While (n + 5) < intlength 

       If singleChar = "-" Then 
        n = n + 6 

        If n = intlength Then 
         strKeyTextField = strKeyTextField.Insert(n, "-") 
        End If 
       End If 

      End While 

      intlength = intlength - 5 
     End While 
     aKeyTextField.Text = strKeyTextField 

     'sets focus at the end of the string 
     aKeyTextField.Select(aKeyTextField.Text.Length, 0) 


    Else 

     Select Case aKeyTextField.Text.Length 
      Case 7 
       strKeyTextField = strKeyTextField.Remove(5, 1) 
      Case 13 
       strKeyTextField = strKeyTextField.Remove(11, 1) 
      Case 19 
       strKeyTextField = strKeyTextField.Remove(17, 1) 
      Case 25 
       strKeyTextField = strKeyTextField.Remove(23, 1) 
      Case Else 



     End Select 

     aKeyTextField.Text = strKeyTextField 
     aKeyTextField.Select(aKeyTextField.Text.Length, 0) 

    End If 

End Sub 

Public Sub New() 

    ' This call is required by the designer. 
    InitializeComponent() 

    ' Add any initialization after the InitializeComponent() call. 
    Dim blankContextMenu As New ContextMenu 
    aKeyTextField.ContextMenu = blankContextMenu 


End Sub 

Answer 1

这个工作，它可能概率做整理和评论，但我只是想看看，如果我能得到这个工作：

Private Sub aKeyTextField_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles aKeyTextField.KeyPress 
    'Test only 
    If Char.IsLetterOrDigit(e.KeyChar) Then 
     Dim test As String = "" 
     Select Case e.KeyChar 
      Case "0" To "9" 
       ' Do nothing 
      Case "a" To "z" 
       e.KeyChar = Char.ToUpper(e.KeyChar) 
      Case Else 
       e.Handled = True 
     End Select 
    Else 
     e.KeyChar = "" 
    End If 


    Dim strKeyTextField As String = aKeyTextField.Text 
    Dim n As Integer = 5 
    Dim intlength As Integer = aKeyTextField.TextLength 
    While intlength > 4 

     If aKeyTextField.Text.Length = 5 Then 
      strKeyTextField = strKeyTextField.Insert(5, "-") 

     End If 

     Dim singleChar As Char 
     singleChar = strKeyTextField.Chars(n) 

     While (n + 5) < intlength 

      If singleChar = "-" Then 
       n = n + 6 

       If n = intlength Then 
        strKeyTextField = strKeyTextField.Insert(n, "-") 
       End If 
      End If 

     End While 

     intlength = intlength - 5 
    End While 
    aKeyTextField.Text = strKeyTextField 

    'sets focus at the end of the string 
    aKeyTextField.Select(aKeyTextField.Text.Length, 0) 

End Sub 

Answer 2

看一看的MaskedTextBox。你应该能够用很少的代码实现你的目标，而不需要正则表达式。

Answer 3

我会建议而不是在TextBox的TextChangedEvent上处理这个问题，以便在您支持文本框的属性的Set方法中处理此问题。

Answer 4

看起来像你有^在这里错了地方，它需要在方括号中，也删除{5} - ，这将然后删除所有非字母数字字符。

If m.Success Then 
      aKeyTextField.Text = Regex.Replace(aKeyTextField.Text, "[^a-zA-Z0-9]+, "")" 
      aKeyTextField.SelectionStart = aKeyTextField.TextLength 
End If 

这下面的代码只能将一个 - 只在第5的位置，你需要将它添加到每5个字符，创建一个循环/ 5得到的长度和鸿沟，并添加一个“ - ”每5位置。

If aKeyTextField.TextLength > 5 Then 

     aKeyTextField.Text = aKeyTextField.Text.Insert(5, "-") 
     aKeyTextField.SelectionStart = aKeyTextField.TextLength 

    End If 

这样的事情会工作，而不是：

Dim n As Integer = 5 
     Dim intlength As Integer = aKeyTextField.Length 
     While intlength > 0 And n < intlength 
      aKeyTextField = aKeyTextField.Insert(n, "-") 
      intlength = intlength - 5 
      n = n + 6 
     End While 

要停止无限循环的事件更改验证，而不是：

Private Sub aKeyTextField_TextValidating(ByVal sender As Object, ByVal e As System.EventArgs) Handles aKeyTextField.Validating