[已解决]求正则取网页源代码指定内容

xyold1

对正则还是不太熟悉，搜了一下相关的贴子还是没有解决，所以贴出来请帮下忙

谢谢
我想取http://dict.soso.com/d.q?sc=dict&ch=w.ptl&uin=&w=is中的 例句部分  的源代码，用的是以下代码

$Source = _INetGetSource('http://dict.soso.com/d.q?sc=dict&ch=w.ptl&uin=&w=is')
;~ $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
;~ $oHTTP.Open("GET","http://dict.soso.com/d.q?sc=dict&ch=w.ptl&uin=&w=troop")
;~ $oHTTP.Send()

;~ $Source = $oHTTP.Responsetext 
;~ MsgBox(0, '结果：', $Source)
;~ $Source=StringRegExpReplace ($Source, "\r\n", "|")
$sR = StringRegExp($Source, '例句与用法(.*)以上内容由', 3)
;~  MsgBox(0, '结果：', $sR[0])
If Not @Error Then MsgBox(0, '结果：', $sR[0])
Exit

没有成功，正则达人帮看一下错在哪里了


下面是网页部分源代码

<br><b>例句与用法</b><br><br class=x>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>1.  </td>
                <td>Pain past <b>is</b> pleasure. <br>过去的痛苦即是快乐。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>2.  </td>
                <td>A friend in need <b>is</b> a friend indeed. <br>患难之交才是真朋友。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>3.  </td>
                <td>The video <b>is</b> programmed to switch on at ten o'clock. <br>电视机设定在10点钟自动打开。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>4.  </td>
                <td>That's the way it <b>is</b>. <br>就是这么回事。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>5.  </td>
                <td>The room <b>is</b> 15 feet in length and 10 feet in breadth. <br>这房间长15英尺，宽10英尺。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>6.  </td>
                <td>There <b>is</b> no doubt about it. <br>那是毫无疑问的。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>7.  </td>
                <td>The boy <b>is</b> 150 centimeters tall. <br>这个男孩有150厘米高。<td>
                </table>
                        <table cellSpacing=0 cellPadding=0 class=mb8>
                <td valign=top>8.  </td>
                <td>Spain <b>is</b> our favorite holiday spot. <br>西班牙是我们喜欢的度假地点。<td>
                </table>
        
<br><span class="f12">以上内容由Dict.cn海词提供</span><br><br class=x>

3mile

#include <array.au3>
#include <INet.au3>
$Source = _INetGetSource('http://dict.soso.com/d.q?sc=dict&ch=w.ptl&uin=&w=is')
;~ $oHTTP = ObjCreate("winhttp.winhttprequest.5.1")
;~ $oHTTP.Open("GET","http://dict.soso.com/d.q?sc=dict&ch=w.ptl&uin=&w=troop")
;~ $oHTTP.Send()

;~ $Source = $oHTTP.Responsetext 
;~ MsgBox(0, '结果：', $Source)
;~ $Source=StringRegExpReplace ($Source, "\r\n", "|")
Local $str=''
$sR = StringRegExp($Source, '<td>(.*<b>.*</b>.*)<br>(.*)<td>', 3)
For $i=0 To UBound($sR)-1 Step 2
        ;$sR[$i]=StringRegExpReplace($sR[$i],'<b>.*</b>','$1')
        $str&=StringRegExpReplace($sR[$i],'<b>.*</b>','$1')&@CRLF&$sR[$i+1]&@CRLF
Next
MsgBox(0,0,$str)
Exit

xyold1

回复 2# 3mile

非常 感谢
辛苦了

xyold1

回复 2# 3mile

那个正则替换将关键字替换没了

下面是修正过的

#include <INet.au3>
$Source = _INetGetSource('http://dict.soso.com/d.q?sc=dict&ch=w.ptl&uin=&w=test')

Local $str=''
$sR = StringRegExp($Source, '<td>(.*<b>.*</b>.*)<br>(.*)<td>', 3)
For $i=0 To UBound($sR)-1 Step 2
        ;$sR[$i]=StringRegExpReplace($sR[$i],'<b>.*</b>','$1')
        $str&=StringRegExpReplace($sR[$i],'<b>|</b>','')&@CRLF&$sR[$i+1]&@CRLF
Next
MsgBox(0,0,$str)



Exit