国产一级a片免费看高清,亚洲熟女中文字幕在线视频,黄三级高清在线播放,免费黄色视频在线看

在VBA中使用正則表達(dá)式受限需要引用Microsoft VBScript Regular Expressions 5.5類庫。在VBA界面，“工具”-->“引用”，

定義正則表達(dá)式，如下例：

Dim reg As New regexp

With reg

.Global = True  

.IgnoreCase = True

.MultiLine = False

.Pattern = "[^\u4E00-\u9FA50-9A-Za-z]+" ‘匹配所有非漢字、非數(shù)字0-9、非字母

End With

Content = reg.Replace(Content, ",")           ‘將匹配的內(nèi)容用英文狀態(tài)逗號(hào)替換

• 正則表達(dá)式的四個(gè)屬性說明：

1. Global：設(shè)置為true表示查找引擎返回找到的所有符合要求的子字符串，設(shè)置為false表示只返回找到的第一個(gè)符合要求的子字符串。 
2. IgnoreCase：設(shè)置為true表示查找時(shí)忽略大小寫，設(shè)置為FALSE表示查找時(shí)區(qū)分大小寫。
3. Pattern：存放正則表達(dá)式
4. MultiLine：如果為false，則通配符可以匹配換行符。

 

• 正則表達(dá)式有3個(gè)方法：

1. Execute方法：語法object. Execute(sourcestring as string) as string, object為你定義的正則表達(dá)式對(duì)象（如：regEX），參數(shù)sourcestring為要對(duì)其進(jìn)行查找的字符串（如例中的"這有一本關(guān)于VBA的書,它在第二個(gè)書柜里"）。Execute方法查找并返回符合要求的字符串的集合，相當(dāng)于使用“查找”功能。  Test方法：語法object. Execute(sourcestring as string) as string,其結(jié)構(gòu)和用法和Execute方法一樣，它和Execute方法唯一不同的是Test方法只進(jìn)行測(cè)試查找，而不會(huì)返回符合要求的子字符串集合。一般用它判斷是否可以找到符合要求的字符串。 Replace方法：語法object.
2. Replace(sourcestring as string，Replace) as string, object為你定義的正則表達(dá)式對(duì)象，參數(shù)sourcestring為要對(duì)其進(jìn)行查找的字符串, 參數(shù)Replacevar為要替換成的內(nèi)容（如例中的"book"）。
3. Replace方法查找并返回符合要求的字符串的集合，然后對(duì)集合里的字符串進(jìn)行替換。相當(dāng)于先使用“查找”功能然后再使用“替換”功能。

 

• MatchCollection對(duì)象與Match對(duì)象

匹配到的所有對(duì)象放在MatchCollection集合中，這個(gè)集合對(duì)象只有兩個(gè)只讀屬性：

Count：匹配到的對(duì)象的數(shù)目

Item：集合的又一通用方法，需要傳入Index值獲取指定的元素。

 

一般，可以使用For Each語句枚舉集合中的對(duì)象。集合中對(duì)象的類型是Match。

Match對(duì)象有以下幾個(gè)只讀的屬性：

FirstIndex - 匹配字符串在整個(gè)字符串中的位置，值從0開始。

Length - 匹配字符串的長度。

Value - 匹配的字符串。

SubMatches - 集合，匹配字符串中每個(gè)分組的值。作為集合類型，有Count和Item兩個(gè)屬性。

 

• 常用正則表達(dá)式

1. 匹配中文字符的正則表達(dá)式： [\u4e00-\u9fa5]
2. 匹配雙字節(jié)字符(包括漢字在內(nèi))：[^\x00-\xff]
3. 匹配空白行的正則表達(dá)式：\n\s*\r
4. 匹配HTML標(biāo)記的正則表達(dá)式：<(\S*?)[^>]*>.*?</\1>|<.*? />
5. 匹配首尾空白字符的正則表達(dá)式：^\s*|\s*$
6. 匹配Email地址的正則表達(dá)式：\w+([-+.]\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*
7. 匹配網(wǎng)址URL的正則表達(dá)式：[a-zA-z]+://[^\s]*
8. 匹配賬號(hào)是否合法(字母開頭，允許5-16字節(jié)，允許字母數(shù)字下劃線)：^[a-zA-Z][a-zA-Z0-9_]{4,15}$
9. 匹配國內(nèi)電話號(hào)碼：\d{3}-\d{8}|\d{4}-\d{7}
10. 匹配騰訊QQ號(hào)：[1-9][0-9]{4,}
11. 匹配中國郵政編碼：[1-9]\d{5}(?!\d)
12. 匹配身份證：\d{15}|\d{18}     評(píng)注：中國的身份證為15位或18位
13. 匹配ip地址：\d+\.\d+\.\d+\.\d+
14. 匹配特定數(shù)字：

^[1-9]\d*$　　 //匹配正整數(shù)

^-[1-9]\d*$ 　 //匹配負(fù)整數(shù)

^-?[1-9]\d*$　　 //匹配整數(shù)

^[1-9]\d*|0$　 //匹配非負(fù)整數(shù)（正整數(shù) + 0）

^-[1-9]\d*|0$　　 //匹配非正整數(shù)（負(fù)整數(shù) + 0）

^[1-9]\d*\.\d*|0\.\d*[1-9]\d*$　　 //匹配正浮點(diǎn)數(shù)

^-([1-9]\d*\.\d*|0\.\d*[1-9]\d*)$　 //匹配負(fù)浮點(diǎn)數(shù)

^-?([1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0)$　 //匹配浮點(diǎn)數(shù)

^[1-9]\d*\.\d*|0\.\d*[1-9]\d*|0?\.0+|0$　　 //匹配非負(fù)浮點(diǎn)數(shù)（正浮點(diǎn)數(shù) + 0）

^(-([1-9]\d*\.\d*|0\.\d*[1-9]\d*))|0?\.0+|0$　　//匹配非正浮點(diǎn)數(shù)（負(fù)浮點(diǎn)數(shù) + 0）

評(píng)注：處理大量數(shù)據(jù)時(shí)有用，具體應(yīng)用時(shí)注意修正

14）匹配特定字符串：

^[A-Za-z]+$　　//匹配由26個(gè)英文字母組成的字符串

^[A-Z]+$　　//匹配由26個(gè)英文字母的大寫組成的字符串

^[a-z]+$　　//匹配由26個(gè)英文字母的小寫組成的字符串

^[A-Za-z0-9]+$　　//匹配由數(shù)字和26個(gè)英文字母組成的字符串

^\w+$　　//匹配由數(shù)字、26個(gè)英文字母或者下劃線組成的字符串

 

【例1】匹配一次

Worksheets("sheet1").Activate

    Content = "張三；李四！王武佳、高寒；陳慶,鄭強(qiáng)叁”曉紅。趙樓.金三峰"

    Dim reg

    Set reg = CreateObject("VBSCRIPT.REGEXP")

    Dim mc As Match

    reg.Pattern = "[\u4E00-\u9FA50-9A-Za-z]+"

    Dim row As Integer

    row = 1

    If reg.test(Content) Then

        Debug.Print reg.Execute(Content)(0).Value   '輸出張三

End If

 

【例2】匹配所有滿足條件的內(nèi)容

Sub test()

    Worksheets("sheet1").Activate

    Content = "張三；李四！王武佳、高寒；陳慶,鄭強(qiáng)叁”曉紅。趙樓.金三峰"

    Dim reg As New RegExp

    Dim mc As MatchCollection

    With reg

        .Global = True

        .IgnoreCase = True

        .MultiLine = False

        .Pattern = "[\u4E00-\u9FA50-9A-Za-z]+"

    End With

    Dim row As Integer

    row = 1

    If reg.test(Content) Then

        Set mc = reg.Execute(Content)

       For Each mt In mc

            Cells(row, "J").Value = mt.Value

            row = row + 1

       Next

       

    End If

End Sub

結(jié)果為：

 

【例三】匹配優(yōu)先 及非匹配優(yōu)先

Sub test()

   Rem 匹配優(yōu)先(貪婪模式)

   Dim str As String

   str = "abcesfa"

   Set reg = CreateObject("vbscript.regexp")

   Dim mat As Match

   reg.Pattern = "\w+"

   result = reg.Execute(str)(0).value   '結(jié)果為abcesfa

   Debug.Print result

  

   Rem 忽略匹配優(yōu)先(非貪婪模式)

   reg.Pattern = "\w+?"

   result = reg.Execute(str)(0).value   '結(jié)果為a

   Debug.Print result

End Sub

 

【例四】后向引用：找出所有年份相同的

Sub test()

   Dim str As String

   str = "張三20120212到20120922;李斯20110101到2020150909;王武2009到2009;金榮2008到2009"

   Set reg = CreateObject("vbscript.regexp")

   Dim mat As Match

   reg.Pattern = "(\d{4})[^;]+\1+([^;]*)"   //\1表示第一個(gè)括號(hào)匹配的內(nèi)容

   reg.Global = True

   For Each mat In reg.Execute(str)

    Debug.Print mat.value

   Next

End Sub

 

輸出結(jié)果：

20120212到20120922

2009到2009

【例五】正向環(huán)視：找出下面字符串中的所有金額，金額后面有單位“元”或“塊”

Sub test()

   Dim str As String

   str = "張三買了2把掃帚花了22.89元;李斯買了12個(gè)水杯花費(fèi)98.00塊錢"

   Set reg = CreateObject("vbscript.regexp")

   Dim mat As Match

   reg.Pattern = "([\d|.]+)(?=[元|塊])"

   reg.Global = True

   For Each mat In reg.Execute(str)

       Debug.Print mat.value

   Next

End Sub

結(jié)果為：

22.89

98.00

【例六】正向否定環(huán)視：找出下面字符串中所有的字母組成的字符串

Sub test()

   Dim str As String

   str = "asdf張三vdajo?asdv李斯n213749fbi王武:"

   Set reg = CreateObject("vbscript.regexp")

   Dim mat As Match

   reg.Pattern = "\w+(?![a-z])"

   reg.Global = True

   For Each mat In reg.Execute(str)

       Debug.Print mat.value

   Next

End Sub

結(jié)果為：

asdf

vdajo

asdv

n213749fbi

【例七】分組的應(yīng)用

Sub test()

   Dim str As String

   str = "財(cái)務(wù)部23人;后勤部32人;外交部20人"

   Set reg = CreateObject("vbscript.regexp")

   Dim mat As MatchCollection

   reg.Pattern = "([\u4e00-\u9fa5]{3,})(\d+人)"

   reg.Global = True

   Set mat = reg.Execute(str)

  For i = 0 To mat.Count - 1

     Debug.Print mat(i).SubMatches(0) & ":" & mat(i).SubMatches(1)

  Next

End Sub

結(jié)果為：

財(cái)務(wù)部:23人

后勤部:32人

外交部:20人