I'm using the WebBrowser control and mshtml library to modify the HTML in a
web page. E.g. the code below is meant to change all .txt links to .zip,
but doesn't because mAnchorElement is just a copy of mElement and doesn't
reference mElement and any changes I make to it affect the copy and not
mElement.
Private Sub Web1_DocumentCo mplete(ByVal sender As Object, ByVal e As
AxSHDocVw.DWebB rowserEvents2_D ocumentComplete Event) Handles
Web1.DocumentCo mplete
Dim mDoc As mshtml.HTMLDocu ment
Dim mElement As mshtml.IHTMLEle ment
Dim mAnchorElement As mshtml.IHTMLAnc horElement
mDoc = Web1.Document
For Each mElement In mDoc.body.all
If mElement.tagNam e = "A" Then
mAnchorElement = mElement
If InStr(mAnchorEl ement.href, ".txt") Then
Replace(".txt", mAnchorElement. href, ".zip")
End If
End If
Next
End Sub
I could do it using the following code:
Dim mAnchorElements As mshtml.IHTMLEle mentCollection
mAnchorElements = mDoc.getElement sByTagName("A")
For Each mAnchorElement In mAnchorElements
If InStr(mAnchorEl ement.href, ".txt") Then
Replace(".txt", mAnchorElement. href, ".zip")
End If
Next
However I change other parts of the HTML (not just certain <A> tags) and was
wondering whether it is possible to loop through mDoc.body.all, 'cast'
mElement to the appropriate object based on the tagName, make changes to
that object and have them reflected in the original mDoc.
So the question is: how do I reference the mElement object in the first code
snippet so that changes to mAnchorElement object affect mElement? I can
then apply the same logic to other ihtml objects.
Thanks for any help.
