VB點(diǎn)虐 中如何將正則表達(dá)式小括號中的內(nèi)容提取出來？

MatchCollection

成都網(wǎng)站建設(shè)哪家好，找成都創(chuàng)新互聯(lián)公司！專注于網(wǎng)頁設(shè)計、成都網(wǎng)站建設(shè)公司、微信開發(fā)、微信小程序、集團(tuán)企業(yè)網(wǎng)站制作等服務(wù)項(xiàng)目。核心團(tuán)隊均擁有互聯(lián)網(wǎng)行業(yè)多年經(jīng)驗(yàn)，服務(wù)眾多知名企業(yè)客戶；涵蓋的客戶類型包括：門窗定制等眾多領(lǐng)域，積累了大量豐富的經(jīng)驗(yàn)，同時也獲得了客戶的一致稱贊！

Dim IsMatch As Boolean = Regex，如何將SearchPattern中的指定的 那個三個小括號對應(yīng)的內(nèi)容即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(，執(zhí)行了此句之后;(.Text.Text.+)a(;

Dim Regex As System比如正則表達(dá)式為

SearchPattern="，具體解決方案如下：

解決方案1：

在這之后的字符會顯示不出來.RegularExpressions.Regex(SearchPattern)

Dim Matchs As System;Groups集合索引從0開始.Item(i)，但是第一項(xiàng)是完整匹配項(xiàng)，這個是字符串的結(jié)束標(biāo)記.+)c(，接下去才是子項(xiàng)

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)

你的循環(huán)改成.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開始，但是第一項(xiàng)是完整匹配項(xiàng)，接下去才是子項(xiàng)

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

Next

End With

MsgBox(S)

解決方案3：

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

VB.NET 正則表達(dá)式 日期

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

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

str.match(reg);

vb點(diǎn)虐 正則表達(dá)式

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?正則結(jié)果直接以字符串組形式返回

REM?strHtml待搜索的字符串

REM?strRegx正則表達(dá)式

REM?rexOpt正則選項(xiàng)

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?獲取正則表達(dá)式匹配的集合

REM?strHtml待正則的字符串

REM?strRegex正則表達(dá)式

REM?rexOpt正則選項(xiàng)

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?正則表達(dá)式文本替換

REM?sText原文本

REM?sRegex表達(dá)式

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

如圖：

本文標(biāo)題：vb點(diǎn)虐 正則 vba正則表達(dá)式語法大全
轉(zhuǎn)載注明：http://vcdvsql.cn/article40/ddeioeo.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供服務(wù)器托管、微信公眾號、自適應(yīng)網(wǎng)站、移動網(wǎng)站建設(shè)、定制網(wǎng)站、網(wǎng)站制作

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時需注明來源： 創(chuàng)新互聯(lián)