2017-04-04 23 views
0

我正在使用Pervasive 9.2,並且想以某種方式將vbscript轉換爲普及型RIFL語言。我想在執行f(x)組件以運行代碼的Process期間執行代碼。就xml數據的路徑而言,我將使用一個宏定義源數據的位置,另一個用於保存該文件。將vbscript轉換爲快速集成流程語言

這裏是下面的VBScript代碼:這裏

http://docs.pervasive.com/products/integration/di/rifl/wwhelp/wwhimpl/common/html/wwhelp.htm#href=ParseXMLFile_Function.html&single=true



Set xml = CreateObject("Microsoft.XMLDOM") 

xml.async = False 
count_var = 1 

If xml.Load("c:\folder1\test.xml") Then    
    For Each accounts In xml.SelectNodes("//Accounts")    
     For Each account In Accounts.SelectNodes("./Account")  
      If count_var > 1 Then   
       Set accountEnum = xml.createNode(1, "Account" & count_var, "")          
       For Each child In Account.childNodes             
        accountEnum.appendChild(child.cloneNode(TRUE))      
       Next 
       Accounts.replaceChild accountEnum, Account   

       xml.save("c:\folder1\test.xml") 

      else      
       Set accountEnum = xml.createNode(1, "Account" & count_var, "") 

       For Each child In Account.childNodes 
        accountEnum.appendChild(child.cloneNode(TRUE)) 
       Next  
       Accounts.replaceChild accountEnum, Account   

       xml.save("c:\folder1\test.xml")   

       End If 
       count_var = count_var + 1 

     Next   
     count_var = 1 
    Next 
End If 

Set node = Nothing 
Set xml = Nothing 

回答