1 reply to this topic

[Damein]

So I wanted to pull the data in a new post on a forum. I think this should be rather easy. This was my attempt

$Url = 'http://s15.zetaboards.com/Sniper_League/topic/7193078'
Global $sSource = BinaryToString(InetRead($Url))
For $i = 1 To 1000 Step +1
$PostCount = StringRegExp($sSource,'(?i)(?s)Post \#(.*?)</a>',1)
MsgBox(0, "Test", $PostCount[0])
If @Error Then
  $Count = $i
  ExitLoop
EndIf
Next
MsgBox(0, "Test", $Count)
Exit
While 1
Sleep(10)
WEnd

So the posts are labeled with numbers, so I was going to do a StringReg, see how many it counts to and then when it errors out I know that it has found the last post. But my thing returns an error because it didn't find a match. The content is:

Post #2</a>

So the stringreg I thought would pull a "1" and then a "2" and stop. But it didn't. Not sure what I did wrong, I've always been fail at StringReg. I'm also quite tired. So I'm heading off to bed, if I don't think of something I'll check back in

Thanks!

[Damein]

Resolved by the following code:

$Url = 'http://s15.zetaboards.com/Sniper_League/topic/7193078'
Global $sSource = BinaryToString(InetRead($Url))
For $i = 1 To 1000 Step +1
$PostCount = StringRegExp($sSource, '(?i)(?s)Post #' & $i & '(.*?)<tr class="c_postfoot">', 1)
$PostData = StringRegExp($PostCount[0], '(?i)(?s)<td class="c_post">(.*?)</td>', 1)
$NewPostData = StringStripWS($PostData[0],3)
MsgBox(0, "Test", $i & $NewPostData)
If @Error Then
  $Count = $i
  ExitLoop
EndIf
Next
MsgBox(0, "Test", $Count)
Exit
While 1
Sleep(10)
WEnd

Edited by Damein, 12 May 2012 - 10:24 AM.