当前位置: 移动技术网 > IT编程>开发语言>Asp > ASP,vbs正则轮翻在文章段落后加上网址等内容

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

2017年12月12日  | 移动技术网IT编程  | 我要评论
<script language ="vbs">  '函数名称:regexptest  '参数: strng-
<script language ="vbs"> 
'函数名称:regexptest 
'参数: strng--》要处理的字符串;patrn--》以|隔开的各种结尾标志如:<br/>|</p>|<br>; patrn2--》要替换成的字符串,也以|隔 
开  
'作者:柳永法(yongfa365)'blog 
'功能:将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容 

function regexptest(strng, patrn, patrn2) 
dim regex, match, matches ' 建立变量。 
set regex =new regexp ' 建立正 则表达式。 
    regex.ignorecase =true' 设置是否区分字符大小写。 
    regex.global =true' 设置全局可用性。 
    patrn = split(patrn,"|") 
foreach p in patrn 
        regex.pattern = p ' 设置模式。 
        strng = regex.replace(strng,"||"& chr(10)& p) 
next 

    strng = split(strng,"||") 
foreach e in strng 
        s = s + e + arrart(patrn2) 
next 
    regexptest = s 
endfunction 

function arrart(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|//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>

如您对本文有疑问或者有任何想说的,请点击进行留言回复,万千网友为您解惑!

相关文章:

验证码:
移动技术网