以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  正则表达式求帮助  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=193970)
--  作者：kk000
--  发布时间：2024/10/29 16:34:00
--  正则表达式求帮助
 Dim input As String = "这是一个链接 http://example.com/path?query=string 以及其他内容."
 Dim pattern As String = "^(https?:\\/\\/)?([\\da-z\\.-]+)\\.([a-z\\.]{2,6})([\\/\\w \\.-]*)*\\/?$"

或者
Dim pattern As String = "http[\\s]*"

 Dim str As String = System.Text.RegularExpressions.Regex.Replace(input, pattern , "")

 Output.Show(str)

这2中方式都不能  把地址去掉 ， 求助 写法
--  作者：有点蓝
--  发布时间：2024/10/29 16:44:00
--  
去掉网页链接？开头好办，判断http就行，那么地址末尾和其它内容之间有没有什么明显的分隔和界限？
--  作者：kk000
--  发布时间：2024/10/30 13:38:00
--  
 是的 ，  需要 截获  http 的整个网址内容.  这个正则表达式怎么写呢 篮版
--  作者：有点蓝
--  发布时间：2024/10/30 13:54:00
--  
请先回答2楼的问题：地址末尾和其它内容之间有没有什么明显的分隔和界限？
--  作者：kk000
--  发布时间：2024/11/5 14:47:00
--  
                        Dim pattern As String = "(http|ftp|https):\\/\\/[\\w\\-_]+(\\.[\\w\\-_]+)+([\\w\\-\\.,@?^=%&:/~\\+#]*[\\w\\-\\@?^=%&/~\\+#])?"
                        Dim str As String = System.Text.RegularExpressions.Regex.Replace(txt, pattern , "")


篮板 ，再请教下  ，以上的代码 可以截获所有的  地址了， 但是 我需要排除 以下2个地址， 这个 改怎么插进去呢

http://schemas.microsoft.com/   
http://www.w3.org/
--  作者：有点蓝
--  发布时间：2024/11/5 14:53:00
--  
先把这2个地址替换为其它某个字符串，处理后再替换回来
--  作者：kk000
--  发布时间：2024/11/5 14:56:00
--  
哦好的