截字符串 去除HTML標(biāo)記
更新時間：2006年06月17日 00:00:00 作者：
<%
'**************************************************
'函數(shù)名：gotTopic
'作 用：截字符串，漢字一個算兩個字符，英文算一個字符
'參 數(shù)：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
'=========================================================
'函數(shù)：RemoveHTML(strHTML)
'功能：去除HTML標(biāo)記
'參數(shù)：strHTML --要去除HTML標(biāo)記的字符串
'=========================================================
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
%>
'**************************************************
'函數(shù)名：gotTopic
'作 用：截字符串，漢字一個算兩個字符，英文算一個字符
'參 數(shù)：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
'=========================================================
'函數(shù)：RemoveHTML(strHTML)
'功能：去除HTML標(biāo)記
'參數(shù)：strHTML --要去除HTML標(biāo)記的字符串
'=========================================================
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
%>
相關(guān)文章
這篇文章主要介紹了正則表達式同時匹配中英文及常用正則表達式的相關(guān)資料,非常不錯，具有參考借鑒價值，需要的朋友可以參考下2016-11-11
這篇文章主要介紹了判斷一個字符串中是否含有另一字符串，php有很多方法2009-09-09
在此首先大家要牢記：正則表達式與通配符不一樣,它們表示的含義并不相同。正則表達式應(yīng)用非常廣泛，但是大家很少有過整理吧，下面腳本之家的小編整理了關(guān)于正則表達式的描述，還比較詳細，在此分享給大家，感興趣的朋友可以參考下。2015-09-09
C#正則實現(xiàn)Ubb解析類的代碼2007-03-03
正則表達式從原理到實戰(zhàn)全面學(xué)習(xí)小結(jié)
這篇文章主要介紹了全面學(xué)習(xí)正則表達式?-?從原理到實戰(zhàn),本文全面介紹正則表達式的語法知識，全面介紹JavaScript中正則表達式的API，通過實戰(zhàn)，希望能夠幫助大家全面學(xué)習(xí)，并啃下前端的難題，需要的朋友可以參考下2022-07-07
本文是小編收集整理的15個常用的javascript正則表達式，非常不錯，具有參考借鑒價值，需要的朋友參考下吧2017-05-05
這篇文章主要給大家介紹了關(guān)于IPV4和IPV6正則表達式的相關(guān)資料，文中介紹的非常詳細，對大家的學(xué)習(xí)或者工作具有一定的參考學(xué)習(xí)價值，需要的朋友們下面隨著小編來一起學(xué)習(xí)學(xué)習(xí)吧2020-12-12
正則表達式是一種可以用于模式匹配和替換的強有力的工具2014-05-05
精通 JS正則表達式，想學(xué)習(xí)js正則表達式的朋友非常值得看，整理的比較不錯。2009-10-10
這篇文章主要介紹了正則表達式之分組的回溯引用問題,本文給大家介紹的非常詳細，對大家的學(xué)習(xí)或工作具有一定的參考借鑒價值，需要的朋友可以參考下2020-12-12