【已解决】请教一下如何用正则获取

black丶shark

请教一下如何用正则获取里面14，西南风，3级，雨

kk_lee69

回复 1# black丶shark

大哥  你也太過懶惰了吧......... 要請人家 幫你弄正則~~~
貼一張圖.....
難不成  你要那些想幫妳的 還得自己 打文字 然後 自己測試 好 然後再告訴你答案嗎??

1361739590

直接根据前后内容截取   14，西南风，3级，雨
_StringBetween

black丶shark

回复 2# kk_lee69


    正则这块我一点都不会，时间太过紧急，想请求大神们帮忙一下。我是真懵啊

black丶shark

$file_html = FileRead(@ScriptDir & "\1.html")
 Dim $html = ObjCreate("htmlfile")
 With $html
 .open()
 .designmode = "on"
 .write($file_html)
 Dim $div = .getElementsByTagName("div")
 EndWith


 For $i = 0 To $div.length
 If StringInStr($div($i).classname, "days7") Then
 ExitLoop
 EndIf
 Next
 
 
 $Aday = $div($i).getElementsByTagName("b")
 $Atemp = $div($i).getElementsByTagName("span")
 $Aweather = $div($i).getElementsByTagName("img")
 
 $str = ""
 Local $i = 0
 Local $NAMES, $sComboTxt, $sComboTxt1;= "所有"
 For $m = 0 To $Aday.length * 2 - 1 Step 2
 $n = $m / 2
 
 $str = $str & $Aday($n).innertext & " 温度：" & $Atemp($n).innertext & "白天：" & StringFormat("%-4s", $Aweather($m).Alt) & "晚上：" & $Aweather($m + 1).alt & @CRLF
 ;$i += 30
 GUICtrlCreateLabel($Aday($n).innertext, 20, 260 + $i, 50, 240)
 GUICtrlSetColor(-1,0x0220d3) ;字体颜色  ;0xab00fb;;0xFF00FF
 GUICtrlSetFont(-1, 11, 600, 0, "微软雅黑")

我用这个也能获取么？应该怎样修改一下，当初我尝试用$Aweather = $div($i).getElementsByid("img")，获取id标签是不好用得，因为不知道这个.后面到底应该跟什么？

xzf680

"temp":"(.*?)"(?:[\s\S]*?)"WD":"(.*?)"(?:[\s\S]*?)"WS":"(.*?)"(?:[\s\S]*?)"weather":"(.*?)"

1361739590

不好用。
直接用这个函数就可以了。  _StringBetween