国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > ASP > 正文

ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容

2024-05-04 10:57:26
字體：大 中 小
供稿：網(wǎng)友
<script language ="vbs"> 
'函數(shù)名稱：RegExpTest 
'參數(shù)： strng－－》要處理的字符串;patrn－－》以|隔開的各種結(jié)尾標(biāo)志如：<br/>|</p>|<br>; patrn2－－》要替換成的字符串，也以|隔 
開  
'作者：柳永法(yongfa365)'Blog 
'功能：將strng字符串內(nèi)的以patrn結(jié)束的字符后邊隨機(jī)的加上patrn2里的內(nèi)容 

Function RegExpTest(strng, patrn, patrn2) 
Dim regEx, Match, Matches ' 建立變量。 
Set regEx =New RegExp ' 建立正 則表達(dá)式。 
    regEx.IgnoreCase =True' 設(shè)置是否區(qū)分字符大小寫。 
    regEx.Global =True' 設(shè)置全局可用性。 
    patrn = Split(patrn,"|") 
ForEach p in patrn 
        regEx.Pattern = p ' 設(shè)置模式。 
        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.survivalescaperooms.com/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>轉(zhuǎn)換后字符串</legend>"+ words +"</fieldset><br>" 
</script>

發(fā)表評論 共有條評論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表
主站蜘蛛池模板： 南城县| 洪洞县| 武冈市| 越西县| 珲春市| 梁山县| 福州市| 斗六市| 邵阳县| 新蔡县| 泾阳县| 南京市| 资源县| 荆州市| 平江县| 罗山县| 宜丰县| 吉林省| 木里| 湄潭县| 松桃| 林甸县| 安仁县| 台江县| 肥乡县| 镇平县| 西充县| 沧源| 综艺| 京山县| 汪清县| 明星| 清新县| 海阳市| 邯郸县| 新蔡县| 绥阳县| 措美县| 千阳县| 德昌县| 郧西县|