匹配练习
来源:互联网 发布:淘宝联盟链接打不开 编辑:程序博客网 时间:2024/06/08 12:30
Imports System.Text.RegularExpressions
Private Sub btnExcute_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnExcute.Click
Dim laryCheckUPNs As String()
Try
If Me.txtRule.Text = String.Empty Then
Me.txtResult.Text = "NG"
End If
laryCheckUPNs = Me.txtRule.Text.Split(",")
For Each lstrEachCheckUPN As String In laryCheckUPNs
If Regex.IsMatch(Me.txtUPN.Text, "^" & lstrEachCheckUPN.Replace("*", "(.*)") & "$") Then
Me.txtResult.Text = "OK, " & Me.txtUPN.Text & ", " & lstrEachCheckUPN
Exit For
Else
Me.txtResult.Text = "NG"
End If
Next
Catch ex As Exception
Me.txtResult.Text = "exception :" & ex.Message
End Try
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.txtUPN.Text = "55.5J701.011G"
Me.txtRule.Text = "ABC,??.5J701.0*,A,55.5J701.D*"
End Sub
- 匹配练习
- JavaScript正则匹配练习。。。
- 括号匹配练习
- Java程序练习-括号匹配
- 编程练习3--括号匹配
- 串结构练习--字符串匹配
- 括号匹配(栈练习)
- 串结构练习--字符串匹配
- 10、正则表达式匹配练习
- 【opencv练习31 - 模板匹配】
- Leetcode编程练习:火柴匹配
- C++编程练习(7)----“KMP模式匹配算法“字符串匹配
- SQL SERVER 2012 DQS练习-数据匹配
- Android进阶练习-匹配多种屏幕
- #小练习 正则表达式匹配邮箱名称
- 串结构练习——字符串匹配
- 串结构练习——字符串匹配
- 串结构练习——字符串匹配
- I/O体系结构和设备驱动程序(六)
- poj 1125 Stockbroker Grapevine
- 方正县连夜将日本开拓团石碑拆除
- HDU3917 Road constructions 最大权闭合图 2011 Multi-University Training Contest 8 - Host by HUST
- Handling Events in Windows
- 匹配练习
- 软件测试(白盒)
- 如何选题 (贺力平)
- android ndk 学习
- Dojo1.6官方教程:连接DataGrid和Store
- poj 2253 Frogger
- HDU3912 Turn Right 模拟 2011 Multi-University Training Contest 8 - Host by HUST
- poj 1251 Jungle Roads
- POJ 2528 Mayor's posters 线段树+离散化