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

2024-10-24 16:07:37

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>

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()属性制作文章段落更改背景颜色

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

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

相关推荐

随机推荐