all tasks

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

@@ -0,0 +1,12 @@
+Imports System.Net
+Imports System.IO
+        Dim client As WebClient = New WebClient()
+        Dim content As String = client.DownloadString("http://tycho.usno.navy.mil/cgi-bin/timer.pl")
+        Dim sr As New StringReader(content)
+        While sr.peek <> -1
+            Dim s As String = sr.ReadLine
+            If s.Contains("UTC") Then
+                Dim time As String() = s.Substring(4).Split(vbTab)
+                Console.WriteLine(time(0))
+            End If
+        End While

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