<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.xiaoshuo8.net|http://www.jb51.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>
【ASP,vbs正则轮翻在文章段落后加上网址等内容】相关文章：
★ asp中利用CSW中文分词组件来实现自己网站的内容关键词自动提取
★ ASP利用adodb.stream下载文件但不打开的方法
★ 深思 PHP 数组遍历的差异（array_diff 的实现）
★ asp do while 循环语法与do while实例教程