字符串的问题~

2008-04-01 05:45:49 105 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

字符串匹配问题~暴力~boyer-Moore~horspool算法实验名称：测试数据匹配效率问题目录一、实验要求 21. 任意选择一种语言实现horspool算法 22. 任意选择一种语言实现Boyer-Moore算法 23. 任意选择一种语言实现3.2节中的蛮力算法 24. 在随机的二进制文本中匹配随机的二进制模式 25. 在自然语言文本中匹配随机的二进制模式 2二、实验平台 21. 编译环境：dev/vs2017 22. 运行环境：Microsoft wi... 阅读详情

我要从一段字符串中截去
也就是去掉一堆标签中的内容该怎么做啊？
像图片的标签<img .....到</img>
连同标签一起去掉

...全文

2022pta平时训练题（1~10题字符串处理问题）字符串处理相关算法阅读详情

sjmlsxp

ASP 28,401 成员 356,940 内容

+ 关注 + 加入社区

切换为时间正序

sjmlsxp 2008-04-01

打赏
举报

对于没有规则书写的标签
如<br>
这样的标签还是不行的啊
后面的的内容都会丢失

sjmlsxp 2008-04-01

打赏
举报

对中文也有效吗？

文盲老顾 2008-04-01

打赏
举报

<([a-zA-Z]+)?( [^<>]*?>|>)([\s\S]*?)</\1>

正则调整了下，只匹配闭合的标签

文盲老顾 2008-04-01

打赏
举报

<%

Function RegReplace(vStr,vReg,vCode)

	Dim Re,sStr

	sStr = vStr

	Set Re = New RegExp

	Re.Pattern = vReg

	Re.IgnoreCase = True

	Re.Global = True

	If Re.Test(sStr) Then

		sStr = Re.Replace(sStr,vCode)

	End If

	RegReplace = sStr

End Function



Dim a

a = "abcdefg<a>this is a link</a>hijklmn<div>this i<b>s a div</div>opq<img src='a.jpg' width=100 height=40 />rst<font size=4>this is a font style</font>uvwxyz<b></b>"



Response.Write RegReplace(RegReplace(a,"<([^<>]*?)/>",""),"<([a-zA-Z]+)?[^<>]*?>([\s\S]*?)</\1>","")

%>

sjmlsxp 2008-04-01

打赏
举报

[Quote=引用 4 楼 goga21cn 的回复:]
replace(" <img>","")
replace(" </img>","")
[/Quote]
这样不行吧~ 中间的不是变成乱码一样了?

很丑的

sjmlsxp 2008-04-01

打赏
举报

龙宜坡 2008-04-01

打赏
举报

replace("<img>","")
replace("</img>","")

两次replace,我这样做过，因为满足了当时需要而已

sjmlsxp 2008-04-01

打赏
举报

都去掉
也可以考虑替换掉

文盲老顾 2008-04-01

打赏
举报

<a>asdf</a>

是全去掉，还是保留 asdf 。。。。

md5e 2008-04-01

打赏
举报

function nohtml(str)
if not isnull(str) or str<>"" then
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="(\<.[^\<]*\>)"
str=re.replace(str," ")
re.Pattern="(\<\/[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end if
end function

字符串的问题~

相关推荐