[SOLVED] How do I read this result?

[Dent]

Hi,

I've written a script to automate the logging in to a website and the generation of results as shown in Capture1.JPG

You'll see the number of results is displayed at the top, 12 in this case. What I can't work out is how to read that number into a variable.

The section of code from the site is displayed in Capture2.JPG

The only way I can think is to read the whole page with _IEBodyReadText($oIE) then use StringInStr to find it, however the result may be 1, 2 or 3 digits depending on the number of results so I'm not sure how that would be coded.

Any help greatly appreciated.

Edited August 2, 2016 by Dent
Marked as solved

[Melba23]

Dent,

Read the page and then use a RegEx to extract the required elements:

#include <Array.au3>

$sText = "<p>" & @CRLF & _
"  <strong>12</strong>" & @CRLF & _
"  properties within"

$aExtract = StringRegExp($sText, "<strong>(\d+)</strong>\R\s+properties", 3)

_ArrayDisplay($aExtract, "", Default, 8)

This will get the digits regardless of number.

M23

[Dent]

Melba23,

Thanks for replying to my question. I've tried to implement your example as follows and inserted a ConsoleWrite too as I was getting the "Array contains no data" error and wanted to see if anything was being passed to $Results. A single '1' was passed to $Result. Here's my code, are there any obvious mistakes?

$oPage = _IEBodyReadHTML($oIE)
$Results = StringRegExp($oPage, "<strong>(\d+)</strong>\R\s+properties", 3)
ConsoleWrite($Results & @CRLF)
_ArrayDisplay($Results, "", Default, 8)

 

[Melba23]

Dent,

Please save the page content returned by _IEBodyReadHTML as a file and let me take look - the internal structure of the HTML might well be different to the test string (I suspect the existence of @TABs rather then spaces).

M23

[Dent]

Sure

 

Edited August 1, 2016 by Dent

[Melba23]

Dent,

It was indeed a format problem - this pattern works for me:

#include <Array.au3>

$sText = FileRead("M:\Downloads\Page.htm") ; You read the page directly here

$aExtract = StringRegExp($sText, "<strong>(\d+)</strong>\s+properties", 3)

_ArrayDisplay($aExtract, "", Default, 8)

M23

[Dent]

Thank-you, this now works great for me.