ASP,vbs正则轮翻在文章段落后加上网址等内容

也想出现在这里？点击联系我~

<scriptlanguage="vbs">

'函数名称：RegExpTest

'参数：strng－－》要处理的字符串;patrn－－》以|隔开的各种结尾标志如：<br/>|</p>|<br>;patrn2－－》要替换成的字符串，也以|隔

开

'作者：柳永法(yongfa365)'Blog

'功能：将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容



FunctionRegExpTest(strng,patrn,patrn2)

DimregEx,Match,Matches'建立变量。

SetregEx=NewRegExp'建立正 则表达式。

regEx.IgnoreCase=True'设置是否区分字符大小写。

regEx.Global=True'设置全局可用性。

patrn=Split(patrn,"|")

ForEachpinpatrn

regEx.Pattern=p'设置模式。

strng=regEx.Replace(strng,"||"&Chr(10)&p)

Next



strng=Split(strng,"||")

ForEachEinstrng

s=s+E+arrArt(patrn2)

Next

RegExpTest=s

EndFunction



FunctionarrArt(patrn2)

arrArti=Split(patrn2,"|")

Randomize

arrArt=arrArti(CInt(UBound(arrArti)*Rnd))

EndFunction





strng="111<br/>222</p>333<br/>444</p>555<Br>666</P>111"

Source=strng

patrn="<br/>|</p>|<br>"

patrn2="www.zzvips.com|//www.aspku.net/blog|hi.baidu.com/"

words=RegExpTest(strng,patrn,patrn2)

MsgBox(words)



</script>



<script>

document.Write"<fieldset><legend>原字符串</legend>"+Source+"</fieldset><br>"

document.Write"<fieldset><legend>转换后字符串</legend>"+words+"</fieldset><br>"

</script>