Dynamic Webelement Value

[Parke]

novemberrain81:

'' using finance.yahoo.com
' You needed to look in the source code.

Code:

' the field appears to have an html id value = "yfs_l84_symbol", where symbol is nflx, ibm or....
'symbol = "IBM"
symbol = "NFLX"
browserName = symbol&": .*"
pageTitle = symbol&": .*"

Set oDesc =description.Create()
oDesc("micclass").value = "WebElement"
oDesc("html tag").value = "span"
oDesc("html id").value = "yfs_l84_"&LCase(symbol)

Set oAll = browser("name:="&browserName).page("title:="&pageTitle).childObjects(oDesc)
cnt = oAll.count
print "count = " & cnt

For  i = 0 to oAll.count - 1
    'If oAll.item(i).GetROProperty("html id") = "yfs_l84_nflx" Then
    If oAll.item(i).GetROProperty("html id") = "yfs_l84_"&LCase(symbol) Then
        print oAll.item(i).GetROProperty("html id") & " :: " & oAll.item(i).GetROProperty("outertext")
    End If
    'print oAll.item(i).GetROProperty("html id") & " :: " & oAll.item(i).GetROProperty("outertext")
Next

Results:
count = 1
yfs_l84_ibm :: 186.13
count = 1
yfs_l84_nflx :: 309.17

hth,

Parke