{"id":4693,"date":"2008-02-21T15:22:00","date_gmt":"2008-02-21T15:22:00","guid":{"rendered":"https:\/\/blogs.msdn.microsoft.com\/vbteam\/2008\/02\/21\/vb-xml-cookbook-recipe-1-xml-transformations-using-xml-literals-doug-rothaus\/"},"modified":"2024-07-05T14:33:11","modified_gmt":"2024-07-05T21:33:11","slug":"vb-xml-cookbook-recipe-1-xml-transformations-using-xml-literals-doug-rothaus","status":"publish","type":"post","link":"https:\/\/devblogs.microsoft.com\/vbteam\/vb-xml-cookbook-recipe-1-xml-transformations-using-xml-literals-doug-rothaus\/","title":{"rendered":"VB XML Cookbook, Recipe 1: XML Transformations using XML Literals (Doug Rothaus)"},"content":{"rendered":"

I was working on a blog entry about replacing XSLT transforms with Visual Basic XML Literals. As the entry progressed, I noticed that it was really, really long. So, Avner Aharoni and I talked things over and we decided to break it up into multiple entries and start a series, much like the LINQ Cookbook that was started a few months back.<\/font><\/p>\n

Introducing the VB XML Cookbook. We\u2019ll use these entries to show quick and easy solutions using XML Literals in Visual Basic. In many cases we\u2019ll reference XSLT and XPath where there\u2019s a direct (or very close) replacement of functionality. You\u2019ll find that consuming and transforming XML is quick and easy using XML Literals, XML Axis Properties, and LINQ to XML\u2014all of which are available starting with Visual Basic 2008.<\/font><\/p>\n

In this first entry, we\u2019ll show how you can perform simple XML transformations using XML Literals and LINQ. Each sample uses an embedded expression that returns a collection of XML Literals from a LINQ query or another source, such as a property or function that returns a collection of XML Literals. You will see how you can replace an entire XSLT transform with just a few lines of Visual Basic code.<\/font><\/p>\n

Let\u2019s look at our first example. Attached to this blog entry is an XML file that contains a portion of the Contacts from the AdventureWorks sample database for SQL Server in an XML document (AWContacts.xml). Each <\/font><Contact><\/span> element has an<\/font> <EmailAddress><\/span> sub-element. The following code creates a new XML document with just the e-mail addresses from the source document.<\/font><\/p>\n

Imports<\/span> <<\/span>xmlns<\/span>=<\/span>“<\/span>http:\/\/SampleSchema\/AWContacts<\/span>“<\/span>><\/span><\/span><\/p>\n

 <\/span><\/p>\n

Public<\/span> Class<\/span> XMLCookbook<\/span><\/p>\n

  <\/span>Private<\/span> Sub<\/span> Recipe1()<\/span><\/p>\n

  <\/span>  <\/span>Dim<\/span> xmlDoc = XDocument.Load(“AWContacts.xml”<\/span>)<\/span><\/p>\n

 <\/span><\/p>\n

  <\/span>  <\/span>Dim<\/span> emailDoc = <?<\/span>xml<\/span> version<\/span>=<\/span>“<\/span>1.0<\/span>“<\/span>?><\/span><\/span><\/p>\n

   <\/span>  <\/span>              <\/span><<\/span>EmailAddresses<\/span>><\/span><\/span><\/p>\n

   <\/span>  <\/span>                  <\/span><%=<\/span> xmlDoc.<<\/span>Contacts><\/span>.<<\/span>Contact><\/span>.<<\/span>EmailAddress><\/span> %><\/span><\/span><\/p>\n

  <\/span>  <\/span>               <\/span><\/<\/span>EmailAddresses<\/span>><\/span><\/span><\/p>\n

 <\/span><\/p>\n

  <\/span>  <\/span>emailDoc.Save(“EmailAddresses.xml”<\/span>)<\/span><\/p>\n

  <\/span>End Sub<\/span><\/span><\/p>\n

End Class<\/span><\/p>\n

 <\/span><\/p>\n

This would take considerably more effort using an XSLT transform. Here, you simply use Visual Basic to create a \u201ctemplate\u201d function, and use <\/font>XML Literals<\/font><\/a> to load and save the XML, as well as create the new XML document. The <\/font>XML Child Axis property<\/font><\/a> references the collection of <\/font><EmailAddress><\/span> sub-elements. In place of the <\/font><xsl:copy-of><\/span> element, you use an <\/font>embedded expression<\/font><\/a> to add the collection of elements to the new document. In the end, you\u2019ve transformed the document without XSLT or XPath. Let\u2019s take a look at what the XSLT (and Visual Basic Code) would look like for the same sample.<\/font><\/p>\n

Recipe1.xslt<\/font><\/span><\/strong><\/p>\n

<?<\/span>xml<\/span> <\/span>version<\/span>=<\/span>‘1.0<\/span>‘?><\/span><\/span><\/p>\n

<<\/span>xsl:stylesheet<\/span> <\/span><\/p>\n

  <\/span><\/span>version<\/span>=<\/span>“1.0<\/span>“<\/span><\/p>\n

  <\/span><\/span>xmlns:xsl<\/span>=<\/span>“http:\/\/www.w3.org\/1999\/XSL\/Transform<\/span>“<\/span><\/p>\n

  <\/span><\/span>xmlns:aw<\/span>=<\/span>“http:\/\/SampleSchema\/AWContacts<\/span>“<\/span><\/p>\n

  <\/span><\/span>xmlns:aci<\/span>=<\/span>“http:\/\/schemas.microsoft.com\/sqlserver\/2004\/07\/adventure-works\/ContactInfo<\/span>“<\/span><\/p>\n

  <\/span><\/span>xmlns:crm<\/span>=<\/span>“http:\/\/schemas.microsoft.com\/sqlserver\/2004\/07\/adventure-works\/ContactRecord<\/span>“<\/span><\/p>\n

  <\/span><\/span>xmlns:act<\/span>=<\/span>“http:\/\/schemas.microsoft.com\/sqlserver\/2004\/07\/adventure-works\/ContactTypes<\/span>“><\/span><\/span><\/p>\n

  <\/span><<\/span>xsl:output<\/span> <\/span>method<\/span>=<\/span>“xml<\/span>“ <\/span>indent<\/span>=<\/span>“yes<\/span>“\/><\/span><\/span><\/p>\n

  <\/span><<\/span>xsl:template<\/span> <\/span>match<\/span>=<\/span>“aw:Contacts<\/span>“><\/span><\/span><\/p>\n

    <\/span><<\/span>EmailAddresses<\/span>><\/span><\/p>\n

      <\/span><<\/span>xsl:copy-of<\/span> <\/span>select<\/span>=<\/span>“aw:Contact\/aw:EmailAddress<\/span>“\/><\/span><\/span><\/p>\n

    <\/span><\/<\/span>EmailAddresses<\/span>><\/span><\/p>\n

  <\/span><\/<\/span>xsl:template<\/span>><\/span><\/p>\n

<\/<\/span>xsl:stylesheet<\/span>><\/span><\/p>\n

Recipe1_XSLT Visual Basic Code<\/font><\/span><\/strong><\/p>\n

 <\/span><\/p>\n

Public<\/span> Class<\/span> XMLCookbook<\/span><\/p>\n

    <\/span>Sub<\/span> Recipe1_XSLT()<\/span><\/p>\n

        <\/span>Dim<\/span> xslTransform As<\/span> New<\/span> System.Xml.Xsl.XslCompiledTransform<\/span><\/p>\n

        <\/span>xslTransform.Load(“recipe1.xslt”<\/span>)<\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>Dim<\/span> reader = Xml.XmlReader.Create(“AWContacts.xml”<\/span>)<\/span><\/p>\n

        <\/span>Dim<\/span> sw As<\/span> New<\/span> System.IO.StreamWriter(“Recipe1.xml”<\/span>)<\/span><\/p>\n

        <\/span>Dim<\/span> writer = Xml.XmlWriter.Create(sw)<\/span><\/p>\n

 <\/span><\/p>\n

        <\/span>xslTransform.Transform(reader, writer)<\/span><\/p>\n

        <\/span>sw.Close()<\/span><\/p>\n

    <\/span>End<\/span> Sub<\/span><\/span><\/p>\n

End Class<\/span><\/p>\n

 <\/font><\/p>\n

The XSLT version turns out to be about twice the amount of code and, to be honest, took me much longer to create than the VB version. Notice that the XML namespace support in Visual Basic is simpler than XSLT (1.0) as I can define a default XML namespace for XML elements that do not have an XML namespace identified.<\/font><\/p>\n

Another important thing to mention is that part of the productivity gain comes from the Intellisense support provided with XML Literals in Visual Basic. By adding the schema files that are also attached to this blog entry and then importing the namespaces for the schemas, I get word completion lists for XML child and descendant elements as well as attributes. For more information, see <\/font>XML Intellisense in Visual Basic<\/font><\/a>.<\/font><\/p>\n

Using LINQ<\/font><\/span><\/strong><\/p>\n

To go further, you can add query functionality to your transform using LINQ. In XSLT, you might use the <xsl:for-each> element to loop through results and the <xsl:if> element to test for a particular condition. Using LINQ, you can accomplish this rather easily. <\/font><\/p>\n

For example, in our source document, each <\/font><Contact><\/span> element has an <\/font><EmailPromotion><\/span> sub-element that identifies whether the contact would like to receive promotion e-mails from the company. The following code creates the same document, but only containing e-mail addresses of contacts that want to receive e-mail promotions.<\/font><\/p>\n

  <\/span>Dim<\/span> promoList = <?<\/span>xml<\/span> version<\/span>=<\/span>“<\/span>1.0<\/span>“<\/span>?><\/span><\/span><\/p>\n

                  <\/span><<\/span>EmailPromotionList<\/span>><\/span><\/p>\n

                      <\/span><%=<\/span> From<\/span> contact In<\/span> xmlDoc.<<\/span>Contacts><\/span>.<<\/span>Contact><\/span> _<\/span><\/p>\n

                          <\/span>Where<\/span> contact.<<\/span>EmailPromotion><\/span>.Value > 0 _<\/span><\/p>\n

                          <\/span>Select<\/span> contact.<<\/span>EmailAddress><\/span> %><\/span><\/span><\/p>\n

                  <\/span><\/<\/span>EmailPromotionList<\/span>><\/span><\/span><\/p>\n

Comparable XSLT code would look like the following.<\/font><\/p>\n

  <\/span><<\/span>xsl:template<\/span> <\/span>match<\/span>=<\/span>“aw:Contacts<\/span>“><\/span><\/span><\/p>\n

    <\/span><<\/span>EmailAddresses<\/span>><\/span><\/p>\n

      <\/span><<\/span>xsl:for-each<\/span> <\/span>select<\/span>=<\/span>“aw:Contact<\/span>“><\/span><\/span><\/p>\n

        <\/span><<\/span>xsl:if<\/span> <\/span>test<\/span>=<\/span>“aw:EmailPromotion <\/span>&gt;<\/span> 0<\/span>“><\/span><\/span><\/p>\n

          <\/span><<\/span>xsl:copy-of<\/span> <\/span>select<\/span>=<\/span>“aw:EmailAddress<\/span>“\/><\/span><\/span><\/p>\n

        <\/span><\/<\/span>xsl:if<\/span>><\/span><\/p>\n

      <\/span><\/<\/span>xsl:for-each<\/span>><\/span><\/p>\n

    <\/span><\/<\/span>EmailAddresses<\/span>><\/span><\/p>\n

  <\/span><\/<\/span>xsl:template<\/span>><\/span><\/p>\n

For the last example, we\u2019ll go one step further and transform the contents of the source XML document to a new format. You can accomplish this by having a LINQ query return a collection of XML Literals. You can use embedded expressions to copy values from the source document into elements and attributes of the new XML Literal. For this example, the transformed document will rename the <\/font><EmailAddress> <\/span>element to <\/font><Email><\/span>, and include the value of the <\/font><EmailPromotion><\/span> element as an attribute of the transformed <\/font><Email><\/span> element.<\/font><\/p>\n

  <\/span>Dim<\/span> transformList = <?<\/span>xml<\/span> version<\/span>=<\/span>“<\/span>1.0<\/span>“<\/span>?><\/span><\/span><\/p>\n

                      <\/span><<\/span>EmailPromotionList<\/span>><\/span><\/span><\/p>\n

                          <\/span><%=<\/span> From<\/span> contact In<\/span> xmlDoc.<<\/span>Contacts><\/span>.<<\/span>Contact><\/span> _<\/span><\/p>\n

                              <\/span>Where<\/span> contact.<<\/span>EmailPromotion><\/span>.Value > 0 _<\/span><\/p>\n

                              <\/span>Select<\/span> <<\/span>Email<\/span> <\/span><\/p>\n

                                       <\/span>promotion<\/span>=<\/span><%=<\/span> contact.<<\/span>EmailPromotion><\/span>.Value %><\/span>><\/span><\/span><\/p>\n

                                       <\/span><%=<\/span> contact.<<\/span>EmailAddress><\/span>.Value %><\/span><\/span><\/p>\n

                                     <\/span><\/<\/span>Email<\/span>><\/span> %><\/span><\/span><\/p>\n

                      <\/span><\/<\/span>EmailPromotionList<\/span>><\/span><\/span><\/p>\n

Comparable XSLT code would look like the following.<\/font><\/p>\n

  <\/span><<\/span>xsl:template<\/span> <\/span>match<\/span>=<\/span>“aw:Contacts<\/span>“><\/span><\/span><\/p>\n

    <\/span><<\/span>EmailPromotionList<\/span>><\/span><\/p>\n

      <\/span><<\/span>xsl:for-each<\/span> <\/span>select<\/span>=<\/span>“aw:Contact<\/span>“><\/span><\/span><\/p>\n

        <\/span><<\/span>xsl:if<\/span> <\/span>test<\/span>=<\/span>“aw:EmailPromotion <\/span>&gt;<\/span> 0<\/span>“><\/span><\/span><\/p>\n

          <\/span><<\/span>Email<\/span>><\/span><\/p>\n

            <\/span><<\/span>xsl:attribute<\/span> <\/span>name<\/span>=<\/span>“promotion<\/span>“><\/span><\/span><\/p>\n

              <\/span><<\/span>xsl:value-of<\/span> <\/span>select<\/span>=<\/span>“aw:EmailPromotion<\/span>“\/><\/span><\/span><\/p>\n

            <\/span><\/<\/span>xsl:attribute<\/span>><\/span><\/p>\n

            <\/span><<\/span>xsl:value-of<\/span> <\/span>select<\/span>=<\/span>“aw:EmailAddress<\/span>“\/><\/span><\/span><\/p>\n

          <\/span><\/<\/span>Email<\/span>><\/span><\/p>\n

        <\/span><\/<\/span>xsl:if<\/span>><\/span><\/p>\n

      <\/span><\/<\/span>xsl:for-each<\/span>><\/span><\/p>\n

    <\/span><\/<\/span>EmailPromotionList<\/span>><\/span><\/p>\n

  <\/span><\/<\/span>xsl:template<\/span>><\/span><\/p>\n

To sum things up, we\u2019ve seen how Visual Basic, XML Literals and LINQ can be used in place of the <xsl:copy-of>, <xsl:for-each>, <xsl:template>, <xsl:if>, <xsl:value-of>, and <xsl:attribute> elements as well as using XML Axis Properties in place of XPath to create a powerful, yet simple tool for XML transformations.<\/font><\/p>\n

Stay tuned for more…<\/font><\/p>\n

AdventureWorksContacts.zip<\/a><\/p>\n","protected":false},"excerpt":{"rendered":"

I was working on a blog entry about replacing XSLT transforms with Visual Basic XML Literals. As the entry progressed, I noticed that it was really, really long. So, Avner Aharoni and I talked things over and we decided to break it up into multiple entries and start a series, much like the LINQ Cookbook […]<\/p>\n","protected":false},"author":260,"featured_media":8818,"comment_status":"open","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"_acf_changed":false,"footnotes":""},"categories":[192,195],"tags":[59,94,117,163,166,185],"class_list":["post-4693","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-featured","category-visual-basic","tag-doug-rothaus","tag-linqvb9","tag-orcas","tag-vb-xml-cookbook","tag-vb2008","tag-xml"],"acf":[],"blog_post_summary":"

I was working on a blog entry about replacing XSLT transforms with Visual Basic XML Literals. As the entry progressed, I noticed that it was really, really long. So, Avner Aharoni and I talked things over and we decided to break it up into multiple entries and start a series, much like the LINQ Cookbook […]<\/p>\n","_links":{"self":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/4693","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/users\/260"}],"replies":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/comments?post=4693"}],"version-history":[{"count":0,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/posts\/4693\/revisions"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media\/8818"}],"wp:attachment":[{"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/media?parent=4693"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/categories?post=4693"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/devblogs.microsoft.com\/vbteam\/wp-json\/wp\/v2\/tags?post=4693"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}