留言板留言读取[已解决]

lanfengc

#include <INet.au3>
$File=InetGet("http://58.ieeie.com/58/book.aspx?username=lanfenglovec",@TempDir&"\temp.htm",1,0)
$Code=FileRead(@TempDir&"\temp.htm" )
$Code=StringSplit($Code,"查看留言",1)
$Code=StringSplit($Code[2],"首页",1)
$Code=StringSplit($Code[1],"STYLE33",1)
MsgBox(0,"总留言条数为",$Code[0])

For $i=2 To $Code[0] Step 1
        $Fir=StringSplit($Code[$i],'STYLE29"'&'>',1)
        $1=StringSplit($Fir[1],"</sp",1)
        $1=StringTrimLeft($1[1],5)
        $2=StringSplit($Fir[2],"</sp",1)
        $2=StringTrimLeft($2[1],5)
        MsgBox(0,$1,"留言内容:"&$2)
Next

afan

InetGet("http://58.ieeie.com/58/book.aspx?username=lanfenglovec", @TempDir & "\temp.htm", 1, 0)
$Code = FileRead(@TempDir & "\temp.htm")
$ID = StringRegExp($Code, '网友留言：([^<]+)</', 3)
If @error Then Exit MsgBox(0, 0, '错误1')
$str = StringRegExp($Code, 'STYLE29">\s+([^<]+)\r\n</span><', 3)
If @error Then Exit MsgBox(0, 0, '错误2')
Dim $out = ''
For $i = 0 To UBound($ID) - 1
        $out &= 'ID：' & @CRLF & $ID[$i] & @CRLF & '内容：' & @CRLF & $str[$i] & @CRLF & @CRLF
Next
MsgBox(0, '共 ' & UBound($ID) & ' 条留言', $out)

lanfengc

回复 2# afan


    AFAN 正则厉害  顶一个。