Погода онлайн

;~ #include <Array.au3>

;~ HttpSetProxy(1)

Global $aWeather = _GetCurrentWeatherSaratov()
If @error Then Exit 13
;~ _ArrayDisplay($aWeather)
For $i = 0 To UBound($aWeather) - 1
	ConsoleWrite($aWeather[$i] & @LF)
Next

#cs
	При успехе вернет одномерный массив размером в зависимости от $i_Flag =
	-1		- 3 элемента: температура, влажность и давление;
	0		- 1 элемент: температура;
	1		- 1 элемент: влажность;
	2		- 1 элемент: давление;
	другой	- 1 элемент: error.
	При ошибке: 1 элемент: error.
#ce
Func _GetCurrentWeatherSaratov($i_Flag = -1)
	Local $s_Read, $a_Search[3][3] = [['term', 'Температура:', Chr(176) & 'C'],['hum', 'Влажность:'],['press', 'Давление:']], $a_Ret[1]

	$s_Read = InetRead('http://auto.sarbc.ru/webcams//weather.json', 17)
	If @error Then
		$a_Ret[0] = 'error'
		Return $a_Ret
	EndIf
	$s_Read = BinaryToString($s_Read)
	Switch $i_Flag
		Case -1
			ReDim $a_Ret[3]
			For $i = 0 To 2
				$a_Ret[$i] = StringRegExpReplace($s_Read, '.*[''"]' & $a_Search[$i][0] & '[''"]:\h[''"]([\d\.,%]+)[''"].*', '$1')
				If @extended <> 1 Then
					$a_Ret[$i] = 'error'
				Else
					$a_Ret[$i] = StringFormat('%-13s\t%s%s', $a_Search[$i][1], $a_Ret[$i], $a_Search[$i][2])
				EndIf
			Next
		Case 0 To 2
			$a_Ret[0] = StringRegExpReplace($s_Read, '.*[''"]' & $a_Search[$i_Flag][0] & '[''"]:\h[''"]([\d\.,%]+)[''"].*', '$1')
			If @extended <> 1 Then
				$a_Ret[0] = 'error'
			Else
				$a_Ret[0] = StringFormat('%-13s\t%s%s', $a_Search[$i_Flag][1], $a_Ret[0], $a_Search[$i_Flag][2])
			EndIf
		Case Else
			$a_Ret[0] = 'error'
	EndSwitch
	Return $a_Ret
EndFunc   ;==>_GetCurrentWeatherSaratov