By using this site, you agree to our updated Privacy Policy and our Terms of Use. Manage your Cookies Settings.
459,290 Members | 1,403 Online
Bytes IT Community
+ Ask a Question
Need help? Post your question and get tips & solutions from a community of 459,290 IT Pros & Developers. It's quick & easy.

Relative URL in <A> tag being converted to absolute URL

P: n/a
I'm using the WebBrowser control and Microsoft HTML Object Library
(MSHTML) in a VB .Net program. I'm trying to read <P> tags and their
contents from one HTML document, test1.htm, and insert them into
another, test2.htm. The problem is the relative URL in the <A> tag in
the 3rd paragraph.

test1.htm contains:
<P>This is the first paragraph</P>
<P>This is the second paragraph</P>
<P>This is the third paragraph with a <A
href="../../dir1/dir2/page2.htm">link</A> included</P>

test2.htm contains:

The <P> tags are read from test1.htm and saved in a listbox using:

mElements = mDoc.getElementsByTagName("P")
For Each mElement In mElements

They are then inserted before the <HR> tag in test2.htm using:

For Each mElement In mDoc.all
If mElement.tagName = "HR" Then
For i = 0 To lstPTags.Items.Count - 1
End If

This works fine, EXCEPT for the 3rd paragraph which contains an <A>
tag link. The link is converted from a relative URL to an absolute
URL in the modified test2.htm :

<P>This is the third paragraph with a <A

My question is: how can I copy and insert the <P> tag and embedded <A>
tag exactly as it appears in test1.htm into test2.htm?
Nov 20 '05 #1
Share this Question
Share on Google+
5 Replies

P: n/a
Hi John,

I am not sure but are you looking for "URLUnencoded" in the DOM or

when that is so, there is also a lot of stuff about this in the HttpUtility

I hope this helps a little bit?

Nov 20 '05 #2

P: n/a
"Cor" <no*> wrote in message news:<eB**************@TK2MSFTNGP12.phx.gbl>...
Hi John,

I am not sure but are you looking for "URLUnencoded" in the DOM or

URLUnencoded returns the URL of the document containing the html, i.e.
test1.htm in my case. I need to read the <P> tag elements from one
document and write them without modification to another html document.

Perhaps I'm doing it the wrong way. I've also tried saving the <P>
tag IHTMLElement objects in an array:

Public mElementArray As mshtml.IHTMLElement()
Public iElements as Integer

mElementArray(iElements) = mElement
----- or -----
mElementArray(iElements) = mElement.cloneNode(True)

but both these statements lock up the program.
Nov 20 '05 #3

P: n/a
Hi John,

I think I saw it wrong, you want the innerHTML

If I was you I would take a look for that, it sets or retrieves the HTML
between the start and end tags of the object.

This is some text I did copy from MSDN

The innerHTML property is valid for both block and inline elements. By
definition, elements that do not have both an opening and closing tag cannot
have an innerHTML property.

The innerHTML property takes a string that specifies a valid combination of
text and elements.

When the innerHTML property is set, the given string completely replaces the
existing content of the object. If the string contains HTML tags, the string
is parsed and formatted as it is placed into the document.

This property is accessible at run time, as of Microsoft® Internet Explorer
5. Removing elements at run time, before the closing tag is parsed, could
prevent other areas of the document from rendering.

I don't know if it is it, but it is nearby I think?

Nov 20 '05 #4

P: n/a
"Cor" <no*> wrote in message news:<ug**************@TK2MSFTNGP09.phx.gbl>...
Hi John,

I think I saw it wrong, you want the innerHTML

Thank you for your help and interest in my problem.

Yes, innerHTML is better than outerHTML for reading the <P> tag
element. However, I can't get the <A> anchor tag to appear correctly
in the output .htm document. I've tried 2 methods:

Private Function createIntroHTML(ByRef HRElement As
mshtml.IHTMLElement, ByRef mDoc As mshtml.HTMLDocument) As String

Dim mNewElement As mshtml.IHTMLElement
Dim mNewNode As mshtml.IHTMLDOMNode
Dim strLines() As String = Split(txtIntro.Text, vbNewLine)
Dim i as Integer
Dim strHTML As String

For i = 0 To UBound(strLines) - 1

'Nearly, but puts anchor tag as text, i.e. <A

'mNewElement = mDoc.createElement("P")
'mNewElement.setAttribute("class", "text4")
'mNewElement.innerText = strLines(i)
'mNewNode = mNewElement
'HRElement.insertAdjacentElement("beforeBegin", mNewNode)

'Nearly, but converts relative URL in anchor tag to
absolute URL

strHTML = "<P class=""text4"">" + strLines(i) + "</P>"
HRElement.insertAdjacentHTML("beforeBegin", strHTML)


End Function
I just need a way to prevent the relative URL being changed to an
absolute URL.
Nov 20 '05 #5

P: n/a
Hi John,

It goes a little bit to far to figure this out the MSHTML is not the nicest
thing to do.

But I use it on a way like this, (although it is not a complete innerHtml
that I ever did try)
Charles, the one who knows the most of this in this newsgroup (but I have
not seen him a while) told me that the document2 was much faster and when I
tried, it was.
Dim iDocument As mshtml.IHTMLDocument2
Dim myText as string
Dim i As Integer
For i = 0 To iDocument.all.length - 1
Dim tagname As String = iDocument.all.item(i).tagname
If (tagname = "p") Then myText =

You can try it, it is not that big deal to try it yourself.

Give me a message if it did go or not, I am strugling also with some things


Nov 20 '05 #6

This discussion thread is closed

Replies have been disabled for this discussion.