Links outside Tables

[fhanna]

I have no problem retrieving links from a web page but only want the ones within a Table. In using the _IELinkGetCollection I retrieve them all. Could someone assist by an additional statement within this command or is their a way via the _IETagnameGetCollection or similar.

Thanks you.

[kylomas]

fhanna,

The following example reads a downloaded HTML source file and outputs links within tables.

Note - I'm just learning how to work with HTML objects so I'm sure that there are other/better way to do this, but this works for me.

#include <IE.au3>
#include <array.au3>

_lnks(fileread('my.file'))

ConsoleWrite(@error & @LF)

Func _lnks($html_code)

    Local $o_htmlfile = ObjCreate('HTMLFILE')

    If Not IsObj($o_htmlfile) Then Return SetError(-1, 0, '')

    $o_htmlfile.open()
    $o_htmlfile.write($html_code)
    $o_htmlfile.close()

    Local $otbls = _IETagnameGetCollection($o_htmlfile, 'TABLE')

    if not isobj($otbls) then return seterror(-2)

    for $otbl in $otbls
        local $olnks = _ietagnamegetcollection($otbl, 'A')
        if not isobj($olnks) then return seterror(-3)
        ConsoleWrite('Links for table = ' & $otbl.id & ' ' & $otbl.title & ' ' & $otbl.summary & @LF)
        for $olnk in $olnks
            ConsoleWrite(@tab & $olnk.href & @LF)
        next
    next

EndFunc

kylomas