Set xmlSource = CreateObject("MSXML2.DOMDocument") Set xmlXForm = CreateObject("MSXML2.DOMDocument") Set args = WScript.Arguments xmlFile = args.Item(0) xslFile = args.Item(1) outputFile = args.Item(2) Set fileSystemObject = CreateObject("Scripting.FileSystemObject") fileSystemObject.CreateTextFile(outputfile) Set fileObject = fileSystemObject.GetFile(outputfile) Set outFileStream = fileObject.OpenAsTextStream(2,-1) outFileStream.Write(output) outFileStream.Close
Set fileSystemObject = CreateObject("Scripting.FileSystemObject") Set utf8Enc = new ActiveXObject("Utf8Lib.Utf8Enc"); fileSystemObject.CreateTextFile(outputfile) Set fileObject = fileSystemObject.GetFile(outputfile) Set outFileStream = fileObject.OpenAsTextStream(2,-1) outFileStream.Write(utf8Enc.UnicodeT(output)) outFileStream.Close
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)