Just threw this function together, it only returns pointers. I would like to attach a GUI to it, but I'm not the greatest at those. Any suggestions/code for a GUI would be useful.
James
The return format is:
The code for the function is:
James
The return format is:
Code:
c=weather_7day("21921") ?c = AllocationFactor = "0.006463" +Day. FipsCode = "24" Latitude = "39.6264343" Longitude = "75.84584" PlaceName = "ELKTON" StateCode = "MD" ?c.Day = +A. +B. +C. +D. +E. +F. +G. ?c.Day.A = MaxtemperatureC = "4" MaxTemperatureF = "40" MintemperatureC = "3" MinTemperatureF = "37" Name = "Wednesday, January 30, 2008" ... ?c.Day.G = MaxtemperatureC = "11" MaxTemperatureF = "51" MintemperatureC = "1" MinTemperatureF = "34" Name = "Tuesday, February 05, 2008" WeatherImage = "http://forecast.weather.gov/images/wtf/shra40.jpg"
Code:
'Date Created: 29-Jan-2008 05:48:54 PM 'Last Updated: 30-Jan-2008 12:05:38 AM 'Created By : Mr. GreenJeans 'Updated By : Mr. GreenJeans FUNCTION weather_7day AS A (zip_code AS C) if zip_code =null_value() then end end if dim p as P dim i as N dim f as C dim Forcast as P Dim Forcast.Day as P Dim Day as P Dim Day.A as P Dim Day.B as P Dim Day.C as P Dim Day.D as P Dim Day.E as P Dim Day.F as P Dim Day.G as P url = "www.webservicex.net/WeatherForecast.asmx/GetWeatherByZipCode" body = "ZipCode="+zip_code p = http_post(url,body) f = p.body Forcast.Latitude = extract_string(f,"<Latitude>","</Latitude>",1) Forcast.Longitude= extract_string(f,"<Longitude>","</Longitude>",1) Forcast.AllocationFactor = extract_string(f,"<AllocationFactor>","</AllocationFactor>",1) Forcast.FipsCode = extract_string(f,"<FipsCode>","</FipsCode>",1) Forcast.PlaceName = extract_string(f,"<PlaceName>","</PlaceName>",1) Forcast.StateCode = extract_string(f,"<StateCode>","</StateCode>",1) Day.A.Name = extract_string(f,"<Day>","</Day>",1) 'Day.A.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",2) Day.A.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",1) Day.A.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",1) Day.A.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",1) Day.A.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",1) Day.B.Name = extract_string(f,"<Day>","</Day>",2) Day.B.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",2) Day.B.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",2) Day.B.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",2) Day.B.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",2) Day.B.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",2) Day.C.Name = extract_string(f,"<Day>","</Day>",3) Day.C.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",3) Day.C.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",3) Day.C.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",3) Day.C.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",3) Day.C.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",3) Day.D.Name = extract_string(f,"<Day>","</Day>",4) Day.D.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",4) Day.D.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",4) Day.D.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",4) Day.D.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",4) Day.D.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",4) Day.E.Name = extract_string(f,"<Day>","</Day>",5) Day.E.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",5) Day.E.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",5) Day.E.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",5) Day.E.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",5) Day.E.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",5) Day.F.Name = extract_string(f,"<Day>","</Day>",6) Day.F.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",6) Day.F.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",6) Day.F.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",6) Day.F.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",6) Day.F.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",6) Day.G.Name = extract_string(f,"<Day>","</Day>",7) Day.G.WeatherImage = extract_string(f,"<WeatherImage>","</WeatherImage>",7) Day.G.MaxTemperatureF = extract_string(f,"<MaxTemperatureF>","</MaxTemperatureF>",7) Day.G.MinTemperatureF = extract_string(f,"<MinTemperatureF>","</MinTemperatureF>",7) Day.G.MaxtemperatureC = extract_string(f,"<MaxTemperatureC>","</MaxTemperatureC>",7) Day.G.MintemperatureC = extract_string(f,"<MinTemperatureC>","</MinTemperatureC>",7) forcast.day = day weather_7day = Forcast END FUNCTION
Comment