校园春色亚洲色图_亚洲视频分类_中文字幕精品一区二区精品_麻豆一区区三区四区产品精品蜜桃

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

ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容
熱門標簽：外呼系統(tǒng)怎么話費 高質(zhì)量的電銷外呼系統(tǒng) 硅基電話機器人加盟 無營業(yè)執(zhí)照地圖標注教學 地圖標注還可以做嗎 友邦互聯(lián)電銷機器人違法嗎 滴滴地圖標注上車點 電銷機器人采購 宿州防封外呼系統(tǒng)平臺
script language ="vbs"> 
'函數(shù)名稱：RegExpTest 
'參數(shù)： strng－－》要處理的字符串;patrn－－》以|隔開的各種結尾標志如：br/>|/p>|br>; patrn2－－》要替換成的字符串，也以|隔 
開  
'作者：柳永法(yongfa365)'Blog 
'功能：將strng字符串內(nèi)的以patrn結束的字符后邊隨機的加上patrn2里的內(nèi)容 

Function RegExpTest(strng, patrn, patrn2) 
Dim regEx, Match, Matches ' 建立變量。 
Set regEx =New RegExp ' 建立正 則表達式。 
    regEx.IgnoreCase =True' 設置是否區(qū)分字符大小寫。 
    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 ="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>轉換后字符串/legend>"+ words +"/fieldset>br>" 
/script>

標簽：江門 宣城 儋州 新余 雅安 七臺河 錫林郭勒盟 廣元

巨人網(wǎng)絡通訊聲明：本文標題《ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容》，本文關鍵詞  ASP,vbs,正則,輪翻,在,文章,；如發(fā)現(xiàn)本文內(nèi)容存在版權問題，煩請?zhí)峁┫嚓P信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡，涉及言論、版權與本站無關。
  • 相關文章
  • 下面列出與本文章《ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容》相關的同類信息！
  • 本頁收集關于ASP,vbs正則輪翻在文章段落后加上網(wǎng)址等內(nèi)容的相關信息資訊供網(wǎng)民參考！
    • 推薦文章
    主站蜘蛛池模板： 鲁山县| 云阳县| 南昌市| 湖北省| 女性| 康乐县| 玉山县| 雷州市| 仲巴县| 砚山县| 平武县| 都安| 承德市| 凤凰县| 成安县| 昂仁县| 黑山县| 景谷| 新余市| 固始县| 永安市| 通城县| 水富县| 皮山县| 南丹县| 治多县| 太湖县| 元谋县| 调兵山市| 郯城县| 清流县| 来凤县| 阳曲县| 宜黄县| 永善县| 乌什县| 永平县| 吉林市| 康定县| 三穗县| 响水县|