read tags from ie into excel

[joeloyzaga]

It all went well till I tried to get all the "ALT" tags - do I neet to change the included ie.au3 - from the include file and how?

expandcollapse popup

#include <IE.au3>
Dim $avWin
Dim $oIE

While 1
    $avWin = WinList('[CLASS:IEFrame]')
   
    For $i = 1 To $avWin[0][0]
        If MsgBox(0x24, 'Choose window', 'Work with "' & $avWin[$i][0] & '"?') = 6 Then     ; Yes

            ExitLoop(2)
        EndIf
    Next
WEnd
$oIE = $avWin[$i][0]
$oIE = _IEAttach($avWin[$i][1], 'hwnd')
;$oIE = _IECreate ("www.ninemsn.com")
$oElements = _IETagNameAllGetCollection ($oIE)
$oExcel = ObjCreate("Excel.Application")
$oExcel.Visible = True
$oExcel.Workbooks.add
$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 1).Value = "Tag Name"
$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 2).Value = "Inner Text"
$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 3).Value = "outer Text"
$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 4).Value = "outerHTML"
$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 5).Value = "uniqueid"
$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 6).Value = "innerHTML"
;$oExcel.ActiveWorkbook.Sheets(1).Cells(1, 6).Value = "Type"
$RowNumber =2
For $oElement In $oElements
   $oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 1).Value = $oElement.tagname
   $oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 2).Value = $oElement.innerText
   $oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 3).Value = $oElement.outerText
   $oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 4).Value = $oElement.outerHTML
   $oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 5).Value = $oElement.uniqueid
   $oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 6).Value = $oElement.innerHTML
  ;$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 7).Value = $oElement.type
   $RowNumber = $RowNumber + 1
Next
msgbox (0x0,"finish box" ,"finished")

[Juvigy]

Have you tried :

_IEDocGetObj($oIE)

$oArray = $oDoc.getElementsByTagName("ALT")

and then test with with a loop what is in the $oArray ?

[joeloyzaga]

Have you tried :

_IEDocGetObj($oIE)

$oArray = $oDoc.getElementsByTagName("ALT")

and then test with with a loop what is in the $oArray ?

but that won't allow me to align it with other row values

[Juvigy]

Why not?

Also you can test if the "alt" objects have all:

For $oElement In $oArray

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 1).Value = $oElement.tagname

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 2).Value = $oElement.innerText

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 3).Value = $oElement.outerText

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 4).Value = $oElement.outerHTML

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 5).Value = $oElement.uniqueid

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 6).Value = $oElement.innerHTML

;$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 7).Value = $oElement.type

$RowNumber = $RowNumber + 1

Next

I think it dies at:

$oExcel.ActiveWorkbook.Sheets(1).Cells($RowNumber, 5).Value = $oElement.uniqueid as the ALT tag doesnt have .uniqueid

Try to addin the beggining of the code :

_IEErrorHandlerRegister ("MyErrFunc")

and at the end

Func MyErrFunc()

;$oError =$$oIEErrorHandler.description

Endfunc

[DaleHohm]

Everything has a uniqueid, by definition -- it is internally generated.

Your code worked in my test.

Try SciTe Debug mode and _IEErrorHandlerRegister() to try to get more information.

Dale