以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  HTML中的超链接全部屏蔽  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193244)
--  作者：kk000
--  发布时间：2024/8/29 11:56:00
--  HTML中的超链接全部屏蔽
蓝板 ，请教下  如何使用 文本替换  把  HTML 文本 里面所有的  a标签 全部取消掉
--  作者：有点蓝
--  发布时间：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)
--  作者：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    后边闭合
--  作者：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 , "")

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

蓝板 请帮忙指导一下
--  作者：有点蓝
--  发布时间：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)