欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

ASP正則匹配替換函數(shù)代碼

 更新時間:2023年06月20日 13:48:51   作者:senyandy  
這篇文章主要介紹了ASP正則匹配替換函數(shù)代碼,需要的朋友可以參考下

本文要介紹的函數(shù)名為RegexIsMatch,大家一看名稱就知道用正則表達(dá)式相關(guān),并且貌似就是來做正則匹配的功能。

這個asp的正則表達(dá)式匹配函數(shù)有兩個參數(shù)。subject要處理的目標(biāo)對象,即源字符串。pattern匹配的正則表達(dá)式。也就是說這個RegexReplace函數(shù)會在subject中,通過pattern進(jìn)行正則匹配,如果找到匹配項,則返回True,否則為False。

1、返回true或者false 用來字符串中是否有匹配的內(nèi)容

<%
Function RegexIsMatch(subject, pattern)
 Dim reg
 Set reg = New RegExp
 reg.Global = True
 reg.MultiLine = True
 reg.Pattern = pattern
 RegexIsMatch = reg.Test(subject)
End Function
%>

2、asp中根據(jù)正則找到匹配的并進(jìn)行替換的函數(shù)

Function ReplaceTest(str,patrn,replStr)
    Dim regEx, str1
    Set regEx = New RegExp
    regEx.Pattern = patrn
    regEx.IgnoreCase = True
    ReplaceTest = regEx.Replace(str, replStr)
End Function
ip="127.0.0.1"
response.write(ReplaceTest(ip,"\d+", "cat"))

ASP正則表達(dá)式用法

RegExp對象提供簡單的正則表達(dá)式支持功能。

RegExp對象的用法:

Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分字符大小寫。
regEx.Global = True ' 設(shè)置全局可用性。
Set Matches = regEx.Execute(strng) ' 執(zhí)行搜索。
For Each Match in Matches ' 遍歷匹配集合。
RetStr = RetStr & "Match found at position "
RetStr = RetStr & Match.FirstIndex & ". Match Value is '"
RetStr = RetStr & Match.Value & "'." & vbCRLF
Next
RegExpTest = RetStr
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

RegExp 對象的屬性

◎ Global屬性

Global屬性設(shè)置或返回一個 Boolean 值,該值指明在整個搜索字符串時模式是全部匹配還是只匹配第一個。
語法
object.Global [= True | False ]
object 參數(shù)總是 RegExp 對象。如果搜索應(yīng)用于整個字符串,Global 屬性的值為 True,否則其值為 False。默認(rèn)的設(shè)置為 True。Global 屬性的用法(改變賦予 Global 屬性的值并觀察其效果):

Function RegExpTest(patrn, strng)
Dim regEx ' 建立變量。
Set regEx = New RegExp ' 建立規(guī)范表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分字母的大小寫。
regEx.Global = True ' 設(shè)置全程性質(zhì)。
RegExpTest = regEx.Execute(strng) ' 執(zhí)行搜索。
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

◎ IgnoreCase屬性

IgnoreCase屬性設(shè)置或返回一個Boolean值,指明模式搜索是否區(qū)分大小寫。
語法
object.IgnoreCase [= True | False ]
object 參數(shù)總是一個 RegExp 對象。如果搜索是區(qū)分大小寫的,則 IgnoreCase 屬性為 False;否則為 True。缺省值為 True。

IgnoreCase 屬性的用法(改變賦予 IgnoreCase 屬性的值以觀察其效果):

Function RegExpTest(patrn, strng)
Dim regEx ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分大小寫。
RegExpTest = regEx.Execute(strng) ' 執(zhí)行搜索。
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

◎ Pattern屬性

Pattern屬性設(shè)置或返回被搜索的正則表達(dá)式模式。
語法
object.Pattern [= "searchstring"]
Pattern 屬性的語法包含以下幾個部分:

語法說明:
object 必需的??偸且粋€ RegExp 對象變量。
searchstring 可選的。被搜索的正則字符串表達(dá)式。它可能包含設(shè)置部分表格中的各種正則表達(dá)式字符。

設(shè)置
  在書寫正則表達(dá)式的模式時使用了特殊的字符和序列。下面描述了可以使用的字符和序列,并給出了實例。
 \ 將下一個字符標(biāo)記為特殊字符或字面值。例如"n"與字符"n"匹配。"\n"與換行符匹配。序列"\\"與"\"匹配對面,"\("與"("匹配。
 ^ 匹配輸入的開始位置。
 $ 匹配輸入的結(jié)尾。
 * 匹配前一個字符零次或幾次。例如,"zo*"可以匹配"z"、"zoo"。
 + 匹配前一個字符一次或多次。例如,"zo+"可以匹配"zoo",但不匹配"z"。
 ? 匹配前一個字符零次或一次。例如,"a?ve?"可以匹配"never"中的"ve"。
 . 匹配換行符以外的任何字符。
 (pattern) 與模式匹配并記住匹配。匹配的子字符串可以從作為結(jié)果的 Matches 集合中使用 Item [0]...[n]取得。如果要匹配括號字符(和 ),可使用"\(" 或 "\)"。
 x|y 匹配 x 或 y。例如 "z|food" 可匹配 "z" 或 "food"。"(z|f)ood" 匹配 "zoo" 或 "food"。
 {n} n 為非負(fù)的整數(shù)。匹配恰好n次。例如,"o{2}" 不能與 "Bob 中的 "o" 匹配,但是可以與"foooood"中的前兩個o匹配。
 {n,} n 為非負(fù)的整數(shù)。匹配至少n次。例如,"o{2,}"不匹配"Bob"中的"o",但是匹配"foooood"中所有的o。"o{1,}"等價于"o+"。"o{0,}"等價于"o*"。
 {n,m} m 和 n 為非負(fù)的整數(shù)。匹配至少 n 次,至多 m 次。例如,"o{1,3}" 匹配 "fooooood"中前三個o。"o{0,1}"等價于"o?"。
 [xyz] 一個字符集。與括號中字符的其中之一匹配。例如,"[abc]" 匹配"plain"中的"a"。
 [^xyz] 一個否定的字符集。匹配不在此括號中的任何字符。例如,"[^abc]" 可以匹配"plain"中的"p".
 [a-z] 表示某個范圍內(nèi)的字符。與指定區(qū)間內(nèi)的任何字符匹配。例如,"[a-z]"匹配"a"與"z"之間的任何一個小寫字母字符。
 [^m-z] 否定的字符區(qū)間。與不在指定區(qū)間內(nèi)的字符匹配。例如,"[m-z]"與不在"m"到"z"之間的任何字符匹配。
 \b 與單詞的邊界匹配,即單詞與空格之間的位置。例如,"er\b" 與"never"中的"er"匹配,但是不匹配"verb"中的"er"。
 \B 與非單詞邊界匹配。"ea*r\B"與"never early"中的"ear"匹配。
 \d 與一個數(shù)字字符匹配。等價于[0-9]。
 \D 與非數(shù)字的字符匹配。等價于[^0-9]。
 \f 與分頁符匹配。
 \n 與換行符字符匹配。
 \r 與回車字符匹配。
 \s 與任何白字符匹配,包括空格、制表符、分頁符等。等價于"[ \f\n\r\t\v]"。
 \S 與任何非空白的字符匹配。等價于"[^ \f\n\r\t\v]"。
 \t 與制表符匹配。
 \v 與垂直制表符匹配。
 \w 與任何單詞字符匹配,包括下劃線。等價于"[A-Za-z0-9_]"。
 \W 與任何非單詞字符匹配。等價于"[^A-Za-z0-9_]"。
 \num 匹配 num個,其中 num 為一個正整數(shù)。引用回到記住的匹配。例如,"(.)\1"匹配兩個連續(xù)的相同的字符。
 \n 匹配 n,其中n 是一個八進(jìn)制換碼值。八進(jìn)制換碼值必須是 1, 2 或 3 個數(shù)字長。例如,"\11" 和 "\011" 都與一個制表符匹配。"\0011"等價于"\001" 與 "1"。八進(jìn)制換碼值不得超過 256。否則,只有前兩個字符被視為表達(dá)式的一部分。允許在正則表達(dá)式中使用ASCII碼。
 \xn 匹配n,其中n是一個十六進(jìn)制的換碼值。十六進(jìn)制換碼值必須恰好為兩個數(shù)字長。例如,"\x41"匹配"A"。"\x041"等價于"\x04" 和 "1"。允許在正則表達(dá)式中使用 ASCII 碼。

Pattern 屬性的用法:

Function RegExpTest(patrn, strng)
Dim regEx ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分大小寫。
RegExpTest = regEx.Execute(strng) ' 執(zhí)行搜索。
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

RegExp對象的方法

◎ Execute方法

Execute方法對指定的字符串執(zhí)行正則表達(dá)式搜索。
語法
object.Execute(string)
  語法部分描述
object 必需的。總是一個 RegExp 對象的名稱。
string 必需的。要在其上執(zhí)行正則表達(dá)式的文本字符串。

說明
正則表達(dá)式搜索的設(shè)計模式是通過 RegExp 對象的 Pattern 來設(shè)置的。
Execute 方法返回一個 Matches 集合,其中包含了在 string 中找到的每一個匹配的 Match 對象。如果未找到匹配,Execute 將返回空的 Matches 集合。Execute 方法的用法:

Function RegExpTest(patrn, strng)
Dim regEx ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = False ' 設(shè)置區(qū)分大小寫。
regEx.Global = True ' 搜索全部匹配。
RegExpTest = regEx.Execute(strng) ' 執(zhí)行搜索。
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

◎ Replace方法

Replace方法替換在正則表達(dá)式查找中找到的文本。
語法
object.Replace(string1, string2)
  語法部分描述
object 必需的??偸且粋€ RegExp 對象的名稱。
string1 必需的。string1 是將要進(jìn)行文本替換的字符串。
string2 必需的。 string2 是替換文本字符串。

說明
 被替換的文本的實際模式是通過 RegExp 對象的 Pattern 屬性設(shè)置的。
Replace 方法返回 string1 的副本,其中的 RegExp.Pattern 文本已經(jīng)被替換為 string2。如果沒有找到匹配的文本,將返回原來的 string1 的副本。

replace 方法的用法:

Function ReplaceTest(patrn, replStr)
Dim regEx, str1 ' 建立變量。
str1 = "The quick brown fox jumped over the lazy dog."
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = True ' 設(shè)置是否區(qū)分大小寫。
ReplaceTest = regEx.Replace(str1, replStr) ' 作替換。
End Function
MsgBox(ReplaceTest("fox", "cat"))
' 將 'fox' 替換為 'cat'。
;另外,Replace 方法在模式中替換 subexpressions 。 下面對以前示例中函數(shù)的調(diào)用,替換了原字符串中的所有字對:
MsgBox(ReplaceText("(\S+)(\s+)(\S+)", "$3$2$1")) ' Swap pairs of words.

◎ Test方法

Test方法對指定的字符串執(zhí)行一個正則表達(dá)式搜索,并返回一個 Boolean 值指示是否找到匹配的模式。
語法
object.Test(string)
  語法部分描述
object 必需的??偸且粋€ RegExp 對象的名稱。
string 必需的。要執(zhí)行正則表達(dá)式搜索的文本字符串。

說明
  正則表達(dá)式搜索的實際模式是通過RegExp對象的Pattern屬性來設(shè)置的。RegExp.Global屬性對Test方法沒有影響。
  如果找到了匹配的模式,Test方法返回True;否則返回False。

Test 方法的用法:

Function RegExpTest(patrn, strng)
Dim regEx, retVal ' 建立變量。
Set regEx = New RegExp ' 建立正則表達(dá)式。
regEx.Pattern = patrn ' 設(shè)置模式。
regEx.IgnoreCase = False ' 設(shè)置是否區(qū)分大小寫。
retVal = regEx.Test(strng) ' 執(zhí)行搜索測試。
If retVal Then
RegExpTest = "找到一個或多個匹配。"
Else
RegExpTest = "未找到匹配。"
End If
End Function
MsgBox(RegExpTest("is.", "IS1 is2 IS3 is4"))

到此這篇關(guān)于ASP正則匹配替換函數(shù)代碼的文章就介紹到這了,更多相關(guān)ASP正則匹配替換內(nèi)容請搜索腳本之家以前的文章或繼續(xù)瀏覽下面的相關(guān)文章希望大家以后多多支持腳本之家!

相關(guān)文章

最新評論