vb.net 正则表达式

(a|A)href=(.*?[\u4e00-\u9fa5]{8,19}.*?)(a|A)

为江宁等地区用户提供了全套网页设计制作服务，及江宁网站建设行业解决方案。主营业务为做网站、成都网站设计、江宁网站设计，以传统方式定制建设网站，并提供域名空间备案等一条龙服务，秉承以专业、用心的态度为用户提供真诚的服务。我们深信只要达到每一位用户的要求，就会得到认可，从而选择与我们长期合作。这样，我们也可以走得更远！

在需要提取的部分加上正反括号进行匿名分组，

然后用$2获取该匿名分组就可以了

或者可以做命名分组，

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正则表达式

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 正则表达式 日期

var reg = /(.{4}年.{2}月.{2}日|.{2}年.{2}月.{2}日|[^\-]{2}\-[^\-]{2}|[^\/]{2}\/[^\/]{2}|[^\\]{2}\\[^\\]{2})/g;

var str = "sdfasf****年**月**日，**年**月**日，**-**，**/**，**\**asdfadf";

str.match(reg);

vb.net正则表达式的写法

var reg = /;SPLIT(?:(?!;SPLIT)[\s\S])*;SPLIT/g;

var str = "";

str.replace(reg,"");