Simple Temperature/Weather

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Simple Temperature/Weather

Logged in as: Guest

arrSession:exec spGetSession 2,16,62690

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Simple Temperature/Weather
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Simple Temperature/Weather - 7/24/2008 1:26:12 AM

p0ng

Posts: 33
Score: 0
Joined: 6/18/2008
Status: offline

User inputs zipcode
temperature and weather are returned in a msgbox.
attempted to center the text on the msgbox

strZip = inputbox("Enter zipcode","Temperature")
url="http://www.weather.com/weather/local/" & strZip
Set objHTTP = CreateObject("MSXML2.XMLHTTP")
Call objHTTP.Open("GET", url, FALSE)
objHTTP.Send
origSite = objHTTP.ResponseText
msgTotal = len(len(GetLocation) & " Temperature")
numSpaces = ""
For i=0 to ((msgTotal*2)-7)   'Attempt to center msgbox text
numSpaces = numSpaces & " "
Next
Msgbox numSpaces & GetTemperature & GetWeather,vbokonly,GetLocation & " Temperature"
Set objHTTP = Nothing
WScript.quit
Function GetTemperature
  Expression = origSite 
  First = ""
  Last = ""
  
  IFirst = InStr(Expression, First)
  ILast = InStr(Expression, Last)
  If IFirst And ILast Then
      Expression = Mid(Expression, IFirst + Len(First))
      ILast = InStr(Expression, Last)
      Expression = Left(Expression, ILast - 1)
  End If
  
  GetTemperature = Expression
  GetTemperature = Replace(GetTemperature, "&deg;", "�")
  
  If Len(GetTemperature) >= 5 Then
      GetTemperature = "Error"
  End If
End Function
Function GetLocation
  Expression = origSite 
  First = "TODAY'S WEATHER for "
  Last = ""
  
  IFirst = InStr(Expression, First)
  ILast = InStr(Expression, Last)
  If IFirst And ILast Then
      Expression = Mid(Expression, IFirst + Len(First))
      ILast = InStr(Expression, Last)
      Expression = Left(Expression, ILast - 1)
  End If
  
  GetLocation = Expression
  If Len(GetLocation) >= 30 Then
      GetLocation = "Error"
  End If
End Function
Function GetWeather
  Expression = origSite 
  First = ""
  Last = ""
  
  IFirst = InStr(Expression, First)
  ILast = InStr(Expression, Last)
  If IFirst And ILast Then
      Expression = Mid(Expression, IFirst + Len(First))
      ILast = InStr(Expression, Last)
      Expression = Left(Expression, ILast - 1)
  End If
  
  GetWeather = ", " & Expression
  If Len(GetWeather) <= 0 Then
      GetWeather = ""
  End If
End Function

< Message edited by p0ng -- 7/25/2008 5:54:16 AM >

Revisions: 1 | Post #: 1

RE: Simple Temperature/Weather - 7/25/2008 3:47:57 AM

tupz

Posts: 2
Score: 0
Joined: 4/23/2008
Status: offline

I can't seem to get this to work. Is anyone else receiving an error?

(in reply to p0ng)

Post #: 2

RE: Simple Temperature/Weather - 7/25/2008 5:53:56 AM

p0ng

Posts: 33
Score: 0
Joined: 6/18/2008
Status: offline

what error?

oh, maybe you are copying the [link=] [/link] that got thrown into the code i put in

Edit: Try it again, i removed the junk that the forum threw in it.

(in reply to tupz)

Post #: 3

RE: Simple Temperature/Weather - 8/12/2008 1:41:20 AM

bilbrelb

Posts: 7
Score: 0
Joined: 8/1/2008
Status: offline

Thanks for this, it works but the output says "Error Temperature" in the heading of the box that pops up and then gives me the temp and the sky condition.

(in reply to p0ng)

Post #: 4

RE: Simple Temperature/Weather - 8/15/2008 4:28:21 AM

p0ng

Posts: 33
Score: 0
Joined: 6/18/2008
Status: offline

quote:

ORIGINAL: bilbrelb

Thanks for this, it works but the output says "Error Temperature" in the heading of the box that pops up and then gives me the temp and the sky condition.

hmm, that means the script is having trouble obtaining the city/state

(in reply to bilbrelb)