Option Explicit
Public Sub Test()
Dim xml As Object
Dim url As String
Dim track_len As Variant
With CreateObject("MSXML2.XMLHTTP")
Call .Open("GET", url, False)
Call .Send
Set xml = CreateObject("MSXML2.DOMDocument")
If xml.LoadXML(.responseText) Then
With xml.SelectSingleNode("/comment()")
track_len = .NodeValue
End With
End If
End With
If Not IsEmpty(track_len) Then
With CreateObject("VBScript.RegExp")
.IgnoreCase = True
.Pattern = "track-length\s*=\s*(\d+)\s"
With .Execute(track_len)
If .Count > 0 Then
track_len = .Item(0).SubMatches(0)
Call MsgBox(track_len & " Meter", vbInformation, "Entfernung")
Else
Call MsgBox("Es wurde keine Angabe zur Entfernung gefunden.", vbExclamation, "Entfernung")
End If
End With
End With
End If
End Sub