Since I've found a few things to work on with the iWeb functions (functions and documentation), I had a proposal I wanted to run by you guys.
If
iWeb_getTagLen and
iWeb_getTagObj are to be added to the standard library, I propose that accommodations for accessing table data be removed form them as they make those particular functions more cumbersome. I suggest that two separate functions be created specifically for dealing with tables,
iWeb_getTblLen and
iWeb_getTblObj and that
iWeb_tableParse be deprecated:
Code:
iWeb_getTagLen(pdsp,tag,frm="") {
If (tag="table") {
MsgBox, 48, iWeb Functions
, Please use the iWeb_getTblLen function to retrieve table length data.
return 0
}
If pWin:=iWeb_DomWin(pdsp,frm)
res:=COM_Invoke(pWin,"document.all.tags[" tag "].length")
COM_Release(pWin)
return res
}
iWeb_getTagObj(pdsp,tag,ind,type="innerText",frm="") {
If (tag="table") {
MsgBox, 48, iWeb Functions
, Please use the iWeb_getTblObj function to retrieve table data.
return 0
}
If pWin:=iWeb_DomWin(pdsp,frm)
res:=COM_Invoke(pWin,"document.all.tags[" tag "].item[" ind "]." type)
COM_Release(pWin)
return res
}
Code:
iWeb_getTblLen(pdsp,t,r=-1,frm="") {
If pWin:=iWeb_DomWin(pdsp,frm)
res:=COM_Invoke(pWin,"document.all.tags[table].item[" t "]"
. ((row < 0) ? ".rows" : "rows[" r "].cells")
. ".length")
COM_Release(pWin)
return res
}
iWeb_getTblObj(pdsp,t,r=-1,c=-1,type="innerText",frm="") {
If pWin:=iWeb_DomWin(pdsp,frm)
res:=COM_Invoke(pWin,"document.all.tags[table].item[" tbl "]"
. ((r >= 0) && (c >= 0) ? ".rows[" r "]".cells[" c "]"
: ((r >= 0) && (c < 0) ? ".rows[" r "]"
: ""
. "." type)
COM_Release(pWin)
return res
}
I'm also curious as to if there would be sufficient interest to wrap Sean's
IE_GetDocument into an iWeb function, like
iWeb_getDoc? I can see where something like this might be beneficial:
Code:
iWeb_getDoc(hWnd="") {
if !hWnd
ControlGet,hWnd,Hwnd, ,Internet Explorer_Server1, ahk_class IEFrame
return IE_GetDocument(hWnd)
}
IE_GetDocument(hWnd)
{
Static
If Not pfn
pfn := DllCall("GetProcAddress", "Uint", DllCall("LoadLibrary", "str", "oleacc.dll"), "str", "ObjectFromLresult")
, msg := DllCall("RegisterWindowMessage", "str", "WM_HTML_GETOBJECT")
, COM_GUID4String(iid, "{00020400-0000-0000-C000-000000000046}")
If DllCall("SendMessageTimeout", "Uint", hWnd, "Uint", msg, "Uint", 0, "Uint", 0, "Uint", 2, "Uint", 1000, "UintP", lr:=0) && DllCall(pfn, "Uint", lr, "Uint", &iid, "Uint", 0, "UintP", pdoc:=0)=0
Return pdoc
}
Login
Register
FAQ
Search
If you still have a previous copy of the functions it would probably be easiest to revert back to using those, but if you want to fix this copy in the meantime I believe this modification will do it:
you havent even read this thread