要生成很多html文件,html格式由XML文件决定,数据存在数据库中,以后如果格式变了只要改一下XML文件,再重新生成一下就行了,谁知道vb中怎么通过XML来生成html

解决方案 »

  1.   

    Imports System.Xml
    Imports System.Xml.XPath
    Imports System.Xml.Xsl
    Imports System.IOPublic Class MainClass   Shared Sub Main()
           Dim document As XmlDocument     ' Xml document root
           Dim navigator As XPathNavigator ' navigate document
           Dim transformer As XslTransform ' transform document
           Dim output As StringWriter
           
          document = New XmlDocument()
          document.Load("games.xml")      ' create navigator
          navigator = document.CreateNavigator      ' load style sheet
          transformer = New XslTransform()
          transformer.Load("games.xsl")      ' transform XML data
          output = New StringWriter()
          transformer.Transform(navigator, Nothing, output)      ' display transformation in text box
          Console.WriteLine(output.ToString)      ' write transformation result to disk
          Dim stream As FileStream = _
             New FileStream("games.html", FileMode.Create)      Dim writer As StreamWriter = New StreamWriter(stream)
          writer.Write(output.ToString)      ' close streams
          writer.Close()
          output.Close()   End Sub ' ValidationErrorEnd Class