vbs正则轮翻在文章段落后加上网址,网站名称,网站介绍等内容

<script language="vbs">
'柳永法制作
'网址:
http://hi.baidu.com/yongfa365/blog/item/c9d7b90ec3d9bce737d1227b.html

Function RegExpTest(strngpatrnpatrn2)
    
Dim regExMatchMatches 
' 建立变量。
    
Set regEx New RegExp 
' 建立正则表达式。
    
regEx.IgnoreCase True 
' 设置是否区分字符大小写。
    
regEx.Global True 
' 设置全局可用性。
    
patrn Split(patrn"|"
)

    
For Each in patrn
        regEx.Pattern 
' 设置模式。
        
strng regEx.Replace(strng"||" Chr(10
))
    
Next

    
strng Split(strng"||"
)
    
For Each in strng
        s arrArt(patrn2
)
    
Next
    
RegExpTest s
End Function

Function 
arrArt(patrn2
)
    
arrArti Split(patrn2"|"
)
    
Randomize
    
arrArt arrArti(CInt(UBound(arrArti) * Rnd
))
End Function

MsgBox(RegExpTest"111<br/>222</p>333<br/>444</p>555<Br>666</P>111""<br/>|</p>|<br>""www.cbdcn.com|http://hi.baidu.com/yongfa365/blog|hi.baidu.com/yongfa365"
))

</script>

 
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值