XML + XSLT, как теперь?

[gaidar]

http://xmlfiles.com/articles/cynthia/xslt/default.asp

Код: Выделить всё

Dim myXPathDocument As New XPathDocument(sourceDoc)
Dim myXslTransform As New XslTransform()
Dim writer As New XmlTextWriter(resultDoc, Nothing)
myXslTransform.Load(xsltDoc)
myXslTransform.Transform(myXPathDocument, Nothing, writer)
writer.Close()
Dim stream As New StreamReader (resultDoc)
Dim str As String = stream.ReadToEnd()

[asharky]

А возможно-ли сделать так, чтобы "data.xslt" не надо было хранить на диске, а создать программным путём в памяти? Дайте ключевые слова пожалуста

[asharky]

О5 я что-то не то спросил

[asharky]

Вопрос всё ещё актуален

: Программным путём, без чтения из файла, XslTransform создать можно?

[Gloom]

Код: Выделить всё

        Dim xml As String = "<test>Шариков</test>"
        Dim xsl As String = "<xsl:stylesheet version=""1.0"" xmlns:xsl=""http://www.w3.org/1999/XSL/Transform"">" & _
            "<xsl:output method=""text""/><xsl:template match=""/""><xsl:value-of select=""test""/></xsl:template></xsl:stylesheet>"

        Dim reader As XmlReader = XmlReader.Create(New MemoryStream(Encoding.UTF8.GetBytes(xml)))

        Dim stylesheet As XmlDocument = New XmlDocument()
        stylesheet.LoadXml(xsl)

        Dim transform As XslCompiledTransform = New XslCompiledTransform()
        transform.Load(stylesheet)

        Dim result As MemoryStream = New MemoryStream()
        Dim writer As StreamWriter = New StreamWriter(result)
        transform.Transform(reader, Nothing, writer)
        Console.WriteLine(Encoding.UTF8.GetString(result.ToArray()))

[asharky]

Спасибо!

А xsl / xml как-то не в в строках можно собрать? Ну там Node или elements , а не "<xsl:stylesheet ....." и т.п.? Уж больно коряво получается и не современно