aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

12
Task/Web-scraping/Visual-Basic-.NET/web-scraping-1.vb Normal file
View file

@ -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

10
Task/Web-scraping/Visual-Basic-.NET/web-scraping-2.vb Normal file
View file

@ -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