获取字符串问题

Question

有几个网页含有很多ip地址，但是如果通过网页源代码获取可是实现，但是每个网页的源代码都不一样，但是ip地址的格式一样，所以应该可以通过###.###.###.###来统一获取
网页源代码1：IP:132.252.152.193,端口：68664
<tr><td>132.252.152.193</td><td>68664</td><td>透明</td><td><a 
网页源代码2：IP:58.56.108.114,端口：80
list('58.56.108.114','80','2','中国');
网页源代码3：IP:212.0.76.250,端口：1080
    <TD align=middle bordercolordark="#000000" width="128" height="10"><div id=ip7><A title="点击复制此IP地址" onClick="copycode(findobj('ip7'));"><font color=black>212.0.76.250</font></a></div></TD>
    <TD align=middle bordercolordark="#000000" width="64" height="10"><div id=port7><A title="点击复制此端口" onClick="copycode2(findobj('port7'));"><font color=black>1080</font></a></div></TD>能否直接获取###.###.###.###的IP格式，再加上端口

Answer 1

Private Sub Command1_Click()
    Dim strData$
    Dim reg As Object
    Dim matches As Object, match As Object
    
    strData = "IP:132.252.152.193,端口：68664" & vbCrLf & _
                "<tr> <td>132.252.152.193 </td> <td>68664 </td> <td>透明 </td> <td> <a" & vbCrLf & _
                "IP:58.56.108.114,端口：80" & vbCrLf & _
                "list('58.56.108.114','80','2','中国');" & vbCrLf & _
                "IP:212.0.76.250,端口：1080" & vbCrLf & _
                "<TD align=middle bordercolordark" & vbCrLf
    Set reg = CreateObject("vbscript.regexp")
    reg.Global = True
    reg.IgnoreCase = True
    reg.Pattern = "IP\:(.*?),端口：(\d+)"
    
    Set matches = reg.Execute(strData)
    
    For Each match In matches
        Debug.Print match.SubMatches(0) & ":" & match.SubMatches(1)
    Next
End Sub

Answer 2

IP:132.252.152.193,端口：68664
这三个是我说明的，不是源代码里面的
网页源代码1：
<tr> <td>132.252.152.193 </td> <td>68664 </td> <td>透明 </td> <td> <a 
网页源代码2：
list('58.56.108.114','80','2','中国'); 
网页源代码3：
    <TD align=middle bordercolordark="#000000" width="128" height="10"> <div id=ip7> <A title="点击复制此IP地址" onClick="copycode(findobj('ip7'));"> <font color=black>212.0.76.250 </font> </a> </div> </TD> 
    <TD align=middle bordercolordark="#000000" width="64" height="10"> <div id=port7> <A title="点击复制此端口" onClick="copycode2(findobj('port7'));"> <font color=black>1080 </font> </a> </div> </TD> 要是能获取像上述代码的效果吗

Answer 3

自己找规律，根据你上面的可以使用下面的表达式：
reg.Pattern = ((?:\d+\.){3}(?:\d+))[\s\S]*?[>'](\d+)

Answer 4

reg.Pattern = “((?:\d+\.){3}(?:\d+))[\s\S]*?[>'](\d+)”