📄 ch09-02-04.aspx
字号:
<Html>
<Head>
<Title>Ch09-02-04.aspx 正则表达式语言比较</Title>
<Script Language="VB" Runat="Server" >
Sub Page_Load(sender As Object, e As Eventargs)
Dim RegExp1 As Regex = New Regex("[A-Z]{1}[0-9]{9}")
' 比较身份证号是否符合标准格式
If RegExp1.IsMatch(IDNo.text) Then
Show1.InnerHTML = "身份证号为:" & IDNo.text
Else
Show1.InnerHTML = "身份证号的格式错误!"
End If
' 比较字符串中符合正则表达式语言的字符串
Dim RegExp2 As Regex = New Regex("[A-Za-z]{1}[0-9]{1}" , _
RegexOptions.IgnoreCase)
Dim Obj As Match
Show2.InnerHTML = ""
For Each Obj In RegExp2.Matches(strContent.Text)
Show2.InnerHTML = Show2.InnerHTML & _
Obj.ToString & "<BR>"
Next
End Sub
</Script>
</Head>
<Body>
<H4>正则表达式语言(Regular Expression)比较</H4>
<Form Runat="Server">
身份证号:
<asp:TextBox ID="IDNo" Width="200px" Runat="Server"/><br>
字符串内容:
<asp:TextBox ID="strContent" Width="200px"
TextMode="Multiline" Rows="2" Runat="Server"/><BR>
<asp:Button ID="Button" Text="提交" Runat="Server"/>
</Form>
<Span ID="Show1" Runat="Server" /><BR>
<Span ID="Show2" Runat="Server" />
</Body>
</Html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -