#cs

Description:	Weather XML from Weather.com.
author:			usmiv4o (just repaired old script)
date:			29.7.2017

to get City code go to weather.com and copy City code from URL
;http://wxdata.weather.com/wxdata/weather/local/BUXX0005?cc=*&unit=m&dayf=1					<- URL for Sofia, Bulgaria, metric units

#ce


Global $location,$loc_time,$sunrise,$sunset,$datetime,$loc,$temp,$feels,$current,$wicon,$bp
Global $bpd,$ws,$wg,$wd,$wt,$hmid,$vis,$uv,$uvt,$dewp,$micon,$mt
Global $code = "BUXX0005"	;Sofia Bulgaria
$input = "sofia"

_GetWeather()

    $array = StringSplit($temp, " ")
	;$temp = K2C($array[1])

	$array = StringSplit($feels, " ")
	;$feels = K2C($array[1])

	$array = StringSplit($sunrise, " ")
	$sunrise = $array[1]
	$array = StringSplit($sunrise, ":")
	$sunrise = $array[1]
    $sunrise1 = $array[2]

	;MsgBox(0,"sunset", $sunset)
	$array = StringSplit($sunset, " ")
	$sunset = $array[1]
    $array = StringSplit($sunset, ":")
	$sunset = $array[1]
	$sunset1 = $array[2]

	; wind speed
	$ws = $ws * 1.6
	$array = StringSplit($ws, ".")
	$ws = $array[1]
	;$ws1 = $array[2]



;ConsoleWrite("Temperature now "&$temp& " C " & @CRLF _
;& " Weather now "& $current &  @CRLF &"  wind speed " & K2C($ws) _
;& "km/h." & @CRLF & "    Humidity " &$hmid &  " %" & @CRLF & "     bar. pressure " & $bp & " hP" & @CRLF)

; convert Kelvins to Celsius
Func K2C(ByRef $temp)
	$temp = ($temp - 32) * (5/9) ;converting to Celsius
	$temp = Round($temp, 2) ;round float point up to 2 -nd sign
	;MsgBox(0, "K2C", $temp)
	Return $temp
EndFunc

;Message Box with data
Func Showy()
	MsgBox(0,"location ", $location)
	ConsoleWrite("location "& $location & @CRLF)
    MsgBox(0,"loc_time ", $loc_time)
	ConsoleWrite("loc_time "& $loc_time & @CRLF)
    MsgBox(0,"sunrise ", $sunrise &"."&  $sunrise1)
	ConsoleWrite("sunrise "& $sunrise &"."&  $sunrise1	& @CRLF)
    MsgBox(0,"sunset ", $sunset &"."&  $sunset1)
	ConsoleWrite("sunset "& $sunset &"."&  $sunset1	& @CRLF)
    MsgBox(0,"datetime ", $datetime)
	ConsoleWrite("datetime "& $datetime	& @CRLF)
    MsgBox(0,"temp ", $temp & " C")
	ConsoleWrite("temp "& $temp & " C"	& @CRLF)
    MsgBox(0,"feels ", $feels & "C")
	ConsoleWrite("feels "& $feels & "C"	& @CRLF)
    MsgBox(0,"current ", $current)
	ConsoleWrite("current " & $current	& @CRLF)
    MsgBox(0,"barometric pressure ", $bp & "hP")
	ConsoleWrite("barometric pressure "&  $bp	& "hP" & @CRLF)
    MsgBox(0,"bpd ", $bpd)
	ConsoleWrite("bpd " & $bpd	& @CRLF)
    MsgBox(0,"wind speed ", $ws)
	ConsoleWrite("wind speed " & $ws	& @CRLF)
    MsgBox(0,"wd wt ", $wd & " " & $wt& " km/h")
	ConsoleWrite("wd wt " & $wd & " " & $wt & " km/h"	& @CRLF)
    MsgBox(0,"humidity ", $hmid & "%")
	ConsoleWrite("humidity "	& $hmid & "%" & @CRLF)
    MsgBox(0,"visibility ", $vis & " km")
	ConsoleWrite("visibility " & $vis & " km " & @CRLF)
    MsgBox(0,"UV index", $uv & " (" & $uvt & ")")
	ConsoleWrite("UV index "  & $uv & " (" & $uvt & ")" & @CRLF)
    MsgBox(0,"dewp", $dewp)
	ConsoleWrite("dewp " & $dewp  & @CRLF)
    MsgBox(0,"mt", $mt)
	ConsoleWrite("mt " & $mt  & @CRLF)
EndFunc


Func _GetWeather()
$oXml = ObjCreate("Msxml2.DOMDocument.3.0")
$oXml.async=0
$oXml.Load("http://wxdata.weather.com/wxdata/weather/local/BUXX0005?cc=*&unit=m&dayf=1")
$oXmlroot = $oXml.documentElement
For $oXmlnode In $oXmlroot.childnodes
    For $oXmlnode2 In $oXmlnode.attributes
        If $oXmlnode2.name = "id" Then $code = $oXmlnode2.value
    Next
Next
If $code = "NoCode" Then
    Msgbox(0, "Error", "Location Not Found" & "Click OK To Continue")
Else



$oXml.Load("http://wxdata.weather.com/wxdata/weather/local/" & $code & "?cc=*&unit=m&dayf=1")
$oXmlroot = $oXml.documentElement
For $oXmlNode In $oXmlroot.childNodes
    Select
    Case $oXmlnode.nodename = "loc"
        For $oXmlnode2  in $oXmlnode.Childnodes
            Select
            Case $oXmlnode2.nodename = "dnam"
                $location = $oXmlnode2.text
            Case $oXmlnode2.nodename = "tm"
                $loc_time = $oXmlnode2.text
			Case $oXmlnode2.nodename = "sunr"
                $sunrise = $oxmlnode2.text	; sunrise
				;ConsoleWrite($sunrise & @CRLF)
            Case $oXmlnode2.nodename = "suns"
                $sunset = $oxmlnode2.text	; sunset
				;ConsoleWrite($sunset & @CRLF)
            EndSelect
        Next
    Case $oXmlnode.nodename = "dayf"
        For $oXmlnode2  in $oXmlnode.Childnodes
            Select
            Case $oXmlnode2.nodename = "hi"
                $hi = $oXmlnode2.text
            Case $oXmlnode2.nodename = "low"
                $low = $oXmlnode2.text

            EndSelect
        Next
    Case $oxmlnode.nodename = "cc"
        For $oxmlnode2 In $oxmlnode.childnodes
            Select
            Case $oxmlnode2.nodename = "lsup"	;<lsup>7/28/17 7:00 AM EEST</lsup>
                $datetime = $oxmlnode2.text
            Case $oxmlnode2.nodename = "obst"
                $loc = $oxmlnode2.text
            Case $oxmlnode2.nodename = "tmp"
                $temp = $oxmlnode2.text
            Case $oxmlnode2.nodename = "flik"
                $feels = $oxmlnode2.text
            Case $oxmlnode2.nodename = "t"
                $current = $oxmlnode2.text
            Case $oxmlnode2.nodename = "icon"
                $wicon = $oxmlnode2.text
            Case $oxmlnode2.nodename = "bar"
                For $oxmlnode3 in $oxmlnode2.childnodes
                Select
                Case $oxmlnode3.nodename = "r"
                    $bp = $oxmlnode3.text
                Case $oxmlnode3.nodename = "d"
                    $bpd = $oxmlnode3.text
                EndSelect
                Next
            Case $oxmlnode2.nodename = "wind"
                For $oxmlnode3 in $oxmlnode2.childnodes
                    Select
                    Case $oxmlnode3.nodename = "s"
                        $ws = $oxmlnode3.text  ;windspeed miles
                    Case $oxmlnode3.nodename = "gust"
                        $wg = $oxmlnode3.text
                    Case $oxmlnode3.nodename = "d"
                        $wd = $oxmlnode3.text
                    Case $oxmlnode3.nodename = "t"
                        $wt = $oxmlnode3.text
                    EndSelect
                Next
            Case $oxmlnode2.nodename = "hmid"
                $hmid = $oxmlnode2.text	;humidity
            Case $oxmlnode2.nodename = "vis"
                $vis = $oxmlnode2.text	;visibility
            Case $oxmlnode2.nodename = "uv"
                For $oxmlnode3 in $oxmlnode2.childnodes; ULTRAVIOLET INDEX
                    Select
                    Case $oxmlnode3.nodename = "i"
                        $uv = $oxmlnode3.text
                    Case $oxmlnode3.nodename = "t"
                        $uvt = $oxmlnode3.text
                    EndSelect
                Next
            Case $oxmlnode2.nodename = "dewp"
                $dewp = $oxmlnode2.text
            Case $oxmlnode2.nodename = "moon"
                For $oxmlnode3 in $oxmlnode2.childnodes
                    Select
                    Case $oxmlnode3.nodename = "icon"
                        $micon = $oxmlnode3.text
                    Case $oxmlnode3.nodename = "t"
                        $mt = $oxmlnode3.text
                    EndSelect
                Next
            EndSelect
        Next
    EndSelect
Next
$oXml = ""
EndIf
EndFunc

Showy()