How to count rows in _StringBetween

[6105]

Hi, have here some alternative method to count rows..

I can't use StringSplit coz array is already buided with _StringBetween, some tips pls,

Reproducer code:

#include <String.au3>
#include <Array.au3>
#include <IE.au3>
$file = @TempDir&'\au3test.tmp'
ConsoleWrite('File = '&$file&@CRLF)
$oIE = _IECreate('http://autoitscript.com/forum',0,0)
_IELoadWait($oIE)
$sHTML = _IEBodyReadHTML($oIE)
$wFile = FileWrite($file,$sHTML)
$nFileHTML = FileOpen($file, 0)
If @error then ConsoleWrite('error with FileOpen($file, 0)'&@CRLF)
While 1
Local $aArray[10], $aRead = FileReadLine($nFileHTML)
If @error then ExitLoop
$aSearch = StringInStr($aRead,'<LI><SPAN')
If $aSearch > 0 Then
  $aArray = _StringBetween($aRead, 'href="', '"')
  _ArrayDisplay($aArray)
EndIf
WEnd
ProcessClose('IEXPLORE.EXE')
FileDelete($file)

Thanks in advance for any tips.

Tedy.

[BrewManNH]

What exactly are you looking for? What tips do you need?

[6105]

Ok, i think that i resolved it,

i just need to read each line of _StringBetween,

and don't know how to stop loop coz don't know how many rows that have..

I think solution is by adding new while:

$i = 0[/size]
[size=3]While 1
$string = _ArrayToString($aArray,'',$i,$i)
If $string = '' then ExitLoop
ConsoleWrite($string&@CRLF)
MsgBox(0,'',$string)
$i+=1
WEnd

full code:

#include <String.au3>
#include <Array.au3>
#include <IE.au3>
$file = @TempDir&'au3test.tmp'
Dim $aArray[10]
ConsoleWrite('File = '&$file&@CRLF)[/size]
[size=3]$oIE = _IECreate('http://autoitscript.com/forum',0,0)
_IELoadWait($oIE)
$sHTML = _IEBodyReadHTML($oIE)
$wFile = FileWrite($file,$sHTML)
$nFileHTML = FileOpen($file, 0)
If @error then ConsoleWrite('error with FileOpen($file, 0)'&@CRLF)
While 1
Local $aRead = FileReadLine($nFileHTML)
If @error then ExitLoop
$aSearch = StringInStr($aRead,'<LI><SPAN')
If $aSearch > 0 Then
  $aArray = _StringBetween($aRead, 'href="', '"')
  _ArrayDisplay($aArray)
EndIf
WEnd[/size]
[size=3]$i = 0[/size]
[size=3]While 1
$string = _ArrayToString($aArray,'',$i,$i)
If $string = '' then ExitLoop
ConsoleWrite($string&@CRLF)
MsgBox(0,'',$string)
$i+=1
WEnd[/size]
[size=3]ProcessClose('IEXPLORE.EXE')
FileDelete($file)

[kylomas]

6105,

If by "rows" you are refering to elements in an array use "ubound". See the help file.

kylomas