Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共5 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

标题:HTML中的超链接全部屏蔽

1楼
kk000 发表于:2024/8/29 11:56:00
蓝板 ,请教下  如何使用 文本替换  把  HTML 文本 里面所有的  a标签 全部取消掉
2楼
有点蓝 发表于:2024/8/29 12:10:00
Dim txt As String = "<p>好的!<a>thankyou!886</a>12<div>div</div>312<a>hhhhh</a></p>"
Dim p As String = "(?<=<a>).*?(?=</a>)"
Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt , p , "")
str = str.Replace("<a>", "").Replace("</a>", "")
Output.Show(str)
3楼
kk000 发表于:2024/8/29 13:37:00
 <a href="http://www.baidu.com/"><span lang=EN-US><span lang=EN-US>以上</span></span></a>


例如这种   包含  href 的  该怎么写呢 

<a  之后还有 空格  + href    后边闭合
4楼
kk000 发表于:2024/8/29 14:06:00
在百度AI上

Dim p As String = "<a href=""([""]*)"">.*?</a>"
Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt , p , "")

这样写  ,但并不起作用 ,替换不了

蓝板 请帮忙指导一下
5楼
有点蓝 发表于:2024/8/29 14:12:00
Dim txt As String = "<p>好的!<a  href=''>thankyou!886</a>12<div>div</div>312<a>hhhhh</a></p>"
Dim p As String = "(?<=<a).*?(?=</a>)"
Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt , p , "")
str = str.Replace("<a>", "").Replace("</a>", "").Replace("<a", "")
Output.Show(str)
共5 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .02344 s, 2 queries.