15 lines
587 B
Plaintext
15 lines
587 B
Plaintext
'Entered by AykayayCiti -- Earl L. Montgomery
|
|
url_name = "http://tycho.usno.navy.mil/cgi-bin/timer.pl"
|
|
url_data = Network.GetWebPageContents(url_name)
|
|
find = "UTC"
|
|
' the length from the UTC to the time is -18 so we need
|
|
' to subtract from the UTC position
|
|
pos = Text.GetIndexOf(url_data,find)-18
|
|
result = Text.GetSubText(url_data,pos,(18+3)) 'plus 3 to add the UTC
|
|
TextWindow.WriteLine(result)
|
|
|
|
'you can eleminate a line of code by putting the
|
|
' GetIndexOf insde the GetSubText
|
|
'result2 = Text.GetSubText(url_data,Text.GetIndexOf(url_data,find)-18,(18+3))
|
|
'TextWindow.WriteLine(result2)
|