- <%
- '**************************************************
- '函数名:gotTopic
- '作 用:截字符串,汉字一个算两个字符,英文算一个字符
- '参 数:str ----原字符串
- ' strlen ----截取长度
- '返回值:截取后的字符串
- '**************************************************
- function gotTopic(str,strlen)
- if str="" then
- gotTopic=""
- exit function
- end if
- dim l,t,c, i
- str=replace(replace(replace(replace(str," "," "),""",chr(34)),">",">"),"<","<")
- str=replace(str,"?","")
- l=len(str)
- t=0
- for i=1 to l
- c=Abs(Asc(Mid(str,i,1)))
- if c>255 then
- t=t+2
- else
- t=t+1
- end if
- if t>=strlen then
- gotTopic=left(str,i) & "…"
- exit for
- else
- gotTopic=str
- end if
- next
- gotTopic=replace(replace(replace(replace(gotTopic," "," "),chr(34),"""),">",">"),"<","<")
- end function
- '=========================================================
- '函数:RemoveHTML(strHTML)
- '功能:去除HTML标记
- '参数:strHTML --要去除HTML标记的字符串
- '=========================================================
- Function RemoveHTML(strHTML)
- Dim objRegExp, Match, Matches
- Set objRegExp = New Regexp
- objRegExp.IgnoreCase = True
- objRegExp.Global = True
- '取闭合的<>
- objRegExp.Pattern = "<.+?>"
- '进行匹配
- Set Matches = objRegExp.Execute(strHTML)
- ' 遍历匹配集合,并替换掉匹配的项目
- For Each Match in Matches
- strHtml=Replace(strHTML,Match.Value,"")
- Next
- RemoveHTML=strHTML
- Set objRegExp = Nothing
- set Matches=nothing
- End Function
- %>
正则表达式实例:截字符串及去除HTML标记
2020-07-05 15:03正则表达式教程网 正则表达式
本文主要讲解使用正则表达式截取字符串及去除HTML标记的两种实例方法,有需要的可以参考下
延伸 · 阅读
- 2022-03-10Python全栈之正则表达式
- 2022-03-06CentOS中的正则表达式
- 2022-03-06详解Android过滤emoji表情正则表达式
- 2022-03-05linux系统用户管理与grep正则表达式示例教程
- 2022-03-03C++ 正则表达式的应用详解
- 2022-03-03C# 中使用正则表达式匹配字符的含义
- 正则表达式
正则表达式之零宽断言实例详解【基于PHP】
这篇文章主要介绍了正则表达式之零宽断言,简单介绍了零宽断言的概念、分类及php实现技巧与相关注意事项,需要的朋友可以参考下...
- 正则表达式
js 正则学习小记之匹配字符串字面量优化篇
昨天在《js 正则学习小记之匹配字符串字面量》谈到 /"(?:\\.|[^"])*"/ 是个不错的表达式,因为可以满足我们的要求,所以这个表达式可用,但不一定是最好的...
- 正则表达式
用正则实现提取代码内容的代码
研究了一个下午,没有头绪,来论坛求助,老ID丢了!重新注册了一个!=。=! 我想用javascript正则提取asp代码中SQL行的表达式但是写来写去都不行,各位辛苦帮...
- 正则表达式
最严谨的校验email地址的正则表达式及各种语言对应版
这篇文章主要介绍了最严谨的校验email地址的正则表达式及各种语言对应版,本文给出通用、Python、Javascript、PHP、Perl / Ruby、Perl等版本的最严谨的表达式写法...
- 正则表达式
正则在FireFox和IE下使用test的不同
今天同事遇到这样的问题,查明原因.记下 由于FireForx和IE的执行javascript的引擎不同,所以会有些不同。以下的例子...
- 正则表达式
正则表达式截取字符串的方法技巧
这篇文章主要介绍了正则表达式截取字符串的方法技巧,需要的朋友可以参考下...
- 正则表达式
Java正则表达式里隐藏的陷阱
正则表达式是一个很方便的匹配符号,但要实现这么复杂,功能如此强大的匹配语法,就必须要有一套算法来实现,而实现这套算法的东西就叫做正则表达...
- 正则表达式
共享日常收集JS正则表达式(JavaScript regular expression)
这篇文章给大家介绍小编日常收集的js正则表达式,有需要的朋友可以参考下 ...