佳木斯湛栽影视文化发展公司
主頁 > 知識庫 > ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容

ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容
熱門標(biāo)簽：電子圍欄 服務(wù)器配置 銀行業(yè)務(wù) Linux服務(wù)器 Mysql連接數(shù)設(shè)置 科大訊飛語音識別系統(tǒng) 阿里云 團(tuán)購網(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 ="111br/>222/p>333br/>444/p>555Br>666/P>111" 
Source = strng 
patrn ="br/>|/p>|br>" 
patrn2 ="www.xiaoshuo8.net|https://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>轉(zhuǎn)換后字符串/legend>"+ words +"/fieldset>br>" 
/script>

標(biāo)簽：江蘇 蚌埠 衢州 衡水 萍鄉(xiāng) 大理 廣元 棗莊

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容》，本文關(guān)鍵詞  ；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 收縮
    • 微信客服
    • 微信二維碼

    • 電話咨詢

    • 400-1100-266
    永修县| 新野县| 玉环县| 威宁| 华池县| 湟中县| 辰溪县| 成都市| 翁牛特旗| 西安市| 定西市| 宁安市| 南江县| 方山县| 穆棱市| 东丰县| 南澳县| 沅陵县| 建始县| 山东省| 会宁县| 安义县| 宜都市| 邵武市| 寿阳县| 抚顺县| 汝城县| 慈溪市| 罗山县| 罗定市| 泰宁县| 松江区| 新民市| 仁化县| 景德镇市| 邯郸县| 新乐市| 灵宝市| 邵阳县| 独山县| 沂源县|