ASP高手进来~~高分赠!!

intereye 2003-06-12 11:48:06
谁能给我一个函数,用正则去掉乱七八糟的代码把文字取出来。

文字如下:

这是一个[red]个测试这是[/red]这是一个测试这是一个测试

要求把[red]和[/red]去掉!!

谢谢各位!!~~~在线等~~~
...全文
12 点赞 收藏 6
写回复
6 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
Ngod 2003-06-14
Function Highlight(strText, strFind, strBefore, strAfter)
Dim nPos
Dim nLen
Dim nLenAll

nLen = Len(strFind)
nLenAll = nLen + Len(strBefore) + Len(strAfter) + 1

Highlight = strText

If nLen > 0 And Len(Highlight) > 0 Then
nPos = InStr(1, Highlight, strFind, 1)
Do While nPos > 0
Highlight = Left(Highlight, nPos - 1) & _
strBefore & Mid(Highlight, nPos, nLen) & strAfter & _
Mid(Highlight, nPos + nLen)

nPos = InStr(nPos + nLenAll, Highlight, strFind, 1)
Loop
End If
End Function

Response.Write Highlight(myText, "someword", "<font color=red>", "</font>")
回复
intereye 2003-06-14
怪我没说明白!!虽然没实现,但还是谢谢大家!!

结帖!!
回复
Tonglu 2003-06-12
Replace(str,"[red]","")
Replace(str,"[/red]","")
回复
whb147 2003-06-12
查找[red],替换成“”
不就行了吗
回复
逍遥散人 2003-06-12
用Replace()方法试试
回复
tonnycncn 2003-06-12
用replace啊,
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2003-06-12 11:48
社区公告
暂无公告