去掉数据中html语言的函数
来源:互联网 发布:编程makeblock小车 编辑:程序博客网 时间:2024/05/17 23:59
Function FilterHTML(str,strlen)
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
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
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
FilterHTML=cutStr
End Function
Dim re
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.Replace(str,"")
set re=Nothing
Dim l,t,c,i
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
cutStr=left(str,i)&"..."
Exit For
Else
cutStr=str
End If
Next
cutStr=Replace(cutStr,chr(10),"")
cutStr=Replace(cutStr,chr(13),"")
FilterHTML=cutStr
End Function
- 去掉数据中html语言的函数
- ASP去掉字符串中HTML标签的函数
- 一个去掉HTML格式的ASP函数
- 去掉html标签的asp函数
- Asp去掉所有Html格式的函数
- js去掉所有html标记的函数
- 一个去掉HTML格式的ASP函数
- [函数]把HTML去掉
- C语言中函数的数据传递
- 从HTML代码中提取文字,去掉HTML的标记
- .NET 采集数据去掉html标签,以逗号分割的
- 去掉数组中重复的数据
- 去掉ViewState中DataGrid的无用数据
- 去掉List中重复的数据
- asp 去掉Html代码函数
- oracle中有去掉空格的函数
- 去掉HTML的标签
- asp中去掉HTML标记
- .net 中的事务总结
- 正则表达式简明教程
- 敏捷建模对统一过程的改造实践[转]
- Ajax类
- DLL中调用约定和名称修饰
- 去掉数据中html语言的函数
- XML入门
- 转XML文档小结
- NOKIA培训归来 索引(1)+照片
- 常用版本控制软件的简单简介
- WINDOWS脚本实践:为SAP补丁制作的VBS脚本
- PHP4 & Apache2 快速配置
- 在JSF中應用javascript
- Ajax资源类网站