vb.net正则 vba正则表达式replace

VB.NET 正则表达式 日期

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

var str = "sdfasf****年**月**日vb.net正则，**年**月**日vb.net正则，**-**vb.net正则，**/**vb.net正则，**\**asdfadf";

str.match(reg);

相关问答

Q1: 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

如图：

Q2: VB.net中如何将正则表达式小括号中的内容提取出来？

MatchCollection

Dim IsMatch As Boolean = Regex，如何将SearchPattern中的指定的 那个三个小括号对应的内容即SubMatches(0)=".RegularExpressions.Groups(0);) ！

For Each Mt In Matchs

On Error Resume Next

S = S Macth; Publi" SubMatches(2)=".RegularExpressions; SubMatches(1)=".Matches("，提取不出来呢;Chin".RegularExpressions.Regex(SearchPattern)

Dim Matchs As System;China Public National".+)"？

我用如下 ; 提取出来呢.Text.Regex

Regex = New System; National".IsMatch(StrForSearch)

Matchs = Regex.+)c(，执行了此句之后;(.Text.Text.+)a(;

Dim Regex As System比如正则表达式为

SearchPattern="，具体解决方案如下：

解决方案1：

在这之后的字符会显示不出来.RegularExpressions.Regex(SearchPattern)

Dim Matchs As System;Groups集合索引从0开始.Item(i)，但是第一项是完整匹配项，这个是字符串的结束标记.+)c(，接下去才是子项

S = S .Text;"Dim IsMatch As Boolean = Regex.RegularExpressions，但是不要用Chr(0).Regex

Regex = New System;China Public National".RegularExpressions.Value vbcrlf

Next

也是可以的;

With Matchs; ".Count - 1 '.Text.MatchCollection

'.+)".IsMatch(StrForSearch)

Matchs = Regex：

For Each Mt In Matchs.groups

S = S Mt.Item(0);

Next

End With

MsgBox(S)

你的循环改成.Matches(")

Dim S As String = "

Dim Regex As System.Item(0).Value "Dim SearchPattern As String = ".Text.Groups

For i As Integer = 1 To ;(.+)a(

提问者评价

多谢指教！

解决方案2：

Dim SearchPattern As String = "(.+)a(.+)c(.+)"

Dim Regex As System.Text.RegularExpressions.Regex

Regex = New System.Text.RegularExpressions.Regex(SearchPattern)

Dim Matchs As System.Text.RegularExpressions.MatchCollection

'Dim IsMatch As Boolean = Regex.IsMatch(StrForSearch)

Matchs = Regex.Matches("China Public National")

Dim S As String = ""

With Matchs.Item(0).Groups

For i As Integer = 1 To .Count - 1 'Groups集合索引从0开始，但是第一项是完整匹配项，接下去才是子项

S = S .Item(i).Value " "

Next

End With

MsgBox(S)

解决方案3：

Dim matches As MatchCollection = rx.Matches("(.*)")

关于vb.net正则和vba正则表达式replace的介绍到此就结束了，不知道你从中找到你需要的信息了吗 ？如果你还想了解更多这方面的信息，记得收藏关注本站。