Ticket #1767: tableToArrayIssue.au3

#include <IE.au3>



;IECreate options
$s_Url = "temp.html"
$f_tryAttach = 1
$f_visible = 1
$f_wait = 1
$f_takeFocus = 1

$o_ie = _IECreate($s_Url,$f_tryAttach,$f_visible,$f_wait,$f_takeFocus)
createTest($o_ie)
$o_table = _IEGetObjById($o_ie,"table1")
$a_table = _IETableWriteToArray($o_table)

$s_aDispay = ""

for $i_x=0 to UBound($a_table,2)-1
        for $i_y=0 to UBound($a_table,1)-1
                $s_aDispay = $s_aDispay & "row: " & $i_x & " col: " & $i_y & " = " & $a_table[$i_y][$i_x] & @CRLF
        Next
Next

MsgBox(0,"table to array results",$s_aDispay)

;functions to support test html page
;formatted to readable html
Func iTab($i_tabs, $s_txt= "", $b_includeCrLf = True)
        $s_temp = ""

        If $b_includeCrLf = True Then
                $s_temp = @CRLF
        EndIf

        for $x = 1 to $i_tabs
                $s_temp = $s_temp & @TAB
        Next
        Return $s_temp & $s_txt
EndFunc

Func createTest($o_ie)
        $s_html = '<table border=1 id="table1">' & iTab(1, '<tr>') & iTab(2,'<td colspan=2>table 1 - Row 0, Column 0 to Column 1</td>') & iTab(1,'</tr>') & iTab(1,'<tr>') & iTab(2,'<th>table 1 - Row 1, Column 0</th>') & iTab(2,'<th>table 1 - Row 1, Column 1</th>') & iTab(1,'</tr>') & iTab(1,'<tr>') & iTab(2,'<td>table 1 - Row 2, Column 0</td>') & iTab(2,'<td>table 1 - Row 2, Column 1</td>') & iTab(1,'</tr>') & iTab(1,'<tr>') & iTab(2,'<td rowspan=2>table 1 - Row 3 to Row 4, Column 0</td>') & iTab(2,'<td>table 1 -  Row 3, Column 1</td>') & iTab(1,'</tr>') & iTab(1,'<tr>') & iTab(2,'<td>') & iTab(3,'table 1 - Row 4, Column 1') & iTab(3,'<table border=1>') & iTab(4,'<tr>') & iTab(5,'<td>table 2 -  Row 0, Column 0</td>') & iTab(5,'<td>table 2 - Row 0, Column 1</td>') & iTab(4,'</tr>') & iTab(4,'<tr>') & iTab(5,'<td>table 2 - Row 1, Column 0</td>') & iTab(5,'<td>table 2 - Row 1, Column 1</td>') & iTab(4,'</tr>') & iTab(3,'</table>') & iTab(2,'</td>') & iTab(1,'</tr>') & '</table>'
        _IEBodyWriteHTML($o_ie,$s_html)
EndFunc