关于vb.net中正则表达式的信息
vb.net 正则表达式
正则表达式是:
创新互联建站专注于企业营销型网站、网站重做改版、兴庆网站定制设计、自适应品牌网站建设、H5响应式网站、购物商城网站建设、集团公司官网建设、成都外贸网站制作、高端网站制作、响应式网页设计等建站业务,价格优惠性价比高,为兴庆等各大城市提供网站开发制作服务。
/[a-zA-Z/]+$
如果要把第一个斜杠去掉,就是匹配index/index/index,用后向匹配,正则是:
(?=/)[a-zA-Z/]+$
vb.net正则表达式 替换内容
@interface不替换的话,就把正则改成:
@(?!interface)[^\s]+(\s|$)
如果@t3(synopsis = "AB") 这个等号前后没有空格,就很简单,直接用下面的搞定,如果有空格,这个正则就会复杂很多了:
Regex.Replace(@"@t1
@t2()
@t3(synopsis=""AB"")
@t4(""unused"")
creatCommChat(@WebParam(name=""chatID"") String chatID,@WebParam(name=""creatUserID"") String creatUserID)", @"@[^\s]+(\s|$)", "")
VB.net 正则表达式问题
groups(1)就是匹配项的第一个捕获组(注:groups(0)就是匹配项本身),也就是你上面括号里的内容,也就是sector后面的数字,但你这样写应该匹配不到内容吧,大小写都不一样,另外还有换行的问题。
vb.net正则表达式的写法
var reg = /;SPLIT(?:(?!;SPLIT)[\s\S])*;SPLIT/g;
var str = "";
str.replace(reg,"");
vb.net正则表达式
Imports System.Text.RegularExpressions
Public Class Form1
Public Function MadeRegexArray(ByVal strText As String, ByVal strRegx As String, ByVal rexOpt As RegexOptions, ByVal Groups As Integer) As String()
REM 正则结果直接以字符串组形式返回
REM strHtml待搜索的字符串
REM strRegx正则表达式
REM rexOpt正则选项
On Error Resume Next
Return MadeMatchString(MadeRegexMatch(strText, strRegx, rexOpt), Groups)
End Function
Public Function MadeMatchString(ByVal mc As MatchCollection, ByVal Groups As Integer) As String()
REM 把MatchCollection以字符串组形式保存
REM mc正则匹配的集合
REM 返回字符串组
On Error Resume Next
Dim strRegCode(mc.Count) As String
For i As Integer = 0 To mc.Count - 1
strRegCode(i) = mc(i).Groups(Groups).Value
Next i
Return strRegCode
End Function
Public Function MadeRegexMatch(ByVal strText As String, ByVal strRegex As String, ByVal rexOpt As RegexOptions) As MatchCollection
REM 获取正则表达式匹配的集合
REM strHtml待正则的字符串
REM strRegex正则表达式
REM rexOpt正则选项
REM 返回 MatchCollection 类型集合
On Error Resume Next
Dim rex As Regex = New Regex(strRegex, rexOpt)
Return rex.Matches(strText)
End Function
Public Function MadeRegexReplace(ByVal sText As String, ByVal sRegex As String, ByVal sReplace As String) As String
REM 正则表达式文本替换
REM sText原文本
REM sRegex表达式
REM sReplace替换文本
On Error Resume Next
Dim rex As Regex = New Regex(sRegex, RegexOptions.IgnoreCase)
Return rex.Replace(sText, sReplace)
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
On Error Resume Next
Dim sRegex As String = "([\s\S]*?)"
Dim aTable() As String = MadeRegexArray(TextBox1.Text, sRegex, RegexOptions.IgnoreCase, 1)
For i As Integer = 0 To aTable.Length - 1
TextBox2.Text = TextBox2.Text aTable(i)
Next i
End Sub
End Class
如图:
VB.NET正则表达式
Matches[1] 就是cc的数字
Matches[2] 就是bb的数字
[0]是整个字符串
本文名称:关于vb.net中正则表达式的信息
URL分享:http://cdiso.cn/article/dodophi.html