新微赢技术网

标题: 谁有办法把标签给屏蔽了?? [打印本页]

作者: ★功夫小子★ 时间: 2010-1-7 03:45
标题: 谁有办法把标签给屏蔽了??
我从编辑器里用left 截取一段文字. 发现居然把里面的标签截取了一半,
哪位大哥帮我想个办法,能把标签给去掉.

作者: 生活的成功者 时间: 2010-1-7 03:45
用正则
试试这个：

Function Stringhtml(str)
Dim re
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
str = re.replace(str, "")
re.Pattern = "\[(.[^\[]*)\]"
str = re.replace(str, "")
str = replace(str, ">", ">")
str = replace(str, "<", "<")
If str="" Then str="..."
Stringhtml=str
End Function

作者: 孤独者 时间: 2010-1-7 03:45
用什么方法解决的?

作者: 欠你一滴泪 时间: 2010-1-7 03:45
我试下谢谢

作者: づ嗳嘚亽鈊↑ 时间: 2010-1-7 03:45
那你去问问偶老师吧.

作者: 三颗残牙 时间: 2010-1-7 03:45
怎么替换?
有N 多的标签啊!

作者: 枫之泪-天涯 时间: 2010-1-7 03:45
以下是引用阳光白雪在2007-4-29 14:36:57的发言：
用正则
试试这个：

Function Stringhtml(str)
Dim re
Set re = new RegExp
re.IgnoreCase = True
re.Global = True
re.Pattern = "<(.[^>]*)>"
str = re.replace(str, "")
re.Pattern = "\[(.[^\[]*)\]"
str = re.replace(str, "")
str = replace(str, ">", ">")
str = replace(str, "<", "<")
If str="" Then str="..."
Stringhtml=str
End Function
这个是不是转换好了以后在存数据库?

我想要的是在数据库提取吃来的转换.

我也不知道为什么, 第一次提交的时候是没有问题的,

但是修改的时候就出现问题了. 因为在编辑框中就出现了标签..

附件: 只有本站会员才能下载或查看附件，请您登录或注册

作者: Secret 时间: 2010-1-7 03:45
用replace替换.

作者: →莲佳 时间: 2010-1-7 03:45
解决了谢谢

作者: 天泪离星 时间: 2010-1-7 03:45
后台不做处理
在前台转换下

作者: 成哥 时间: 2010-2-9 00:05
我现在终于明白我缺乏的是什么了，正是楼主那种对真理的执着追求和楼主那种对理想的艰苦实践所产生的厚重感。

欢迎光临新微赢技术网 (http://bbs.weiying.cn/)