如何使用VBScripting創建xml文件時添加新行？

Question

下面是一個函數，我在使用VBScripting的自動化中使用，同時在xml文件中獲取結果。結果現在顯示在一行中。請讓我知道如何在每個「結果」節點後面添加新行。我也無法使用「替換（string，vbCrLf，」「）」「。它給出錯誤「調用函數時不能使用括號」。

Function WriteTestSet(TestSetPath, sheetname, varr) 
set wb = xl.workbooks.open(TestSetPath) 
set ws = wb.worksheets(sheetname) 

rc = ubound(varr, 1) + 1 
cc = ubound(varr, 2) + 1 

Set xmlDoc = CreateObject("Microsoft.XMLDOM") 
Set objRoot = xmlDoc.createElement("TestResults") 
xmlDoc.appendChild objRoot 

for m= 0 to rc-1 
    for n= 0 to 0 
     Set objTest = xmlDoc.createElement("TestCaseName") 
     objTest.Text = varr(m,n) 
     objRoot.appendChild objTest 

     Set objRun = xmlDoc.createElement("Run") 
     objRun.Text = varr(m,n+1) 
     objRoot.appendChild objRun 

     Set objResult = xmlDoc.createElement("Results") 
     objResult.Text = varr(m,n+2) 
     objRoot.appendChild objResult 
    next 
next 
Set objIntro = xmlDoc.createProcessingInstruction ("xml","version='1.0'") 
xmlDoc.insertBefore objIntro,xmlDoc.childNodes(3) 
ts = replace(replace(now, "/", "_"), ":", "_") 
xmlDoc.Save "E:\TestResults\TestSet"& ts & ".xml" 
End Function 

Answer 1

您可以使用XSL style sheet也將XML轉換爲適當間隔縮進格式。