概述
复制代码 代码如下:
Function CutStrX(ByVal Str,ByVal StrLen)
Dim l,t,c,i,r
'过滤全部HTML标记
Set r=New RegExp
r.Global=True
r.MultiLine=True
r.Pattern="(</?[A-Za-z][A-Za-z0-9]*[^>]*>)"
str=r.Replace(str," ")
Set r=Nothing
l=Len(str)
t=0
For i=1 To l
c=AscW(Mid(str,i,1))
If c<0 Or c>255 Then t=t+2 Else t=t+1
IF t>=StrLen Then
CutStrX=Left(Str,i)&"..."
Exit For
Else
CutStrX=Str
End If
Next
End Function
最后
以上就是孝顺飞机为你收集整理的asp CutStrX字符串截取函数(过滤全部HTML标记)的全部内容，希望文章能够帮你解决asp CutStrX字符串截取函数(过滤全部HTML标记)所遇到的程序开发问题。
如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。
本图文内容来源于网友提供，作为学习参考使用，或来自网络收集整理，版权属于原作者所有。
发表评论 取消回复