這篇文章提供給大家分享的是關(guān)于作者截取含有Html代碼的文本段的實(shí)戰(zhàn)經(jīng)驗(yàn)分享，希望能給大家?guī)��?lái)幫助或啟發(fā)。

這應(yīng)該是開(kāi)發(fā)WEB程序中經(jīng)常遇到的問(wèn)題。

<%
'文本段代碼
Dim fString
fString = "<P><FONT size=3><SPAN class=jlineheight id=InfoDisp1_labContent style=""FONT-SIZE: 15px; COLOR: black"">中華人民共和國(guó)</SPAN></FONT></P><P><FONT size=3><SPAN class=jlineheight style=""FONT-SIZE: 15px; COLOR: black"">中華人民共和國(guó)中華人民共和國(guó)　　中華人民共和國(guó)</B></SPAN></FONT></P>"
%>

如果一段文本段含有Html代碼，截取該文本段為10個(gè)字符長(zhǎng)，相信大家首先使用Len與Left函數(shù)，但這些函數(shù)識(shí)別的中文漢字當(dāng)做為一個(gè)字符，這樣輸出的結(jié)果肯定不會(huì)正確。借用自定義函數(shù)CutStr......
<%
'用省略號(hào)格式化數(shù)據(jù)標(biāo)題（兼容中文字）
function CutStr(str,strlen,endStr)
dim cvSt:cvSt=Str
if cvSt="" then
CutStr=""
exit function
end if
dim l,t,c
l=len(cvSt)
t=0
for i=1 to l
c=Abs(Asc(Mid(cvSt,i,1)))
if c>255 then
t=t+2
else t=t+1
end if
if t>=strlen then
cutStr=left(cvSt,i)&endStr
exit for
else cutStr=cvSt
end if
next
cutStr=replace(cutStr,chr(10),"")
cutStr=replace(cutStr,chr(0),"")
end Function
%>

使用CutStr截取：
<%response.write CutStr(fString,10,"...")%>
則輸入結(jié)果為html代碼，并不會(huì)顯示“中華人民共和國(guó)”。顯然，結(jié)果是錯(cuò)誤的！

現(xiàn)在要考慮的先去除Html代碼，再截取字符。

給自動(dòng)刪除html代碼提供一個(gè)函數(shù)，使用正則表達(dá)式：
<%
'去掉HTML標(biāo)記
Public Function Replacehtml(Textstr)
Dim Str,re
Str=Textstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str, "")
Set Re=Nothing
Replacehtml=Str
End Function
%>

然后再截取字符，整個(gè)代碼如下：
<%
'去掉HTML標(biāo)記
Public Function Replacehtml(Textstr)
Dim Str,re
Str=Textstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str, "")
Set Re=Nothing
Replacehtml=Str
End Function

'用省略號(hào)格式化數(shù)據(jù)標(biāo)題（兼容中文字）
function CutStr(str,strlen,endStr)
dim cvSt:cvSt=Str
if cvSt="" then
CutStr=""
exit function
end if
dim l,t,c
l=len(cvSt)
t=0
for i=1 to l
c=Abs(Asc(Mid(cvSt,i,1)))
if c>255 then
t=t+2
else t=t+1
end if
if t>=strlen then
cutStr=left(cvSt,i)&endStr
exit for
else cutStr=cvSt
end if
next
cutStr=replace(cutStr,chr(10),"")
cutStr=replace(cutStr,chr(0),"")
end Function

Dim fString : fString = "<P><FONT size=3><SPAN class=jlineheight id=InfoDisp1_labContent style=""FONT-SIZE: 15px; COLOR: black"">中華人民共和國(guó)</SPAN></FONT></P><P><FONT size=3><SPAN class=jlineheight style=""FONT-SIZE: 15px; COLOR: black"">中華人民共和國(guó)中華人民共和國(guó)　　中華人民共和國(guó)</B></SPAN></FONT></P>"

response.write "<font color=red>原來(lái)的字符集：</font>" & fString & "<p>"
response.write "<font color=red>去除Html代碼的字符：</font>" & Replacehtml(fString) & "<p>"
response.write "<font color=red>轉(zhuǎn)換后的字符：</font>" & CutStr(Replacehtml(fString),14,"")
%>

最后對(duì)文本段fString截取前10個(gè)字符，真正顯示的結(jié)果就是“中華人民共和國(guó)”。