m765555 发表于 2011-4-21 18:08:10

关于正则提取网页内容求助[已解决]

本帖最后由 m765555 于 2011-5-11 09:38 编辑

我想用正则提取http://www.hao123.com/tianqi.htm中以下内容然后放到一个GUI中显示出来，效果要保留图片这样的效果，试了很多次无法成功，想请兄弟们指点一下代码，谢谢了，图片如下

m765555 发表于 2011-4-22 09:31:16

对了我的代码贴上来，兄弟们帮我看看，写入的东西太多了，我想去掉我不想要的，留下我想要的，不知道怎么用正则去修改了，请各位指教一下，谢谢了！
#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

huoqingpo 发表于 2011-4-27 11:48:24

#include <GUIConstantsEx.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("天气", 960, 180, 0, 333)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE, 6, 6, 1024, 180)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
_time()
While 1
      $nMsg = GUIGetMsg()
      Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit
      EndSwitch
WEnd
func _time()
      If FileExists(@TempDir&"\time.htm") Then
                FileDelete(@TempDir&"\time.htm")
      EndIf
      FileWriteLine(@TempDir&"\time.htm",'<iframe name="I1" marginwidth="0" marginheight="0" width="1024" vspace="-140" hspace="-50" align="middle" height="1024" scrolling="no" border="0" frameborder="0" src=http://www.hao123.com/tianqi.htm></iframe>')

      _IENavigate($oIE,@TempDir&"\time.htm")
EndFunc也可以实现···你实现的功能

m765555 发表于 2011-4-27 15:06:13

兄弟可以说下这段代码的意思吗，我不是很明白，这样也相当于只显示了部分内容，但其实整个网页是完全打开的，是不是？
FileWriteLine(@TempDir&"\time.htm",'<iframe name="I1" marginwidth="0" marginheight="0" width="1024" vspace="-140" hspace="-50" align="middle" height="1024" scrolling="no" border="0" frameborder="0" src=http://www.hao123.com/tianqi.htm></iframe>')

m765555 发表于 2011-4-27 15:07:15

这种方法不错，但我还是想学到用正则的方法来获取，主要是学习正则，呵呵，不过也太感谢了兄弟

m765555 发表于 2011-4-27 15:16:57

主要是那个负号，如-140和-50到底什么意思呀，呵呵

zzz867 发表于 2011-5-6 11:26:09

好多好東西，每次上來都有不一樣的感覺

zzz867 发表于 2011-5-7 10:47:26

學習學習，經常上來看一定可以得到很多東西

紫色风林 发表于 2011-6-28 08:02:06

谢谢，正要学习呢

dmqhcx88 发表于 2011-7-9 06:42:42

强,学习了,支持支持.

shrfish 发表于 2011-7-17 23:56:38

学习了，受益匪浅

lejw 发表于 2011-7-23 16:17:39

好帖子！！！路过要顶上一顶！！！！！

klpwap 发表于 2011-8-11 16:23:38

谢谢，正要学习呢

macchare 发表于 2011-9-17 14:58:51

这个很实用学习了

lintur 发表于 2012-1-11 13:26:58

强大的正则，学习了
页: [1] 2
查看完整版本: 关于正则提取网页内容求助[已解决]