VB6 MSXML2 DOMDocument .xml Property appends NewLine character

1
votes

I have a legacy VB 6 application to maintain which uses msxml4.dll.

It uses the .loadXML Method of MSXML2.DOMDocument to create from xml strings and then uses the .xml Property to output strings of xml:

Dim doc As MSXML2.DOMDocument
Set doc = CreateObject("MSXML2.DOMDocument.4.0")
Call doc.loadXML("<doc/>")

' ... manipulation of doc ...

Dim xml As String
xml = doc.xml

I have discovered an issue with the .xml Property. When using the above code the string xml has a NewLine at the end:

enter image description here

How can I stop this from happening?

If it can't be stopped (i.e. if it's a bug in MSXML or by design) then how can I remove it in VB 6? Trim(xml) doesn't work

EDIT I have updated the question as it it the .xml Property not the .loadXML Method which appears to be at fault. If I select the doc as an Element:

Dim elm As MSXML2.IXMLDOMElement
Set elm = doc.selectSingleNode("doc")
xml = elm.xml

then the .xml Property acts as expected with no added NewLine character, so it appears it is specific to the DOMDocument.xml Property.

EDIT 2: Following SpectralGhost's answer, here is what I ended up using:

If Right(xml, Len(vbNewLine)) = vbNewLine Then
    xml = Left(xml, Len(xml) - Len(vbNewLine))
End If

I use vbNewLine to avoid platform specific issues.

2
xmlvb6msxml

2 Answers

2
votes

This looks like it worked.

IF RIGHT(xml,2)=vbCrLf THEN
   xml=LEFT(xml,LEN(xml)-2)
END IF
0
votes

XML itself ignores/collapses whitespace so it isn't a problem for the parser. If you really want to get rid of the trailing CRLF, you could try setting doc.preserveWhiteSpace = true.