VB6 String包含使用正则表达式的URL

Question

我需要编写将读取字符串的代码，如果它包含网站地址的任何部分，则删除围绕它的html标记。目前字符串如下所示：

导致问题的字符串这是一个测试字符串，用于显示问题所在 www.stackoverflow.com

网址的任何部分都包括：

.com，.ca等以及www，http：//，https：//，

字符串的输出是

这是一个测试字符串，用于显示问题所在（此处为额外空间）www.stackoverflow.com

下面是我试图让它工作的代码。我创建了一个布尔标志，如果它是真的我希望它做其他我尚未编写的逻辑

Dim rex As RegExp
Set rex = New RegExp
Dim urlFlag As Boolean

rex.Pattern = "(http|https)://([\w-]+\.)+[\w-]+(/[\w- ./?%&=]*)?"

If rex.Test(str_Temp) Then
    urlFlag = True
Else
    urlFlag = False
End If

输出始终返回false，表示模式不起作用。有什么建议吗？

Answer 1

我采取了不同的方法。网站地址仅以www。，http：//和https：//开头。我创建了一个数组，我循环遍历数组，如果索引i的值在str_temp中，则替换文本并且它有效