ftp.tcs3.com/ftp.tcs3.com.tar/ftp.tcs3.com/DRIVERS/Audio/Office2010/InfoPath.en-us/InfLR.cab/FL_scriptVB_xml_120428_ENU____.3643236F_FC70_11D3_A536_0090278A1BB8

Extensible Markup Language | 2009-04-01 | 2KB | 49 lines

<?xml version="1.0" encoding="utf-8"?>
<CodeSnippet Format="1.0.0" xmlns="http://schemas.microsoft.com/VisualStudio/2005/CodeSnippet">
  <Header>
    <Title>
      <!-- _locID_text="title" _locComment="" -->VB XSLT Script Block</Title>
    <Author>Microsoft Corporation</Author>
    <Shortcut>scriptvb</Shortcut>
    <Description>
      <!-- _locID_text="description" _locComment="" -->XML snippet to create a VB script block in XSLT</Description>
    <SnippetTypes>
      <SnippetType>Expansion</SnippetType>
    </SnippetTypes>
  </Header>
  <Snippet>
    <Declarations>
      <Literal>
        <ID>user</ID>
        <ToolTip>
          <!-- _locID_text="tooltip1" _locComment="" -->Prefix for script functions usually declared on your root stylesheet element.</ToolTip>
        <Default>user</Default>
      </Literal>
      <Literal>
        <ID>function</ID>
        <ToolTip>
          <!-- _locID_text="tooltip2" _locComment="" -->Name of function.
        </ToolTip>
        <Default>name</Default>
      </Literal>
      <Literal Editable="false">
        <ID>endcdata</ID>
        <Default>]]></Default>
      </Literal>
    </Declarations>
    <Code Language="XML" Kind="http://www.w3.org/1999/XSL/Transform">
      <![CDATA[<ms:script implements-prefix="$user$" xmlns:ms="urn:schemas-microsoft-com:xslt" language="VB">
    <ms:using namespace="System.Xml.XPath"/>
    <![CDATA[
    function $function$(iterator as XPathNodeIterator) as string
      if (iterator.MoveNext()) then
        Dim nav as XPathNavigator = iterator.Current
        return nav.LocalName$end$
      else
        return ""
      end if
    end function
    $endcdata$
    </ms:script>]]></Code>
  </Snippet>
</CodeSnippet>