Question

基本上我需要的是一行代码，用于清除原始文本中的所有字母和其他字符。我需要保留数字和冒号（冒号就是这个“：”没有“”。我得到了这个代码，但它也删除了我的冒号。

Dim rep As String = String.Empty
    For i As Integer = 0 To TextBox1.Text.Length - 1
        If IsNumeric(TextBox1.Text.Substring(i, 1)) Then
            rep += TextBox1.Text.Substring(i, 1)
        End If
    Next
    TextBox1.Text = rep

你能告诉我为了保持冒号还应该改变什么吗？谢谢你的帮助和时间^^

Answer 1

您可以使用REGEX：

    Imports System.Text.RegularExpressions

    Dim Pattern As String = "[^0-9\\:]"
    Dim unspupportedRegex As Regex = New Regex(Pattern)
    Dim saida As String = unspupportedRegex.Replace(parm, "")

此语法仅允许您想要的内容。

VB.net文本框原始文本编辑

1 个答案: