asp常用的正则表达式实现字符串的替换

去除html标签正则<\/*[^<>]*>
Function LoseHtml(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<\/*[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    Set RegEx = Nothing
    LoseHtml = ClsTempLoseStr
End function
去除网页中的class
Function LoseClassTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(class=){1,}(""|\'){0,1}\S+(""|\'|>|\s){0,1}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseClassTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseScriptTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<script){1,}[^<>]*>[^\0]*(<\/script>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseScriptTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseIFrameTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<iframe){1,}[^<>]*>[^\0]*(<\/iframe>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseIFrameTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseObjectTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<object){1,}[^<>]*>[^\0]*(<\/object>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseObjectTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseSpanTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}span[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseSpanTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseFontTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}font[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseFontTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseATag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}a[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseATag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseDivTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}div[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseDivTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseStyleTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "(<style){1,}[^<>]*>[^\0]*(<\/style>){1,}"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseStyleTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseNoteTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<!--\/*[^<>]*-->"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseNoteTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseTableTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}table[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTableTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseTDTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}td[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTDTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

Function LoseTRTag(ContentStr)
    Dim ClsTempLoseStr,RegEx
        ClsTempLoseStr = Cstr(ContentStr)
    Set RegEx = New RegExp
        RegEx.Pattern = "<(\/){0,1}tr[^<>]*>"
        RegEx.IgnoreCase = True
        RegEx.Global = True
    ClsTempLoseStr = RegEx.Replace(ClsTempLoseStr,"")
    LoseTRTag = ClsTempLoseStr
    Set RegEx = Nothing
End Function

(0)

相关推荐

  • ASP正则函数替换分页后的参数

    Function DRexPage(Str)     Dim RegEx     If IsNull(Str) Or Str="" Then Exit Function    Set RegEx=New RegExp         RegEx.IgnoreCase=True        RegEx.pattern="(\&)?page=(\d)+"        DRexPage=regEx.replace(Str,"")  '(St

  • 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替换、保存远程图片实现代码

    ASP通过函数来实现替换.保存远程图片,完成自动采集图片.提取图片的功能,函数中自动判断重复图片,智能分析链接路径,并转成成相对的图片地址保存在你指定的网站目录中,我们可将此函数用在后台的编辑器中,当你复制了含有图片的内容后,本代码会自动帮你上传图片.同时本代码也是采集程序中的重要处理函数,函数代码如下: Function ReplaceSaveRemoteFile(ConStr,strInstallDir,strChannelDir,SaveTf,TistUrl) If ConStr="$Fa

  • asp.net保存远程图片的代码

    注意:并没有实现CSS中的图片采集,且图片的正则还有待完善. 复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; using System.Web.UI.WebControls.WebParts; using

  • asp+Access通用的自动替换数据库中的字符串

    当初只是为了玩玩写的,没想到写了之后不断有人询问,所以改写了一下代码,完善了一下,支持了正则替换,避开了会导致出错的二进制(ole对象),并且做了一个EXE的程序.感谢虚拟帮忙. 附asp代码: 复制代码 代码如下: <%     '####################################     '批量替换数据库内容2008-3-17     '替换是不可逆的,所以操作前做好能备份     '####################################     Di

  • ASP保存远程图片到本地 同时取得第一张图片并创建缩略图的代码

    采集中 或者 在线添加文章中 都可以用到此功能 俺自己在baidu上搜索的保存远程图片到本地的代码 感觉比较难用点 而且没有现成的比较全的代码 俺也看不懂 俺从 SNA新闻采集系统 For 3.62 (程序制作:ansir)里提取了点函数 用下 比较简单好用 以下是函数 程序代码  复制代码 代码如下: <% '================================================== '函数名:CheckDir2 '作 用:检查文件夹是否存在 '参 数:FolderP

  • asp.net(c#)判断远程图片是否存在

    复制代码 代码如下: private int GetUrlError(string curl) { int num = 200; if(this.method==1) { HttpWebRequest request=(HttpWebRequest) WebRequest.Create(new Uri(curl)); ServicePointManager.Expect100Continue=false; try { ((HttpWebResponse)request.GetResponse()

  • asp.net高效替换大容量字符实现代码

    一般进行替换操作都这样: 复制代码 代码如下: str=str.replace(字符串一,字符串二) 不难发现一个问题,如果str要循环替换很多次,下一次替换时会累加上上次替换的内容,并且全遍历一次,如果字符串二很多,替换的过程就像阶梯效果,越来越大,所以速度越来越慢.要解决这个问题只能找另外的方法替换这种表达方式. 如何以更高效率代替这种操作? 思路如下: 每次替换完后,在下次替换时先排除这次替换的内容,累加本次替换的内容. 复制代码 代码如下: public Regex returnMatc

  • asp常用的正则表达式实现字符串的替换

    去除html标签正则<\/*[^<>]*>Function LoseHtml(ContentStr)     Dim ClsTempLoseStr,RegEx         ClsTempLoseStr = Cstr(ContentStr)     Set RegEx = New RegExp         RegEx.Pattern = "<\/*[^<>]*>"         RegEx.IgnoreCase = True   

  • JAVA正则表达式及字符串的替换与分解相关知识总结

    JAVA正则表达式及字符串的替换与分解 Java 提供了 java.util.regex 包来与正则表达式进行模式匹配 java.util.regex 包主要包括以下三个类: Pattern 类: pattern 对象是一个正则表达式的编译表示.Pattern 类没有公共构造方法.要创建一个 Pattern 对象,你必须首先调用其公共静态编译方法,它返回一个 Pattern 对象.该方法接受一个正则表达式作为它的第一个参数. Matcher 类: Matcher 对象是对输入字符串进行解释和匹配

  • JS使用replace()方法和正则表达式进行字符串的搜索与替换实例

    1.JS字符串的替换及replace()方法的使用 replace(regexp,replacement)方法有两个参数,第一参数可以是一个纯文本字符串或是一个RegExp对象,具体请看RegExp对象的使用:第二个参数可是一个字符串也可以是一个函数. 以下是JS字符串替换的举例: 例1: 复制代码 代码如下: var str="Hello world!";document.write(str.replace(/world/, "phper")); 例2: 复制代码

  • 常用的正则表达式大全(数字、字符、固定格式)

    相关阅读: IOS开发常用的正则表达式 Java正则表达式过滤出字母.数字和中文 正则表达式(regular expression)描述了一种字符串匹配的模式,可以用来检查一个串是否含有某种子串.将匹配的子串做替换或者从某个串中取出符合某个条件的子串等. 列目录时, dir *.txt或ls *.txt中的*.txt就不是一个正则表达式,因为这里*与正则式的*的含义是不同的. 构造正则表达式的方法和创建数学表达式的方法一样.也就是用多种元字符与运算符可以将小的表达式结合在一起来创建更大的表达式.

  • javascript正则表达式和字符串RegExp and String(二)

    在上篇文章给大家介绍了javascript正则表达式和字符串RegExp and String(一),本文给大家继续分享相关内容. 前言 我认为,在学习一门编程语言的过程中,字符串.数组.容器是非常重要的部分,为了提高编程效率,我通常会对字符串.数组以及容器作深入的学习,详细了解相关特点及对应的API.这篇文章是针对javascript字符串学习写下的笔记,在此与需要的朋友分享. 思维导图 字符串的创建方式 字符串是javascript中的基本类型之一,它对应的类型是String,可以通过两种方

  • 基于php常用函数总结(数组,字符串,时间,文件操作)

    数组:[重点1]implode(分隔,arr) 把数组值数据按指定字符连接起来例如:$arr=array('1','2','3','4');$str=implode('-',$arr);explode([分隔],arr)按指定规则对一个字符串进行分割,返回值为数组 别名joinarray_merge()合并一个或多个数组array_combine(array keys, array values) 创建一个数组,用一个数组的值作为其键名,另一个数组的值作为其值例如:$a = array('gre

  • 在VS2008中使用正则表达式进行查找和替换

    正则表达式是查找和替换文本模式的一种简洁而灵活的表示法. 在"查找和替换"窗口中执行"快速查找"."在文件中查找"."快速替换"或"在文件中替换"操作时,可以在该窗口的"查找内容"和"替换为"字段中使用一组专用的正则表达式. 若要启用正则表达式,请在"查找和替换"窗口中展开"查找选项",选择"使用",然后选择

  • jQuery实现字符串全部替换的方法

    本文实例讲述了jQuery实现字符串全部替换的方法.分享给大家供大家参考,具体如下: 与C# String类型的Replace方法不同,jQuery的Replace仅能替换第一个匹配的内容. 例如: var str = "a<br/>b<br/>c<br/>"; var Newstr = str.Replace("<br/>", ""); alert(Newstr); //内容为:ab<br/

  • ASP常用的函数

    ASP常用的函数,希望能用的着. <% dim db db="dbms.mdb" '****************************************************************** '执行sql语句,不返回值,sql语句最好是如下: 'update 表名 set 字段名=value,字段名=value where 字段名=value 'delete from 表名 where 字段名=value 'insert into 表名 (字段名,字段名

  • Python常用的正则表达式处理函数详解

    正则表达式是一个特殊的字符序列,用于简洁表达一组字符串特征,检查一个字符串是否与某种模式匹配,使用起来十分方便. 在Python中,我们通过调用re库来使用re模块: import re 正则表达式语法模式和操作符详见:https://www.runoob.com/python/python-reg-expressions.html#flags 下面介绍Python常用的正则表达式处理函数. re.match函数 re.match 函数从字符串的起始位置匹配正则表达式,返回match对象,如果不

随机推荐