ÇÔ¸Õ¡ÒÃãªé ASP.NET ËÃ×Í Visual Basic .NET ¡ÒÃá»Å§ XML ä»à»ç¹ÃٻẺ¢éͤÇÒÁ Rich ÊÓËÃѺ Microsoft Word 2002

ãªé¤Óá¹Ð¹Ó·ÕÅТÑ鹵͹¹Õéà¾×èÍÊÃéÒ§ÃٻẺ¢éͤÇÒÁ Rich (RTF) ¨Ò¡ Extensible Markup ÀÒÉÒ (XML) â´Âãªé Visual Basic .NET

ÃٻẺ¢éͤÇÒÁ rich à»ç¹ÃٻẺ·Õè¢Öé¹ÍÂÙè¡Ñº¢éͤÇÒÁ·Õè encodes ¢éͤÇÒÁ·Õè¨Ñ´ÃٻẺ à¤éÒâ¤Ã§àÍ¡ÊÒà áÅСÃÒ¿Ô¡ â´Â·ÑèÇ仫Ö觶١ãªé¡Ñº Microsoft Word à¹×èͧ¨Ò¡ RTF ¨Ð¢Öé¹ÍÂÙè¡Ñº¢éͤÇÒÁ ´Ñ§¡ÅèÒÇÊÒÁÒö¶Ù¡ÊÃéÒ§ä´é§èÒ¢Öé¹ ´éÇÂÃËÑÊ ¶éҤسÁÕ¢éÍÁÙÅ XML ·Õè¤Ø³µéͧ¡ÒÃáÊ´§ã¹ Word à»ç¹àÍ¡ÊÒûÃÐàÀ·¨´ËÁÒÂàÇÕ¹ËÃ×Íá¤çµµÒÅçÍ¡/ÃÒ¡Òà áÅéÇ transforming ¢éÍÁÙÅ XML ¢Í§¤Ø³à¢éÒä»ã¹ÊµÃÕÁ RTF ÍÒ¨ÁÕ¡ÒÃá¡é䢻ѭËÒ·ÕèàËÁÒÐÊÓËÃѺ¤Ø³ áÅÐ ã¹ fact ¶éҤس¡ÓÅѧ¾Ñ²¹Òâ«Å٪ѹ·Õè¤Ø³ÊÃéÒ§àÍ¡ÊÒú¹àÇçºà«ÔÃì¿àÇÍÃì ¨Ò¡¹Ñé¹ ÊÃéÒ§àÍ¡ÊÒÃàËÅèÒ¹Ñé¹â´Âãªé¢éͤÇÒÁâ´ÂãªéÃٻẺ àªè¹ HTML ËÃ×Í RTF à¡Ô¹·Õèµéͧãªé½Ñè§à«ÔÃì¿àÇÍÃì Automation ¢Í§ Word

º·¤ÇÒÁ¹ÕéáÊ´§µÑÇÍÂèÒ§ÃËÑÊ ¡Ñº¡ÒÃá¹Ð¹Ó·ÕÅТÑ鹵͹ ¡ÒÃá»Å§ XML à»ç¹ RTF ÊÓËÃѺ¡ÒÃáÊ´§¼Åã¹ Word â´ÂãªéËÅÒ approaches:

• ºÑ¹·Ö¡áºº RTF ŧã¹á¿éÁ áÅÐà»Ô´ã¹ Word
• ¶èÒÂâ͹ RTF Word â´Âãªé Windows ¤ÅÔ»ºÍÃì´
• ʵÃÕÁ RTF ãËé Word âÎʵìã¹ Microsoft Internet Explorer ¨Ò¡á;ÅÔपѹàÇçº ASP.NET ·Õè

¢éÍÁÙŨÓà¾ÒÐà¡ÕèÂǡѺ¡ÒèѴÃٻẺ Rich Text

¢éÍÁÙŨÓà¾ÒÐà¡ÕèÂǡѺ¡ÒèѴÃٻẺ¢éͤÇÒÁ Rich (RTF) ¤×Í ¢éÍÁÙŨÓà¾ÒÐÊÒ¸ÒóÐ㹡ÒÃÊÃéÒ§á¿éÁ¢éͤÇÒÁà¢éҡѹä´é¡Ñº RTF ¤Ø³ÊÒÁÒöãªéàÍ¡ÊÒûÃСͺÊÓËÃѺ¢éÍÁÙŨÓà¾ÒÐà¡ÕèÂǡѺàÇçºä«µìµèÍ仹Õé¢Í§ Microsoft ÊÓËÃѺ¹Ñ¡¾Ñ²¹Òà¤Ã×Í¢èÒ (MSDN) à»ç¹·ÃѾÂҡ÷ÕèªèÇÂãËé¤Ø³ÊÃéÒ§á¿éÁ¢Í§¤Ø³àͧ RTF ÍÂèÒ§äáçµÒÁ ¢éÍÁÙŨÓà¾ÒÐà¡ÕèÂǡѺ¡Ò÷ӧҹ·ÕèãËéäÇé "à»ç¹-¤×Í", áÅÐäÁèÁÕ¡ÒÃʹѺʹع¤×Íâ´Â Microsoft ¡ÒÃʹѺʹع´éҹ෤¹Ô¤ÊÓËÃѺ¢éÍÁÙŨÓà¾ÒÐà¡ÕèÂǡѺ¡Òà ¤ÅÔ¡·Õè¡ÒÃàª×èÍÁ⧵èÍ仹ÕéÊÓËÃѺÊ໤ RTF:

á»Å§ XML ä» RTF

¤Ø³ÊÒÁÒöãªé XML ·Õè¶Ù¡µéͧ¨Ò¡áËÅ觷ÕèÁÒã´ áÅÐá»Å§ RTF ¢Ñ鹵͹µèÍ仹ÕéáÊ´§ãËéàË繶֧ÇÔ¸Õ¡Ò÷Õè¤Ø³ÊÒÁÒöá»Å§ XML ·Õè¡Ó˹´àͧà»ç¹ RTF ºÑ¹·Ö¡à»ç¹á¿éÁ ËÃ×ͤѴÅÍ¡ä»Âѧ¤ÅÔ»ºÍÃì´

1. ÊÃéÒ§.NET Visual Basic ·ÕèãËÁèá;ÅÔपѹ¢Í§ windows. form1 ¶Ù¡ÊÃéÒ§ÊÓËÃѺ¤Ø³
2. à¾ÔèÁµÑǤǺ¤ØÁ»ØèÁÊͧ Form1
3. 㹡ÒÃÁØÁÁͧàÁ¹Ù ¤ÅÔ¡ÃËÑÊ.
4. á·Ã¡µèÍ仹Õé·Õè´éÒ¹º¹¢Í§Ë¹éÒµèÒ§ÃËÑÊ¡è͹·Õè¨Ð¹Óä»ãªéÃдѺªÑé¹ Form1:

   Imports System.Xml
   Imports System.Xml.Xsl
   Imports System.IO

5. à¾ÔèÁÃËÑʵèÍ仹Õéà¾×èÍãªé§Ò¹¤ÅÒ Form1 (¡è͹¤ÅÒʢͧ¡ÒÃÊÔé¹ÊØ´):

       Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
           Button1.Text = "To File"
           Button2.Text = "To Clipboard"
   
       End Sub
   
       Private Sub ButtonsClick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
           Handles Button1.Click, Button2.Click
   
           Dim sPath As String = Directory.GetParent(Directory.GetCurrentDirectory()).ToString
   
           ' Open the XML file.
           Dim xmlDoc As New XmlDocument()
           xmlDoc.Load(sPath & "\Dictionary.xml")
   
           ' Open the XSL file.
           Dim xslDoc As New XslTransform()
           xslDoc.Load(sPath & "\Dictionary.xslt")
   
           Select Case sender.name
               Case "Button1"
                   ' Transform the XSL and save it to file.
                   Dim TWrtr As New XmlTextWriter(sPath & "\Dictionary.RTF", System.Text.Encoding.Default)
                   xslDoc.Transform(xmlDoc, Nothing, TWrtr, Nothing) 
                   TWrtr.Close()
                   MsgBox("Transformed RTF saved to " & sPath & "\Dictionary.RTF")
               Case "Button2"
                   ' Transform the XSL and copy it to the clipboard.
                   Dim SWrtr As New StringWriter()
                   xslDoc.Transform(xmlDoc, Nothing, SWrtr, Nothing)
                   Dim datObj As New DataObject(DataFormats.Rtf, SWrtr)
                   Clipboard.SetDataObject(datObj)
                   SWrtr.Close()
                   MsgBox("Transformed RTF copied to the clipboard.")
           End Select
   
       End Sub

6. à¾ÔèÁá¿éÁ XML ã¹â¤Ã§¡Òâͧ¤Ø³:
   1. 㹡ÒÃProjectàÁ¹Ù ¤ÅÔ¡à¾ÔèÁÃÒ¡ÒÃãËÁè.
   2. ¨Ò¡ÃÒ¡Òâͧµé¹áºº ¤ÅÔ¡á¿éÁ xml.
   3. ¾ÔÁ¾ìª×èÍDictionary.xmláÅéÇ ¤ÅÔ¡OPEN.
   4. ¼¹Ç¡µèÍ仹Õéà¾×èÍ·Õèà¹×éÍËҢͧ Dictionary.xml:

      <Dictionary>
        <Entries>
          <Entry>
            <Word Type="1">Energetic</Word>
            <Definition>Having, exerting, or displaying energy</Definition>
          </Entry>
          <Entry>
            <Word Type="1">Happy</Word>
            <Definition>Enjoying, displaying, or characterized by pleasure or joy</Definition>
          </Entry>
          <Entry>
            <Word Type="2">Emotion</Word>
            <Definition>A complex, strong subjective response</Definition>
          </Entry>
        </Entries>
      </Dictionary> 

7. à¾ÔèÁä¿Åì XSLT â¤Ã§¡Òâͧ¤Ø³:
   1. 㹡ÒÃProjectàÁ¹Ù ¤ÅÔ¡à¾ÔèÁÃÒ¡ÒÃãËÁè.
   2. ¨Ò¡ÃÒ¡Òâͧµé¹áºº ¤ÅÔ¡á¿éÁ xslt.
   3. ¾ÔÁ¾ìª×èÍDictionary.xsltáÅéÇ ¤ÅÔ¡OPEN.
   4. á·¹à¹×éÍËҢͧ Dictionary.xslt ´éÇ¢éͤÇÒÁµèÍ仹Õé:

       
      <?xml version="1.0" encoding="UTF-8" ?>
      <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform">
      
      	<xsl:output method="text"/>
      	<xsl:template match="/">
      
      	<xsl:text>{\rtf1</xsl:text>
      
      	<xsl:for-each select="Dictionary/Entries/Entry">
      
      		<xsl:text>\par\b </xsl:text>
      		<xsl:value-of select="Word"/>
      		<xsl:text>\b0\i  </xsl:text> 
      		<xsl:if test="Word[@Type='1']">adj.</xsl:if>
      		<xsl:if test="Word[@Type='2']">n.</xsl:if>
      		<xsl:text>\i0\par </xsl:text>
      		<xsl:value-of select="Definition"/>
      		<xsl:text>\par</xsl:text>
      	</xsl:for-each>
      
      	<xsl:text>}</xsl:text>
      
      	</xsl:template>
      	
      </xsl:stylesheet>  

8. ¡´ F5 à¾×èÍÊÃéÒ§áÅÐàÃÕ¡ãªéâ»Ãá¡ÃÁ
9. ¤ÅÔ¡ä»Âѧá¿éÁàÁ×è͵éͧ¡Òúѹ·Ö¡ transformed XML ä»Âѧá¿éÁ (Dictionary.rtf) ¤Ø³ÊÒÁÒöà»Ô´ä¿Åì RTF ã¹ Word à¾×è͵ÃǨÊͺ¼ÅÅѾ¸ì¢Í§¡ÒÃá»Å§
10. ¤ÅÔ¡ä»Âѧ¤ÅÔ»ºÍÃì´àÁ×è͵éͧ¡ÒäѴÅÍ¡ transformed XML ä»Âѧ¤ÅÔ»ºÍÃ촢ͧ Windows ¤Ø³ÊÒÁÒöÇÒ§à¹×éÍËҢͧ¤ÅÔ»ºÍÃì´áÅéÇŧã¹àÍ¡ÊÒà Word ãËÁè ËÃ×Í·ÕèÁÕÍÂÙèà¾×èÍ´Ù¼ÅÅѾ¸ì

á»Å§à»ç¹ªØ´¢éÍÁÙÅà¢éÒ RTF

visual Basic .NET ªèÇÂãËé¤Ø³·Ó¡ÒÃá»Å§ã¹ datasets ä´éÍÂèÒ§§èÒ´Ò ¢Ñ鹵͹¹ÕéáÊ´§ãËé¤Ø³àËç¹ÇÔ¸Õ¡ÒÃãªé¢éÍÁÙÅ·Õèà¡ÕèÂÇ¢éͧ¨Ò¡°Ò¹¢éÍÁÙŵÑÇÍÂèÒ§ Northwind áÅÐá»Å§ RTF á»Å§·ÕèᵡµèÒ§¡Ñ¹Êͧ¨ÐáÊ´§: RTF àÍ¡ÊÒÃÍÂèÒ§§èÒÂãËéÃÒ¡ÒÃÅÙ¡¤éÒµÔ´µèÍ¢éÍÁÙÅáÅÐàÍ¡ÊÒà RTF «Ñº«é͹ÁÒ¡ somewhat ·ÕèáÊ´§ã¹ãºÊÑè§ÃÒÂÅÐàÍÕ´ÊÓËÃѺÅÙ¡¤éÒã¹ÃٻẺ·Õ誹Դ¢Í§¨´ËÁÒÂàÇÕ¹

1. àÃÔèÁ¡Ò÷ӧҹ¢Í§ Visual Basic ãËÁèá;ÅÔपѹàÇçº asp.netáÅкѹ·Ö¡Å§ä»http://localhost/RTFDemo.
   
   WebForm1¶Ù¡ÊÃéÒ§¢Öé¹ÊÓËÃѺ¤Ø³
2. à¾ÔèÁÊͧ»ØèÁ¤Çº¤ØÁ¡Òà WebForm1
3. 㹡ÒÃÁØÁÁͧàÁ¹Ù ¤ÅÔ¡ÃËÑÊ.
4. à¾ÔèÁÃËÑʵèÍ仹Õéä»Page_Load¿Ñ§¡ìªÑ¹:

           Button1.Text = "View Contact Information"
           Button2.Text = "View Customer Orders"

5. à¾ÔèÁ¿Ñ§¡ìªÑ¹µèÍ仹Õéä»WebForm1¤ÅÒÊ·Õè
   
   ËÁÒÂà˵Ø:: ÃËÑʵèÍ仹Õé¡ÒÃÊѹ¹ÔÉ°Ò¹¤Ø³ä´éµÔ´µÑé§ÍÂÙ躹 localhost ã¹ SQL Server ¶éҤسµéͧãªé¤ÍÁ¾ÔÇàµÍÃìà¤Ã×èͧÍ×è¹ à»ÅÕè¹ÊÁÒªÔ¡¢Í§áËÅ觢éÍÁÙŢͧÊÒÂÍÑ¡¢ÃСÒÃàª×èÍÁµèÍÍÂèÒ§àËÁÒÐÊÁ

       Private Sub ButtonsClick(ByVal sender As System.Object, ByVal e As System.EventArgs) _
               Handles Button1.Click, Button2.Click
   
           ' Connect to the data source.
           Dim nwindConn As SqlConnection = New SqlConnection( _
               "Data Source=localhost;Initial Catalog=Northwind;Integrated Security=SSPI")
           nwindConn.Open()
   
           ' Build a dataset based on whether you requested to view a list of 
           ' orders or a list of contacts.
           Dim ds As DataSet
           Dim sXSL As String
           Select Case (sender.id)
   
               Case "Button1"
   
                   ds = New DataSet("Contacts")
                   Dim ContactsDA As SqlDataAdapter = New SqlDataAdapter("SELECT * FROM Customers", nwindConn)
                   ContactsDA.Fill(ds, "Customers")
                   ' XSLT to use for transforming this dataset.
                   sXSL = "Contacts.xslt"  
   
               Case "Button2"
   
                   ds = New DataSet("CustomerOrders")
   
                   Dim custDA As SqlDataAdapter = New SqlDataAdapter("SELECT CustomerID, CompanyName, " & _
                       "Address, City, Region, PostalCode, Country FROM Customers", nwindConn)
                   custDA.Fill(ds, "Customers")
   
                   Dim ordersDA As SqlDataAdapter = New SqlDataAdapter("SELECT OrderID, CustomerID, Freight " & _
                       "FROM Orders", nwindConn)
                   ordersDA.Fill(ds, "Orders")
   
                   Dim ordersdetailDA As SqlDataAdapter = New SqlDataAdapter( _
                       "SELECT [Order Details].OrderID, Products.ProductName, [Order Details].Quantity, " & _
                       "[Order Details].[UnitPrice]*[Quantity]*(1-[Discount]) AS ItemTotal " & _
                       "FROM Products INNER JOIN [Order Details] ON Products.ProductID = [Order Details].ProductID " _
                       , nwindConn)
   
                   ordersdetailDA.Fill(ds, "OrderDetails")
   
                   nwindConn.Close()
   
                   ds.Relations.Add("CustOrders", _
                   ds.Tables("Customers").Columns("CustomerID"), _
                   ds.Tables("Orders").Columns("CustomerID")).Nested = True
   
                   ds.Relations.Add("OrdersToOrdersDetail", _
                   ds.Tables("Orders").Columns("OrderID"), _
                   ds.Tables("OrderDetails").Columns("OrderID")).Nested = True
   
                   ' XSLT to use for transforming this dataset.
                   sXSL = "CustOrders.xslt" 
   
           End Select
   
           ' Close the connection to the data source.
           nwindConn.Close()
   
           ' Transform the dataset by using the appropriate stylesheet.
           Dim xmlDoc As XmlDataDocument = New XmlDataDocument(ds)
           Dim xslTran As XslTransform = New XslTransform()
           xslTran.Load(Server.MapPath(sXSL))
   
           ' Stream the results of the transformation to Word.
           Response.ContentType = "application/msword"
           Response.Charset = ""
           Response.ContentEncoding = System.Text.Encoding.Default
           xslTran.Transform(xmlDoc, Nothing, Response.Output)
   
       End Sub

6. à¾ÔèÁºÃ÷ѴµèÍ仹Õé¢Í§ÃËÑÊ·Õè´éÒ¹º¹¢Í§ WebForm1.aspx.vb ¡è͹·Õè¨Ð¹Óä»ãªé¤ÅÒÊ WebForm1:

   Imports System.Data.SqlClient
   Imports System.Xml
   Imports System.Xml.Xsl

7. 㹡ÒÃProjectàÁ¹Ù ¤ÅÔ¡à¾ÔèÁÃÒ¡ÒÃãËÁè. ¨Ò¡ÃÒ¡Òâͧµé¹áºº ¤ÅÔ¡á¿éÁ xsltª×èÍá¿éÁContacts.xsltáÅéÇ ¤ÅÔ¡OPEN.
8. á·¹à¹×éÍËҢͧ Contacts.xslt ´éÇ¢éͤÇÒÁµèÍ仹Õé:

   <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
   	xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="urn:my-scripts" >   
   
   <xsl:output method="text"/>
   
   <xsl:template match="/">
   
   	<xsl:text>{\rtf1</xsl:text>
   	
       <xsl:text>{\fonttbl{\f0\froman\fcharset0\fprq2 Times New Roman;}{\f1\fswiss\fcharset0\fprq2 Arial;}}</xsl:text>
       
   	<xsl:text>{\header\pard\fs50 My Customer Contacts}</xsl:text>
   	
   	<xsl:text>{\footer\pard\fs18 Page {\field{\*\fldinst PAGE}</xsl:text>
   	<xsl:text>{\fldrslt }} of {\field{\*\fldinst NUMPAGES}{\fldrslt 1}} \par}</xsl:text>
   	
   	<xsl:text>\f1\fs20</xsl:text>
   	
       <xsl:for-each select="Contacts/Customers">
   		<xsl:text>\par\b </xsl:text><xsl:value-of select="CustomerID"/><xsl:text>\b0</xsl:text>
   		<xsl:text>\par </xsl:text><xsl:value-of select="CompanyName"/>
   		<xsl:text>\par </xsl:text><xsl:value-of select="ContactName"/>
   		<xsl:text>\par </xsl:text><xsl:value-of select="Phone"/>
   		<xsl:text>\par</xsl:text>
       </xsl:for-each>
   	      
   	<xsl:text>}</xsl:text>
   
   </xsl:template>
   
   <xsl:template match="Customers">
   
       <xsl:text>\par\b </xsl:text><xsl:value-of select="CustomerID"/><xsl:text>\b0</xsl:text>
       <xsl:text>\par </xsl:text><xsl:value-of select="CompanyName"/>
       <xsl:text>\par </xsl:text><xsl:value-of select="ContactName"/>
       <xsl:text>\par </xsl:text><xsl:value-of select="Phone"/>
       <xsl:text>\par</xsl:text>
   
   </xsl:template>
   
   </xsl:stylesheet> 

9. 㹡ÒÃProjectàÁ¹Ù ¤ÅÔ¡à¾ÔèÁÃÒ¡ÒÃãËÁè. ¨Ò¡ÃÒ¡Òâͧµé¹áºº ¤ÅÔ¡á¿éÁ xsltª×èÍá¿éÁCustOrders.xsltáÅéÇ ¤ÅÔ¡OPEN.
10. á·¹à¹×éÍËҢͧ CustOrders.xslt ´éÇ¢éͤÇÒÁµèÍ仹Õé:

    <xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform" 
    	xmlns:msxsl="urn:schemas-microsoft-com:xslt" xmlns:user="urn:my-scripts" >   
    
    <xsl:output method="text"/>
    
    <msxsl:script language="VB" implements-prefix="user">
        Dim CustomerTotal as Double = 0
        Dim OrderSubtotal as Double = 0
        
        Function AddToOrderSubtotal(amt)
            amt.MoveNext
            OrderSubtotal = OrderSubtotal + System.Convert.ToDouble(amt.Current.Value)
        End Function
        
        Function GetOrderSubtotal
    		GetOrderSubtotal = OrderSubtotal
        End Function
        
        Function GetCustomerTotal
    		GetCustomerTotal = CustomerTotal
    		CustomerTotal = 0
    	End Function
    	
        Function GetOrderTotal(freight)
           freight.MoveNext
           nFreight = System.Convert.ToDouble(freight.Current.Value)
           GetOrderTotal = nFreight + OrderSubtotal
           CustomerTotal = nFreight + OrderSubtotal + CustomerTotal
           OrderSubtotal = 0  
        End Function
            
    </msxsl:script>
    
    <xsl:template match="CustomerOrders">
    
    	<xsl:text>{\rtf1</xsl:text>
    	
    	<xsl:text>{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255;
    	\red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;
    	\red255\green255\blue255;\red221\green221\blue221;}</xsl:text>
    	
    	<xsl:text>{\info{\title Sample RTF Document}{\author Microsoft Developer Support}}</xsl:text>
    	
    	<xsl:text>{\header\pard\qc{\fs50 ASP-Generated RTF\par}{\fs18\chdate\par}\par\par}</xsl:text>
    	
    	<xsl:text>{\footer\pard\qc\brdrt\brdrs\brdrw10\brsp100\fs18 Page {\field{\*\fldinst PAGE}</xsl:text>
    	<xsl:text>{\fldrslt }} of {\field{\*\fldinst NUMPAGES}{\fldrslt 1}} \par}</xsl:text>
    	
    	<xsl:apply-templates select="Customers"/>
    	      
    	<xsl:text>}</xsl:text>
    
    </xsl:template>
    
    <xsl:template match="Customers">
    
        <xsl:text>\par\pard\fs20\cf2\qr\b </xsl:text><xsl:value-of select="CustomerID"/><xsl:text>\cf0\b0</xsl:text>
        <xsl:text>\par\pard </xsl:text><xsl:value-of select="CompanyName"/>
        <xsl:text>\par </xsl:text><xsl:value-of select="Address"/>
        <xsl:text>\par </xsl:text><xsl:value-of select="City"/>
        <xsl:text>, </xsl:text><xsl:value-of select="Region"/>
        <xsl:text> </xsl:text><xsl:value-of select="PostalCode"/>
        <xsl:text>\par </xsl:text><xsl:value-of select="Country"/>
        <xsl:text>\par\par</xsl:text>
    
    	<xsl:apply-templates select="Orders"/>
    
    	<xsl:text>\trowd\cellx7000\cellx9000\pard\intbl\ql\b\cbpat1 </xsl:text>
    	<xsl:text>Order Total for the Current Period:\cell </xsl:text>
    	<xsl:text>\qr</xsl:text>
    	<xsl:variable name="CustTtl" select="user:GetCustomerTotal()"/>
    	<xsl:value-of select="format-number($CustTtl,'$###0.00')"/>
    	<xsl:text>\cell</xsl:text>
    	<xsl:text>\pard\intbl\row</xsl:text>
    		
    	<xsl:text>\pard\par\pard</xsl:text>
    	<xsl:text>\pard\plain\fs18\cf6\qc</xsl:text>
    	<xsl:choose>
    		<xsl:when test="$CustTtl = 0">
             <xsl:text>\b We've missed hearing from you!\b0 </xsl:text>
             <xsl:text> At your convenience, please call your personal sales representative </xsl:text>
             <xsl:text>so that we may discuss our specials for new and returning customers!</xsl:text>
          </xsl:when>
          <xsl:when test="$CustTtl > 2000">
             <xsl:text>\b Congratulations!\b0  Your purchases for this period qualify you for a \b 20%\b0 </xsl:text>
             <xsl:text> discount on one of your next orders. To take advantage of this offer, provide </xsl:text>
             <xsl:text>the coupon code ABC123XYZ when placing your order.</xsl:text>
          </xsl:when>
          <xsl:otherwise>
             <xsl:text> We value your patronage with Northwind Traders and would love to hear from you. </xsl:text>
             <xsl:text>If you have any questions about our upcoming line of products or if you want </xsl:text>
             <xsl:text>a catalog for the coming season, call 1-888-000-000.</xsl:text>
          </xsl:otherwise>
        </xsl:choose>
    	<xsl:text>\par\pard</xsl:text>
    	<xsl:text>\par \page</xsl:text>
    
    </xsl:template>
    
    <xsl:template match="Orders">
    
    	<xsl:text>\trowd\cellx9000\pard\intbl\cbpat9</xsl:text>
    	<xsl:text>\ql\b </xsl:text><xsl:value-of select="OrderID"/><xsl:text>\b0\cell </xsl:text>
    	<xsl:text>\pard\intbl\row</xsl:text>
    	
    	<xsl:apply-templates select="OrderDetails"/>
    
    	<xsl:text>\trowd\cellx7000\cellx9000\pard\intbl</xsl:text>
    	<xsl:text>\qr Subtotal:\cell </xsl:text>
    	<xsl:value-of select="format-number(user:GetOrderSubtotal(),'$###0.00')"/><xsl:text>\cell</xsl:text>	
    	<xsl:text>\pard\intbl\row</xsl:text>
    		
    	<xsl:text>\trowd\cellx7000\cellx9000\pard\intbl</xsl:text>
    	<xsl:text>\qr Freight:\cell </xsl:text>
    	<xsl:value-of select="format-number(Freight,'$###0.00')"/><xsl:text>\cell</xsl:text>	
    	<xsl:text>\pard\intbl\row</xsl:text>
    
    	<xsl:text>\trowd\cellx7000\cellx9000\pard\intbl</xsl:text>
    	<xsl:text>\qr Total:\cell </xsl:text>
    	<xsl:value-of select="format-number(user:GetOrderTotal(Freight), '$###0.00')"/><xsl:text>\cell</xsl:text>	
    	<xsl:text>\pard\intbl\row</xsl:text>
    		
    	<xsl:text>\trowd\cellx9000\pard\intbl \cell\pard\intbl\row</xsl:text>
    	
    </xsl:template>
    
    <xsl:template match="OrderDetails">
    
    	<xsl:text>\trowd\cellx5000\cellx7000\cellx9000\pard\intbl\ql </xsl:text>
    	<xsl:value-of select="ProductName"/><xsl:text>\cell </xsl:text>
    	<xsl:text>\qc </xsl:text><xsl:value-of select="Quantity"/><xsl:text>\cell </xsl:text>
    	<xsl:text>\qr </xsl:text>
    	<xsl:value-of select="format-number(ItemTotal,'$###0.00')"/><xsl:text>\cell</xsl:text>
    	<xsl:variable name="RunTotal" select="user:AddToOrderSubtotal(ItemTotal)"/>
    	<xsl:text>\pard\intbl\row</xsl:text>
    
    </xsl:template>
    
    </xsl:stylesheet>

11. 㹡ÒáÒÃÊÃéÒ§àÁ¹Ù ¤ÅÔ¡ÊÃéÒ§â«Å٪ѹ.
12. àÃÔèÁ¡Ò÷ӧҹ¢Í§ Internet Explorer áÅÐàÃÕ¡´Ù http://localhost/RTFDemo/Webform1.aspx
13. ¤ÅÔ¡´Ù¢éÍÁÙÅ·ÕèµÔ´µèÍàÁ×è͵éͧ¡Òô١ÒÃá»Å§ XML ááà¾×èÍ RTF ã¹ Word
14. ¤ÅÔ¡ÊÓÃͧ¢éÍÁÙÅã¹ Internet Explorer
15. ¤ÅÔ¡ãºÊÑ觢ͧÅÙ¡¤éÒÁØÁÁͧàÁ×è͵éͧ¡Òô١ÒÃá»Å§ XML ·ÕèÊͧà¾×èÍ RTF ã¹ Word

rtf à¤Åç´ÅѺ¡ÒÃá¡é䢻ѭËÒàº×éͧµé¹

• ã¹¢³Ð·Õèà¢Õ¹ â¤é´µÑÇÍÂèҧ㹹Ñé¹á»Å§à»ç¹ªØ´¢éÍÁÙÅà¢éÒ RTFÊèǹ ¡ÃÐáÊ¢éÍÁÙÅ RTF â´ÂµÃ§¡ÑºàºÃÒÇìà«ÍÃì ÍÕ¡ÇÔ¸Õ˹Ö觤×Í ¤Ø³ÊÒÁÒöºÑ¹·Ö¡ RTF ·Õèä»Âѧá¿éÁ áÅСÒÃà»ÅÕè¹àÊé¹·Ò§ä»Âѧá¿éÁ·ÕèºÑ¹·Ö¡äÇé àÁ×è͵éͧ¡Ò÷Óàªè¹¹Õé á·¹ºÃ÷Ѵ¢Í§ÃËÑÊã¹µÑÇÍÂèÒ§àËÅèÒ¹Õé

  Response.ContentType = "application/msword"
  Response.ContentEncoding = System.Text.Encoding.Default
  Response.Charset = ""
  xslTran.Transform(xmlDoc, Nothing, Response.Output)

  with::

  Dim writer As XmlTextWriter = New XmlTextWriter( _
          Server.MapPath("Results.doc"), System.Text.Encoding.Default)
  xslTran.Transform(xmlDoc, Nothing, writer)
  writer.Close()
  Response.Redirect("Results.doc")

  ¡ÒèѴà¡çº RTF ä»Âѧá¿éÁã¹ÅѡɳйÕéãËé¤Ø³µÃǨÊͺâ¤Ã§ÊÃéÒ§¢Í§ RTF ã¹á¿éÁ â´Âãªé¢éͤÇÒÁä´éÍÂèÒ§§èÒ´ÒÂá¡éä¢ àªè¹ Notepad Storing the RTF to a file can be a helpful troubleshooting technique if the XSL transformation does not produce the results you expect.
• When transforming to RTF, be aware of how you present whitespace and carriage returns in your stylesheet because that can affect how Word interprets your RTF. Both code samples in this article use the<xsl:text></xsl:text>element because it forces any white space information in it to be retained.
• ¡ÒÃãªé<xsl:output method="text"></xsl:output>in your stylesheet to make sure that your XML is transformed to text (rather than XML, which is the default output method). If you do not specify text as the output method, XML processing instructions may be added to the file. This can prevent Word from correctly interpeting the text as RTF.

For additional information about server-side Automation of Microsoft Word and other Office applications, click the article number below to view the article in the Microsoft Knowledge Base:For additional information about using RTF in your solutions, click the article numbers below to view the articles in the Microsoft Knowledge Base:ÊÓËÃѺ¢éÍÁÙÅà¾ÔèÁàµÔÁà¡ÕèÂǡѺ transforming XML â´Âãªé Visual Basic .NET ¤ÅÔ¡ËÁÒÂàÅ¢º·¤ÇÒÁ´éÒ¹ÅèÒ§¹Õéà¾×èÍ´Ùº·¤ÇÒÁã¹°Ò¹¤ÇÒÁÃÙé¢Í§ Microsoft: