正则求助

DAAS2DSADA

请问各位大神，正则如何可以实现目标的网址

谢谢


Sub test()
    Dim reg, r, str
    str = "//http://www.baidu.com/a/b/index.html" & vbCrLf
    str = str & "http://www.baidu.com/a/b/index.html" & vbCrLf
    str = str & "//aaaa http://www.baidu.com/a/b/index.html" & vbCrLf
    str = str & "aaaa http://www.baidu.com/a/b/index.html" & vbCrLf '目标项的网址（www.baidu.com）
    str = str & "AAAA: http://baidu.com/a/b/index.html" & vbCrLf  '目标项的网址（baidu.com）
    str = str & "4444: 2rrrrr" & vbCrLf  '还有很多行不需要的

    Set reg = CreateObject("VBScript.RegExp")
    reg.Global = True
    reg.Pattern = "(?<!(\/\/.*))(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
    Set r = reg.Execute(str)
    MsgBox r(r.Count - 1)
End Sub

DAAS2DSADA

这里执行会报错
reg.Pattern = "(?<!(\/\/.*))(http|ftp|https):\/\/[\w\-_]+(\.[\w\-_]+)+([\w\-\.,@?^=%&:/~\+#]*[\w\-\@?^=%&/~\+#])?"
Set r = reg.Execute(str)

GG函数

(https|http|ftp|rtsp|mms)?:\/\/[^\s]+

于箱长

GG函数 发表于 2023-7-5 12:22
(https|http|ftp|rtsp|mms)?:\/\/[^\s]+

工具箱不错呀

smiletwo

源数据是什么，需要的到什么。请模拟下结果

高个子

上传附件，模拟结果

cidanji

去掉试试行不行

VBA不支持反向预查

DAAS2DSADA

cidanji 发表于 2023-7-5 14:32
去掉试试行不行

VBA不支持反向预查

哪里有相应的说明文档，说明不支持

怎么能把前面带两个斜杠的过滤掉

DAAS2DSADA

smiletwo 发表于 2023-7-5 14:05
源数据是什么，需要的到什么。请模拟下结果

数据就是这样的，需要的是两个目标项的网址

str = "//http://www.baidu.com/a/b/index.html" & vbCrLf
    str = str & "http://www.baidu.com/a/b/index.html" & vbCrLf
    str = str & "//aaaa http://www.baidu.com/a/b/index.html" & vbCrLf
    str = str & "aaaa http://www.baidu.com/a/b/index.html" & vbCrLf '目标项的网址（www.baidu.com）
    str = str & "AAAA: http://baidu.com/a/b/index.html" & vbCrLf  '目标项的网址（baidu.com）
    str = str & "4444: 2rrrrr" & vbCrLf  '还有很多行不需要的

DAAS2DSADA

高个子 发表于 2023-7-5 14:13
上传附件，模拟结果

数据就是前面的 str 拼接出来的样子