库尔勒天气预报2两例

 

 

#NoTrayIcon
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=D:\AU3资源\其它\navigater\07a.ico
#PRE_UseUpx=n
#PRE_Res_Comment=库尔勒天气预报，AU3编写。
#PRE_Res_Description=库尔勒天气预报，AU3编写。
#PRE_Res_Fileversion=2.0.0.0
#PRE_Res_LegalCopyright=宁静深海
#PRE_Res_SaveSource=y
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
#include <inet.au3>
#include <string.au3>
Global $source = InetRead('http://bazhou1.tianqi.com/kuerle/')
Global $txt = BinaryToString($source,1)
Func _jiequ($a, $b, $exp)
    $t = StringRegExp($txt, $exp, 3)
    Return StringReplace(StringReplace($t[0], $a, ""), $b, "")
EndFunc   ;==>_jiequ
;温馨提示
;$a = "<span class=""w-tips-con-1"">"
;$b = "</span>"
;If StringInStr($txt,$a)=0 Then
$msg="温馨提示："
;Else
;$exp = $a & ".*" & $b
;$msg = _jiequ($a, $b, $exp)
;EndIf
;温馨提示内容
$a1 = "<span class=""w-tips-con inblock"">&nbsp;"
$b1 = "</span>"
If StringInStr($txt,$a1)=0 Then
$msg1="请注意天气变化，愿您平安快乐！"
Else
$exp1 = $a1 & ".*" & $b1
$msg1 = _jiequ($a1, $b1, $exp1)
EndIf
;日期
$a2 = "<li class=""time"">"
$b2 = "</li>"
$exp2 = $a2 & ".*" & $b2
$msg2 = _jiequ($a2, $b2, $exp2)
;气温1
$a3 = "<span id=""t_temp""><font color=""#f00"">"
$b3 = "</font>~<font color=""#4899be"">"
$exp3 = $a3 & ".*" & $b3
$msg3 = _jiequ($a3, $b3, $exp3)
;气温2
$a4 = "</font>~<font color=""#4899be"">"
$b4 = "</font></span>"
$exp4 = $a4 & ".*" & $b4
$msg4 = _jiequ($a4, $b4, $exp4)
;天气
$a5 = "<li class=""cDRed"">"
$b5 = "</li>"
$exp5 = $a5 & ".*" & $b5
$msg5 = _jiequ($a5, $b5, $exp5)
;风况
$a6 = "<li style=""height:18px;overflow:hidden"">"
$b6 = "</li>"
$exp6 = $a6 & ".*" & $b6
$msg6 = _jiequ($a6, $b6, $exp6)
;当前温度
$a7 = "<div id=""rettemp""><strong>"
$b7 = "&deg;</strong><span>"
$exp7 = $a7 & ".*" & $b7
$msg7 = _jiequ($a7, $b7, $exp7)
;消息窗口
$msgbox = "日期：" & $msg2 & @CRLF _
         & "天气：" & $msg5 & @CRLF _
         & "气温：" & $msg4 & "<--->" & $msg3 & @CRLF _
         & "风况：" & $msg6 & @CRLF _
         & "当前温度：" & $msg7 & "℃" & @CRLF & @CRLF _
         & $msg & @CRLF & $msg1
MsgBox(266240, "库尔勒实时天气预报", $msgbox)

 

#NoTrayIcon
#include <inet.au3>
#include <string.au3>
#include <Array.au3>
Global $source = InetRead('http://www.weather.com.cn/weather/101130601.shtml?from=xinjiang')
Global $txt = BinaryToString($source, 4)
$msg = StringRegExp($txt, "\d{1,4}[年日]+.*[一二三四五六七八九十℃]+|\d{2}:\d{2}[发布]{0,2}", 3)
#cs
    消息窗口
    天气= $msg[0]
    日历=$msg[1]
    今天日出=$msg[2]
    明天日出=$msg[4]
    今天日落=$msg[3]
    明天日落=$msg[5]
#ce
$msgsplit = StringSplit($msg[0], "  ")
;_ArrayDisplay($msgsplit)
MsgBox(266240, "库尔勒天气日历小工具", "今天是" & $msg[1] & @CRLF _
         & "----------------------------------------------" & @CRLF _
         & " 【" & $msgsplit[1] & " " & "】" & @CRLF _
         & "    天气：" & $msgsplit[3] & @CRLF & "    气温：" & $msgsplit[5] & @CRLF _
         & "----------------------------------------------" & @CRLF _
         & "今天日出：" & $msg[2] & "－－－今天日落：" & $msg[3] & @CRLF _
         & "明天日出：" & $msg[4] & "－－－明天日落：" & $msg[5] & @CRLF _
         & "----------------------------------------------" & @CRLF _
         & "                                 巴州气象局" & $msg[6])