VBScript에 노드를 추가하려고 시도했습니다.

Question

자식 노드 (HolderAccount)의 이름을 HolderAccount1 및 HolderAccount2로 바꿉니다. 일부 HolderAccounts에는 하나 또는 두 개의 HolderAccount 자식 노드가있을 수 있습니다. HolderAccount에 HolderAccount가 하나만있는 새 HolderAccount를 만들고 싶습니다.

부모 노드 = HolderAccounts
자식 노드 = HolderAccount

입력 샘플 :

<HolderAccounts> 
    <HolderAccount>test</HolderAccount>   
</HolderAccounts> 

<HolderAccounts> 
    <HolderAccount>test</HolderAccount> 
    <HolderAccount>test</HolderAccount> 
</HolderAccounts> 

내 출력 :

<HolderAccounts> 
    <HolderAccount1>test</HolderAccount1> 
    <HolderAccount2></HolderAccount2> 
</HolderAccounts> 

<HolderAccounts> 
    <HolderAccount1>test</HolderAccount1> 
    <HolderAccount2>test</HolderAccount2>      
</HolderAccounts> 

: 내가 달성하기 위해 노력하고 무엇

<HolderAccounts> 
    <HolderAccount1>test</HolderAccount1> 
    <HolderAccount2/> 
</HolderAccounts> 

<HolderAccounts> 
    <HolderAccount1>test</HolderAccount1> 
    <HolderAccount2>test</HolderAccount2> 
    <HolderAccount2/>  
</HolderAccounts> 

Set xml = CreateObject("Microsoft.XMLDOM") 
xml.async = False 
count_var = 1 

total_accounts = 0 
total_modified_accounts = 0 

'Get data from directory 
If xml.Load("c:\XML_DATA2.xml") Then 
    'Find and give me a list of all HolderAccounts 
    For Each HolderAccounts In xml.SelectNodes("//HolderAccounts") 
     'Find and give me a list of all HolderAccount  
     For Each HolderAccount In HolderAccounts.SelectNodes("./HolderAccount") 
      'Check to see if you are pointing to 2nd HolderAccount in the HolderAccounts 
      If count_var > 1 Then 
       'Rename the 2nd HolderAccount in HolderAccounts 
       Set accountEnum = xml.createNode(1, "HolderAccount" & count_var, "") 

       'Give me the current nodes child nodes 
       For Each child In HolderAccount.childNodes 
        'Attach the child nodes to the account 
        accountEnum.appendChild(child.cloneNode(True)) 
       Next 
       HolderAccounts.replaceChild accountEnum, HolderAccount 

       total_modified_accounts = total_modified_accounts + 1 
       xml.Save("c:\XML_DATA2.xml") 
      Else '1st HolderAccount 
       'Rename the 1st account 
       Set accountEnum = xml.createNode(1, "HolderAccount" & count_var, "") 

       For Each child In HolderAccount.childNodes 
        accountEnum.appendChild(child.cloneNode(TRUE)) 
       Next 
       HolderAccounts.replaceChild accountEnum, HolderAccount 

       'This is returning <HolderAccount2/> for nodes within <HolderAccounts>, 
       'I only want to create a new node where exist one node within <HolderAccounts> 
       Set accountEnum2 = xml.createElement("HolderAccount2") 
       HolderAccounts.appendChild(accountEnum2) 

       xml.Save("c:\XML_DATA2.xml") 
      End If 
      count_var = count_var + 1 
     Next   
     count_var = 1 
     total_accounts = 0  
    Next 
End If 

Set node = Nothing 
Set xml = Nothing 

Answer 1

논리에 더 맞게 코드를 단순화했습니다. 첫 번째 노드도 열거하도록 사양을 변경 한 것 같아 If 문을 완전히 제거 할 수 있습니다. count_var은 언제나 각 HolderAccounts 컨테이너마다 하나씩 시작되므로 항상 Else 블록이 호출되었습니다.

대신 노드 아래에 하나의 계정 만있는 경우를 처리하려고합니다. 가장 안쪽의 루프가 그것을 복사 할 것이지만 새로운 빈 비어있는 HolderAccount 노드를 추가해야합니다.

입력

<FabeDole> 
    <HolderAccounts> 
     <HolderAccount>test</HolderAccount> 
    </HolderAccounts> 
    <HolderAccounts> 
     <HolderAccount>test</HolderAccount> 
     <HolderAccount>test</HolderAccount> 
    </HolderAccounts> 
</FabeDole> 

출력

<FabeDole> 
    <HolderAccounts> 
     <HolderAccount1>test</HolderAccount1> 
     <HolderAccount2/> 
    </HolderAccounts> 
    <HolderAccounts> 
     <HolderAccount1>test</HolderAccount1> 
     <HolderAccount2>test</HolderAccount2> 
    </HolderAccounts> 
</FabeDole> 

코드

Set xml = CreateObject("Microsoft.XMLDOM") 
xml.async = False 
count_var = 1 

If xml.Load("C:\XML_DATA2.xml") Then 
    For Each HolderAccounts In xml.SelectNodes("//HolderAccounts") 
     Set HolderAccountCollection = HolderAccounts.SelectNodes("./HolderAccount") 

     For Each HolderAccount In HolderAccountCollection 

      Set accountEnum = xml.createNode(1, "HolderAccount" & count_var, "") 
      For Each child In HolderAccount.childNodes 
       accountEnum.appendChild(child.cloneNode(True)) 
      Next 
      HolderAccounts.replaceChild accountEnum, HolderAccount 

      count_var = count_var + 1 
     Next 

     If HolderAccountCollection.Length = 1 Then HolderAccounts.appendChild(xml.createNode(1,"HolderAccount" & count_var,"")) 
     count_var = 1 
    Next 
    xml.Save("C:\XML_DATA2.xml") 
End If