Data update

Task/Web-scraping/VBScript/web-scraping.vb

@@ -1,30 +0,0 @@
-Function GetUTC() As String
-    Url = "http://tycho.usno.navy.mil/cgi-bin/timer.pl"
-    With CreateObject("MSXML2.XMLHTTP.6.0")
-        .Open "GET", Url, False
-        .send
-        arrt = Split(.responseText, vbLf)
-    End With
-    For Each t In arrt
-        If InStr(t, "UTC") Then
-            GetUTC = StripHttpTags(t)
-
-            Exit For
-        End If
-    Next
-End Function
-
-Function StripHttpTags(s)
-    With New RegExp
-        .Global = True
-        .Pattern = "\<.+?\>"
-        If .Test(s) Then
-            StripHttpTags = .Replace(s, "")
-        Else
-            StripHttpTags = s
-        End If
-    End With
-End Function
-
-WScript.StdOut.Write GetUTC
-WScript.StdOut.WriteLine