Parent page: Service Functions – MSXMLDOM (QTP, TestComplete, VBScript)

Description

Iterate to index. Change value for existing comment.
Otherwise create new child nodes till index.

Implementation

Private Function p_SetXMLElementCommentByIndex(ByRef objXMLElement, ByVal intIndex, ByVal sValue)
 Dim objXMLDoc, objCommentNode
  Dim objColl, Iter, IndexIter
  Set objColl = objXMLElement.ChildNodes
  IndexIter = -1
  For Iter=0 To objColl.length-1
    If objColl.Item(Iter).NodeName = "#comment" Then
      IndexIter = IndexIter + 1
      If IndexIter = intIndex Then
        objColl.Item(Iter).NodeValue = sValue
        p_SetXMLElementCommentByIndex = True
        Exit Function
      End If
    End If
  Next
  Set objXMLDoc = objXMLElement.OwnerDocument
  IndexIter = IndexIter + 1
  For Iter=IndexIter to intIndex
    Set objCommentNode = objXMLDoc.CreateComment(sValue)
    objXMLElement.AppendChild(objCommentNode)
  Next 
  p_SetXMLElementCommentByIndex = True
End Function