VB.NET Regex.IsMatch方法代码示例

OGeek|极客世界-中国程序员成长平台 › 门户 › 编程› VB.NET›VB.NET教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

本文整理汇总了VB.NET中System.Text.RegularExpressions.Regex.IsMatch方法的典型用法代码示例。如果您正苦于以下问题：VB.NET Regex.IsMatch方法的具体用法？VB.NET Regex.IsMatch怎么用？VB.NET Regex.IsMatch使用的例子？那么恭喜您, 这里精选的方法代码示例或许可以为您提供帮助。您也可以进一步了解该方法所在类System.Text.RegularExpressions.Regex的用法示例。

在下文中一共展示了Regex.IsMatch方法的6个代码示例，这些例子默认根据受欢迎程度排序。您可以为喜欢或者感觉有用的代码点赞，您的评价将有助于我们的系统推荐出更棒的VB.NET代码示例。

示例1: Example

' 导入命名空间
Imports System.Text.RegularExpressions

Module Example
   Public Sub Main()
      Dim partNumbers() As String = { "1298-673-4192", "A08Z-931-468A", _
                                      "_A90-123-129X", "12345-KKA-1230", _
                                      "0919-2893-1256" }
      Dim rgx As New Regex("^[a-zA-Z0-9]\d{2}[a-zA-Z0-9](-\d{3}){2}[A-Za-z0-9]$")
      For Each partNumber As String In partNumbers
         Console.WriteLine("{0} {1} a valid part number.", _
                           partNumber, _
                           IIF(rgx.IsMatch(partNumber), "is", "is not"))
      Next
   End Sub
End Module

开发者ID:VB.NET开发者，项目名称:System.Text.RegularExpressions，代码行数:16，代码来源:Regex.IsMatch

输出：

1298-673-4192 is a valid part number.
A08Z-931-468A is a valid part number.
_A90-123-129X is not a valid part number.
12345-KKA-1230 is not a valid part number.
0919-2893-1256 is not a valid part number.

示例2: Example

' 导入命名空间
Imports System.Text.RegularExpressions

Module Example
   Public Sub Main()
      Dim partNumbers() As String = { "Part Number: 1298-673-4192", "Part No: A08Z-931-468A", _
                                      "_A90-123-129X", "123K-000-1230", _
                                      "SKU: 0919-2893-1256" }
      Dim rgx As New Regex("[a-zA-Z0-9]\d{2}[a-zA-Z0-9](-\d{3}){2}[A-Za-z0-9]$")
      For Each partNumber As String In partNumbers
         Dim start As Integer = partNumber.IndexOf(":"c)
         If start >= 0 Then 
            Console.WriteLine("{0} {1} a valid part number.", _
                              partNumber, _
                              IIF(rgx.IsMatch(partNumber, start), "is", "is not"))
         Else
            Console.WriteLine("Cannot find starting position in {0}.", partNumber)
         End If                              
      Next
   End Sub
End Module

开发者ID:VB.NET开发者，项目名称:System.Text.RegularExpressions，代码行数:21，代码来源:Regex.IsMatch

输出：

Part Number: 1298-673-4192 is a valid part number.
Part No: A08Z-931-468A is a valid part number.
Cannot find starting position in _A90-123-129X.
Cannot find starting position in 123K-000-1230.
SKU: 0919-2893-1256 is not a valid part number.

示例3: Example

' 导入命名空间
Imports System.Text.RegularExpressions

Module Example
   Public Sub Main()
      Dim partNumbers() As String = { "1298-673-4192", "A08Z-931-468A", _
                                      "_A90-123-129X", "12345-KKA-1230", _
                                      "0919-2893-1256" }
      Dim pattern As String = "^[a-zA-Z0-9]\d{2}[a-zA-Z0-9](-\d{3}){2}[A-Za-z0-9]$"
      For Each partNumber As String In partNumbers
         Console.WriteLine("{0} {1} a valid part number.", _
                           partNumber, _
                           IIF(Regex.IsMatch(partNumber, pattern), "is", "is not"))
      Next
   End Sub
End Module

开发者ID:VB.NET开发者，项目名称:System.Text.RegularExpressions，代码行数:16，代码来源:Regex.IsMatch

输出：

1298-673-4192 is a valid part number.
A08Z-931-468A is a valid part number.
_A90-123-129X is not a valid part number.
12345-KKA-1230 is not a valid part number.
0919-2893-1256 is not a valid part number.

示例4: Example

' 导入命名空间
Imports System.Text.RegularExpressions

Module Example
   Public Sub Main()
      Dim partNumbers() As String = { "1298-673-4192", "A08Z-931-468a", _
                                      "_A90-123-129X", "12345-KKA-1230", _
                                      "0919-2893-1256" }
      Dim pattern As String = "^[A-Z0-9]\d{2}[A-Z0-9](-\d{3}){2}[A-Z0-9]$"
      For Each partNumber As String In partNumbers
         Console.WriteLine("{0} {1} a valid part number.", _
                           partNumber, _
                           IIF(Regex.IsMatch(partNumber, pattern, RegexOptions.IgnoreCase), _
                               "is", "is not"))
      Next
   End Sub
End Module

开发者ID:VB.NET开发者，项目名称:System.Text.RegularExpressions，代码行数:17，代码来源:Regex.IsMatch

输出：

1298-673-4192 is a valid part number.
A08Z-931-468a is a valid part number.
_A90-123-129X is not a valid part number.
12345-KKA-1230 is not a valid part number.
0919-2893-1256 is not a valid part number.

示例5: Example

' 导入命名空间
Imports System.Text.RegularExpressions

Module Example
   Public Sub Main()
      Dim partNumbers() As String = { "1298-673-4192", "A08Z-931-468a", 
                                      "_A90-123-129X", "12345-KKA-1230", 
                                      "0919-2893-1256" }
      Dim pattern As String = "^[A-Z0-9]\d{2}[A-Z0-9](-\d{3}){2}[A-Z0-9]$"
      For Each partNumber As String In partNumbers
         Try
            Console.WriteLine("{0} {1} a valid part number.", 
                              partNumber, _
                              IIF(Regex.IsMatch(partNumber, pattern, RegexOptions.IgnoreCase), _
                                  "is", "is not"),
                              TimeSpan.FromMilliseconds(500))
         Catch e As RegexMatchTimeoutException
            Console.WriteLine("Timeout after {0} seconds matching {1}.",
                              e.MatchTimeout, e.Input)
         End Try
      Next
   End Sub
End Module

开发者ID:VB.NET开发者，项目名称:System.Text.RegularExpressions，代码行数:23，代码来源:Regex.IsMatch

输出：

1298-673-4192 is a valid part number.
A08Z-931-468a is a valid part number.
_A90-123-129X is not a valid part number.
12345-KKA-1230 is not a valid part number.
0919-2893-1256 is not a valid part number.

示例6: Tester

' 导入命名空间
Imports System.Text.RegularExpressions

Public Class Tester
    Public Shared Sub Main
        Dim testString As String
        Dim emailPattern As String = _
           "^([0-9a-zA-Z]+[-._+&])*[0-9a-zA-Z]+@" & _
           "([-0-9a-zA-Z]+[.])+[a-zA-Z]{2,6}$"

        testString = "[email protected]"
        Console.WriteLine(testString & Space(3) & _
           Regex.IsMatch(testString, emailPattern))

        testString = "a@[email protected]"
        Console.WriteLine(testString & Space(3) & _
           Regex.IsMatch(testString, emailPattern))

    End Sub


End Class

开发者ID:VB程序员，项目名称:System.Text.RegularExpressions，代码行数:22，代码来源:Regex.IsMatch

注：本文中的System.Text.RegularExpressions.Regex.IsMatch方法示例整理自Github/MSDocs等源码及文档管理平台，相关代码片段筛选自各路编程大神贡献的开源项目，源码版权归原作者所有，传播和使用请参考对应项目的License；未经允许，请勿转载。