Foro de elhacker.net

Option Explicit
 
Public Function Get_Text(ByRef sText As String) As Collection
Dim oRegExp                     As Object
Dim oMatch                      As Object
Dim oMatches                    As Object
    If LenB(sText) Then
       Set oRegExp = CreateObject("VBScript.RegExp")
       Set Get_Text = New Collection
 
       With oRegExp
           .Pattern = "<td><span>([\d\.]+)<\/span><\/td>"
           .Global = True
           .IgnoreCase = True
       End With
 
       Set oMatches = oRegExp.Execute(sText)
 
       For Each oMatch In oMatches
           Get_Text.Add oMatch.Submatches(0)
       Next oMatch
    End If
End Function
 
Private Sub Form_Load()
Dim vItem                       As Variant
Const sExample                  As String = "<td><span>123.234.123.231</span></td>" & vbNewLine & _
                                            "<td><span>193.134.121.233</span></td>" & vbNewLine & _
                                            "<td><span>83.234.123.1</span></td>"
    For Each vItem In Get_Text(sExample)
        Debug.Print vItem
    Next vItem
End Sub

123.234.123.231
193.134.121.233
83.234.123.1