Posted: November 16 2002 at 08:48 | IP Logged

Is there any difference between the LOCALx and MACROx variables? I'm having trouble with the Get Weather macro. I pull out the temp and humidity values fine, but, the forecast part does not work.

Thanks,

Tony

Posted: November 17 2002 at 14:05 | IP Logged

Tony,

Long time no hear!

There is no difference between the LOCALx and MACROx variables other than the fact that support for the MACROx variables will be dropped in the very near future so be sure and update your database.

I checked the Get Weather macro out and found what the problem was.  Apparently Weather Underground has changed their page a little bit and the data for the forecast is past the first 30000 characters.  The first line of the Get Weather macro takes the leftmost 30000 characters of the returned HTML to work with.  I was able to fix it by changing the 30000 to 50000.

If you want to play with the WSH capabilities, Ive posted the Get Weather macro rewritten as a WSH file below:

sub getweather(zipcode)
 dim s_html,s_weather,s_temp,l_pos1,l_pos2,l_return

 s_html = left(ph.geturl("http://www.weatherunderground.com/cgi-bin/findweather/getForecast?query=" & zipcode),50000)
 l_return = int(mid(s_html,10,3))
 if l_return <> 200 then
  msgbox "Unable to get URL.  Return value is: " & l_return
  return
 end if
 l_pos1 = instr(1,s_html,"<td>Temperature</td>")
 l_pos2 = instr(l_pos1,s_html,"<b>") + 3
 s_temp = mid(s_html,l_pos2,3)
 if not isnumeric(mid(s_temp,3,1)) then
  s_temp = left(s_temp,2)
 end if
 s_weather = "The temperature is " & s_temp & " degrees. "
 l_pos1 = instr(l_pos2,s_html,"<td>Humidity</td>")
 l_pos2 = instr(l_pos1,s_html,"<b>") + 3
 s_temp = mid(s_html,l_pos2,3)
 if not isnumeric(mid(s_temp,3,1)) then
  s_temp = left(s_temp,2)
 end if
 s_weather = s_weather & "The Humidity is " & s_temp & " percent. "
 l_pos1 = instr(l_pos2,s_html,"<b>Forecast for ")
 l_pos1 = instr(l_pos1,s_html,"<td align=left><b>") + 18
 l_pos2 = instr(l_pos1,s_html,"</b>")
 s_weather = s_weather & "The forecast for " & mid(s_html,l_pos1,l_pos2 - l_pos1) & " is "
 l_pos1 = l_pos2 + 9
 l_pos2 = instr(l_pos1,s_html,"</td>")
 s_weather = s_weather & mid(s_html,l_pos1,l_pos2 - l_pos1)
 do
  l_pos1 = instr(1,s_weather,"winds")
  if l_pos1 = 0 then exit do
  s_weather = left(s_weather,l_pos1 - 1) & "wins" & mid(s_weather,l_pos1 + 5)
 loop
  
 ph.tts s_weather
end sub

You can call this script from a macro or sendkeys by executing the function below:

ph_runscript_1("getweather.vb","vbscript",1,0,"getweather","32707")

Substitute your zipcode for 32707.  The above line also assumes that you saved the getweather script into a file named "getweather.vb".

Hope this helps.

Dave.

Posted: November 17 2002 at 17:48 | IP Logged

Cool! Thanks, Dave. I'll have to start playing with the scripts.

Tony

Posted: November 18 2002 at 20:15 | IP Logged

Just an addition...

I added a section to the macro/script that replaces any ellipses ("...") with a period. I got sick of hearing the system pause and then say, "dot"!

Tony