Format XML string in VBScript -


Hey a quick question at the end of a long day.

I have a string of unformatted XML (no whitespacing) and I want to create a VBScript function that accepts it as its parameter and create XML format with string tabs and new-rows

I have taken a good look around the net and have come close with this

Because 'MSXML2.DomDocument' does not support writing for a string from the object what I can tell Did not work.

Ive tried to use different properties of the object (tried to 'XML', 'no benefit text', and 'xml.text') all.

Simply put, I need a string of dirty XML, and a string of formatted XML outdoors

All credits go to Robert McMurray; I recreated my script in the function: 

  clear the options' ******************************************************************** **************************************************************************************************** **** ********************************************************************************************** ***************** Function prettyXml (ByVal sDirty) '**************** ********* ********* Keep the white space between tags (XSL is required for conversion.) '***************************************************** ************** sDirty = Change (sDirty, "> <" "& gt;" & amp; vbCrLf & amp; "& Lt;") '****************************************************************************************** * Create an XSL stylesheet for change. '******************************** objXSL: set objXSL = WScript.CreateObject ("Msxml2.DOMDocument") objXSL.loadXML "& lt; XSL: Stylesheet version =" 1.0 "" xmlns: XSL = "" http://www.w3.org/1999/XSL/Transform "" & gt; " & Amp; _ "& Lt; xsl: output method =" "xml" "indent =" "yes" "/>" & amp; _ "& Lt; xsl: template match =" "/" & gt; " & Amp; _ "& Lt; xsl: copy-of select =" "." "/ & Gt; & Amp; _ "& Lt; / xsl: template & gt;" & Amp; _ "& Lt; / xsl: stylesheet & gt;" '************************************************************************************************** ************************ XML Conversion '********* ********************* objXML: set objXML = WScript.CreateObject ("Msxml2.DOMDocument") objXML.loadXml SDirty objXML.transformNode objXSL prettyXml = objXML.xml termination function dull sTest: sTest = "

Product: 

  cscript robmcm-2.vbs & lt; A & gt; & Lt; P & gt; & Lt; C / & gt; & Lt; / P & gt; & Lt; / A & gt; ---------- & lt; A & gt; & Lt; P & gt; & Lt; C / & gt; & Lt; / P & gt; & Lt; / A & gt; On the other side:  
 
 You should not use the above version unless you have studied.

-

Comments

Post a Comment

Popular posts from this blog

Member with no value in F# -

After I am trying to convert F # to the following C # code: [StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi)] Private class DOCINFOA {[MarshalAs (UnmanagedType.LPStr)] public string nomeDocumento; [Marshall (UnmanagedType.LPStr)] Public string arquivoSaida; [Marshall (UnmanagedType.LPStr)] Public String Tipodo; } I am doing the following: Named place printer module RawPrinterHelper = [& LT; StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi) & gt;] Type DOCINFOA = [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member this.nomeDocumento [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member this.arquivoSaida [& LT; MarshalAs (UnmanagedType.LPStr) & gt;] Member This Tipoda [/ code> But I get: One type of definition is necessary for one or more members . Can I vacate these members? you val code> member : [& lt; StructLayout (LayoutKind.Sequential, charset = CharSet.Ansi) & gt;] Type DOCINFOA = [...
Read more

java - Joda Time Interval Not returning what I expect -

मेरे पास निम्न प्रोग्राम है import java.util। *; Import java.text। *; आयात करें org.joda.time। *; सार्वजनिक श्रेणी के स्कोप कंट्रोल {सार्वजनिक स्थिर अंतराल मिलनसार () {दिनांक समय currDate = नया दिनांक समय (2008, 4, 4, 15, 30, 0, 0); दिनांक समय epochDate = नया दिनांकटाइम (2000, 1, 1, 12, 0, 0, 0); अंतराल अंतराल = नया अंतराल (युरोप डेट, करोडेट); वापसी अंतराल; } सार्वजनिक स्थिर शून्य मुख्य (स्ट्रिंग [] आर्ग्स) {डबल दिनबात = मिलते समय ()। ToDurationMillis () / 1000/60/60/24; StdOut.println (daysBtween); }} मुझे आउटपुट मिल रहा है: 3016.0 लेकिन जो मैं देख रहा हूं वह है: 3016.1458333333 मैं क्या कर रहा हूँ ? toDurationMillis एक लंबा लौटा देता है, और प्रत्येक प्रभाग को int के रूप में घोषित किया जाता है। जावा इस प्रकार इनट्स को लॉन्ग में परिवर्तित कर देगा और डिवीजन को लंबे समय तक लौटाना होगा। परिणाम को अंत में दोहरे रूप में परिवर्तित करना। डबल्स का उपयोग करके अभिव्यक्ति करने के लिए जावा को बताने के लिए, अभिव्यक्ति के किसी भी घटक को दोहरे रूप में घोषित करें। उदाहरण के लिए: ...
Read more

c# - Showing a SelectedItem's Property -

So I have enabled a rightclick option for my DataGrid. I want to display the only chosen property but it is not behaving like what I would like it to display my name and additional. Public category Paymentinfo {public int PaymentNo {get; Set; } Public string date {get; Set; } Public Double Pay {get; Set; } Public Double Principle {get; Set; } Public Double Interest {get; Set; } Public Double Balance {Received; Set; }} Private Zero MenuItem_OnClick (Object Sender, RoutedEventArgs e) {MessageBox.Show (AmortGrid.SelectedItem.ToString ()); } I'm trying to apply it without using a View Module! If I place a breakpoint where the messagebox and the recipient place it on selected ITEM, then this property will display the payment. A date-payment-principle-interest-balance is the only value that needs payment. Was hoping that it would be something like this MessageBox.Show (AmortGrid.SelectedItem.PaymentNo.ToString ()); When you call ToString () So you get the class typ...
Read more