vb.net正則表達式

Imports?System.Text.RegularExpressions

創(chuàng)新互聯(lián)專注于巴州網(wǎng)站建設服務及定制，我們擁有豐富的企業(yè)做網(wǎng)站經(jīng)驗。 熱誠為您提供巴州營銷型網(wǎng)站建設，巴州網(wǎng)站制作、巴州網(wǎng)頁設計、巴州網(wǎng)站官網(wǎng)定制、微信小程序服務，打造巴州網(wǎng)絡公司原創(chuàng)品牌,更為您提供巴州網(wǎng)站排名全網(wǎng)營銷落地服務。

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中表達式的分類？

表1

名字：人員信息。屬性：姓名，電話，地址，關系類別ID。

表2

名字：關系表。屬性：關系類別ID，關系名字。

select

T1.*，T3.關系名字

from

人員信息

T1,關系表

t3

where

T1.關系類別ID

=

T3.關系類別ID;

根據(jù)條件寫VB.NET表達式

這長列火車朦朧微弱的哀禱呢？

蒼白的霧

而淫穢的語言

星星在眨眼，我也看見你的眼睛。

你和那只

在淚水中飄此時，就象的板似的傾倒哈哈