마지막 노드 아래에 새 노드를 만드는 방법은 무엇입니까?

Question

 <TestSuite Desc="ADI [UK]"> 
    <TestCase TcName=" Testing" > 
     <Step ID="Step 1" Desc=" "> 
     <StepDetails Status="4" StepType="Step">Step 1 Info </StepDetails> 
     <StepHeader StepType="STEPHEADER" Status="2"> 
      <StepDetails StepType="STEPHEADER">Step Header 1 Info </StepDetails> 
      <StepDetails Status="3" StepType="STEPHEADER">Step Header 1 Warning </StepDetails> 
      <StepHeader> 
      <StepDetails Status="4"StepType="STEPHEADER">Step Header 2 Info </StepDetails> 
      </StepHeader> 
     </StepHeader> 
     </Step> 
    </TestCase> 
    </TestSuite> 

객체로서 마지막 "StepHeader"노드를 얻을 수있는 함수를 작성하고 내가 함수를 호출 할 때 마지막 "stepHeader"에서 만든 새로운 "StepHeader"노드는이

<TestSuite Desc="ADI [UK]"> 
    <TestCase TcName=" Testing" > 
     <Step ID="Step 1" Desc=" "> 
     <StepDetails Status="4" StepType="Step">Step 1 Info </StepDetails> 
     <StepHeader StepType="STEPHEADER" Status="2"> 
      <StepDetails StepType="STEPHEADER">Step Header 1 Info </StepDetails> 
      <StepDetails Status="3" StepType="STEPHEADER">Step Header 1 Warning </StepDetails> 
      <StepHeader> 
      <StepDetails Status="4"StepType="STEPHEADER">Step Header 2 Info </StepDetails> 
       <StepHeader> 
       <StepDetails Status="4"StepType="STEPHEADER">Step Header 2 Info </StepDetails> 
       </StepHeader> 
      </StepHeader> 
     </StepHeader> 
     </Step> 
    </TestCase> 
    </TestSuite> 

Answer 1

처럼하는 방법

XMLDOM 클래스는 필요한 모든 것을 할 수 있습니다. 먼저 XML 문서를로드하십시오.

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
xmlDoc.Load "c:\test.xml" 

그런 다음 삽입하려는 노드의 부모를 잡아 selectSingleNode()를 사용합니다.

Set objRoot = xmlDoc.documentElement.selectSingleNode("/TestSuite/TestCase/Step/StepHeader/StepHeader") 

다음으로 만들고 위에있는 노드 아래 StepHeader 노드를 추가합니다.

Set objNode = xmlDoc.createElement("StepHeader") 
objRoot.appendChild objNode 

그리고 (텍스트)을 StepDetails 하위 노드를 추가하고 StepHeader 노드를 추가합니다.

Set objSub = xmlDoc.createElement("StepDetails") 
objSub.Text = "Step Header 2 Info" 
objNode.appendChild objSub 

마지막으로 새 XML 문서를 저장하십시오.

xmlDoc.Save "c:\test.xml" 

원래 XML 문서에는 약간의 오류가 있습니다.

<StepDetails Status="4"StepType=... ' Need a space 
<StepDetails Status="4" StepType=... ' So that it looks like this