ASP,vbs正则轮翻在文章段落后加上网址等内容

<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 ="111<br/>222</p>333<br/>444</p>555<Br>666</P>111" 
Source = strng 
patrn ="<br/>|</p>|<br>" 
patrn2 ="www.xiaoshuo8.net|http://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>

赞 (0)

相关推荐

  • ASP,vbs正则轮翻在文章段落后加上网址等内容

    <script language ="vbs">  '函数名称:RegExpTest  '参数: strng-->要处理的字符串;patrn-->以|隔开的各种结尾标志如:<br/>|</p>|<br>; patrn2-->要替换成的字符串,也以|隔  开   '作者:柳永法(yongfa365)'Blog  '功能:将strng字符串内的以patrn结束的字符后边随机的加上patrn2里的内容 Function Reg

  • ASP vbs 代码大小写规范

    ASP vbs 代码大小写规范-我们 function aspvbs() { var ss=document.getElementById("aspvbs").value; var vbs0="函数关键字|Function|Sub|"; var vbs1="保留关键字|And|As|ByRef|Call|Case|Class|Const|Dim|Do|Each|Else|ElseIf|Empty|End|Eqv|Erase|Execute|ExecuteG

  • 通过jquery toggleClass()属性制作文章段落更改背景颜色

    通过jquery toggleClass()属性制作文章段落更改背景颜色

    定义和用法 toggleClass() 方法对添加和移除被选元素的一个或多个类进行切换. 该方法检查每个元素中指定的类.如果不存在则添加类,如果已设置则删除之.这就是所谓的切换效果. 然而,通过使用 "switch" 参数,您能够规定只删除或只添加类. 语法 $(selector).toggleClass(classname,function(index,currentclass),switch) 参数 描述 classname 必需.规定添加或移除的一个或多个类名.如需规定若干个类,

  • ASP.NET MVC5网站开发添加文章（八）

    ASP.NET MVC5网站开发添加文章（八）

    一.添加文章 1.KindEditor富文本编辑器 到官方网站http://kindeditor.net/down.php下载最新版本,解压后把代码复制到项目的Scripts文件夹下. 2.添加界面的显示. 在ArticleController中添加Add 方法 /// <summary> /// 添加文章 /// </summary> /// <returns>视图页面</returns> public ActionResult Add() { retur

  • PHP正则删除html代码中a标签并保留标签内容的方法 原创

    本文实例讲述了PHP正则删除html代码中a标签并保留标签内容的方法.分享给大家供大家参考,具体如下: 一.问题: 有HTML代码如: <div>欢迎访问我们<a href=http://www.jb51.net>www.jb51.net</a></div> 要求正则删除a标签,同时保留a标签内容,如下: <div>欢迎访问我们www.jb51.net</div> 二.解决方法: $str = "<div>欢迎访

  • asp画中画广告插入在每篇文章中的实现方法

    尽管很多人给出了给每篇文章加上画中画广告的方法,但是这些所谓的方法,都不能真正地实现文字环绕在广告周围的"画中画"效果,只能左对其或者右对齐.现在要讨论的这个方法才能真正实现像新浪网.搜狐网那样的画中画广告效果. 首先说一下错误的div+CSS方法,希望大家别被误导: <div id="outer" style="float:left;"> <div id="inner" style="float:

  • asp 图片正则 替换，替换前检查图片是不是本地地址的方法

    直接用正则替换,但没有判断功能 Function FormatImg(content) dim re Set re=new RegExp re.IgnoreCase =true re.Global=True re.Pattern="(script)" Content=re.Replace(Content,"script") re.Pattern="<img.[^>]*src(=| )(.[^>]*)>" Content=r

  • asp(vbs)fso OpenTextFile方法参数说明

    OpenTextFile是asp语言中的一个方法 打开指定的文件并返回一个 TextStream 对象,可以通过这个对象对文件进行读.写或追加. object.OpenTextFile(filename[, iomode[, create[, format]]]) 1.方法编辑打开指定的文件并返回一个 TextStream 对象,可以通过这个对象对文件进行读.写或追加. object.OpenTextFile(filename[, iomode[, create[, format]]]) 2.参

  • 用ASP VBS xmlhttp adodbstream下载和保存图片的代码

    函数: 复制代码 代码如下: function saveFile(data,recfilen)      set Astream=CreateObject("Adodb.Stream")'asp Server.CreateObject("Adodb.Stream")      fxt=mid(recfilen,InStrRev(recfilen,".")+1)      txt=false      if fxt="asp" 

  • asp(vbs)Rs.Open和Conn.Execute的详解和区别及&H0001的说明

    1. Rs.Open SQL,Conn,A,B,C 2. Conn.Execute(SQL,RowsAffected,C) 一.Conn.Execute(SQL,RowsAffected,C) 参数含义: SQL的值可以是SQL语句.表名.存储过程名,也可以是数据提供者所能接受的任意字符串.为了提高性能,最好为C参数指定合适的值 可选参数RowsAffected 1.一个Insert.Update或Delete查询执行以后,RowsAffected返回所影响的数目,这些查询会返回一个关闭的Rec

随机推荐