ASP,vbs正则轮翻在文章段落后加上网址等内容
2018-09-06 12:37
<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=
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>
下一篇：登陆asp class