400-1100-266

9:00-24:00（工作日）
主页 > 知识库 > ASP,vbs正则轮翻在文章段落后加上网址等内容

ASP,vbs正则轮翻在文章段落后加上网址等内容
热门标签：电子围栏 服务器配置 银行业务 Linux服务器 Mysql连接数设置 科大讯飞语音识别系统 阿里云 团购网站
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 ="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>

标签：江苏 蚌埠 衢州 衡水 萍乡 大理 广元 枣庄

巨人网络通讯声明：本文标题《ASP,vbs正则轮翻在文章段落后加上网址等内容》，本文关键词  ；如发现本文内容存在版权问题，烦请提供相关信息告之我们，我们将及时沟通与处理。本站内容系统采集于网络，涉及言论、版权与本站无关。
  • 相关文章
  • 推荐文章

    上一篇：asp下Response.Buffer提速

    下一篇：ASP为字符串中的网址自动加上链接

     
    微信咨询办理
    在线QQ客服
    ( 客服小王 )
    ( 客服小李 )
    ( 客服小刘 )
    ( 客服小张 )
    关于我们 | 荣誉资质 | 呼叫中心 | 代理加盟 | 客户案例 | 服务支持 | 产品介绍 | 行业资讯

    Copyright © 1999-2012 诚信 合法 规范的巨人网络 www.1330.cn 始建于2005年

    全国网站建设网站开发咨询热线：400-1100-266   0514-86177077

    江苏扬州巨人网络科技有限公司   总部地址：江苏省扬州信息产业基地11号楼4层

    《增值电信业务经营许可证》苏B2-20120278    苏ICP备15040257号 网站地图
    全国咨询热线
    400-1100-266
    在线客服( QQ：340506921 )
    版权所有：巨人网络(扬州)科技有限公司——拥有网站建设十年经验，具备独立网站开发能力，能够提供完善的网站设计及相关的网站制作服务！     全国统一服务热线：400-1100-266
    收缩
    • 微信客服
    • 微信二维码

    • 电话咨询

    • 400-1100-266