all tasks

Task/Web-scraping/Visual-Basic-.NET/web-scraping-2.visual

@@ -0,0 +1,10 @@
+Imports System.Net
+        Dim client As WebClient = New WebClient()
+        Dim content As String = client.DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
+        Dim lines() As String = Split(content, vbLf) 'may need vbCrLf
+        For Each line In lines
+            If line.Contains("UTC") Then
+                Dim time As String() = line.Substring(4).Split(vbTab)
+                Console.WriteLine(time(0))
+            End If
+        Next