对了我的代码贴上来,兄弟们帮我看看,写入的东西太多了,我想去掉我不想要的,留下我想要的,不知道怎么用正则去修改了,请各位指教一下,谢谢了!#include<ie.au3>
#include<array.au3>
#include<file.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
$IE=_IECreateEmbedded ( )
$url="http://www.hao123.com/tianqi.htm"
$oie=_IECreate($url,0,0)
$html=_IEBodyReadHTML($oie)
$jtb=ClipPut($html)
$nr=ClipGet()
;MsgBox(0,"0",$nr)
FileWrite("01.htm",$nr)
$Form1 = GUICreate("天气获取测试", 623, 442, 192, 124)
$GUIActiveX = GUICtrlCreateObj($IE, 10, 40, 600, 360)
_IENavigate ($IE, @ScriptDir & "" &"01.htm",0)
GUISetState(@SW_SHOW)
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
EndSwitch
WEnd
|