VB.NET XML XSL Transformation HELP!?!?

[DaytonGary]

Please Help:

I have this wonderful function that takes as input an XML as a string and an XSLT as a string and using the XSLT, transforms the XML returning the result...

Public Function Trans(ByVal XMLStr As String, ByVal XSLTStr As String) As String
Dim TransObj As New MSXML2.DOMDocument
Dim OutputXML As New MSXML2.DOMDocument
Dim OutStr As String

If OutputXML.loadXML(XMLStr) Then
If TransObj.loadXML(XSLTStr) Then
OutStr = OutputXML.transformNode(TransObj)
End If
End If
Return OutStr
End Function

Problem being it makes use of the MSXML Interop COM Object, and I'm trying to upgrade it to VB.NET only code... no Interop COM.

I can't figure out how (and haven't seen an example of how to) using xml.xsl.xsltransform or whatever I need to use, how to do this process strictly in memory. The inputs _must_ be an XML contained in a string and the XSLT contained in a string. These are both being gerenated dynamically from the database, not from files or from Intenet locations.

Any Ideas? Anyone?

Thanks,

Currently Confused Dayton Gary

[darrenswan]

Did you ever find out how to do this? I have also spent days looking for a solution and not quite figured out how to do it!

Thanks,

Darren

Please Help:

I have this wonderful function that takes as input an XML as a string and an XSLT as a string and using the XSLT, transforms the XML returning the result...

Public Function Trans(ByVal XMLStr As String, ByVal XSLTStr As String) As String
Dim TransObj As New MSXML2.DOMDocument
Dim OutputXML As New MSXML2.DOMDocument
Dim OutStr As String

If OutputXML.loadXML(XMLStr) Then
If TransObj.loadXML(XSLTStr) Then
OutStr = OutputXML.transformNode(TransObj)
End If
End If
Return OutStr
End Function

Problem being it makes use of the MSXML Interop COM Object, and I'm trying to upgrade it to VB.NET only code... no Interop COM.

I can't figure out how (and haven't seen an example of how to) using xml.xsl.xsltransform or whatever I need to use, how to do this process strictly in memory. The inputs _must_ be an XML contained in a string and the XSLT contained in a string. These are both being gerenated dynamically from the database, not from files or from Intenet locations.

Any Ideas? Anyone?

Thanks,

Currently Confused Dayton Gary

[DaytonGary]

Hey Darren...

This is as close as I have gotten (but there is a bug in here and I haven't had the time to find it or fix it).

Public Function Transform(ByVal XMLStr As String, ByVal XSLTStr As String) As String
Dim XSLT As XslTransform = New XslTransform
Dim XR As New System.Xml.XmlTextReader(XMLStr, XmlNodeType.Document, Nothing)
Dim XSR As New System.Xml.XmlTextReader(XSLTStr, XmlNodeType.Document, Nothing)

Dim MyData As New System.Xml.XPath.XPathDocument(XR)
XSLT.Load(XSR, Nothing, Nothing)

Dim MyWriter As New System.IO.StringWriter
XSLT.Transform(MyData, Nothing, MyWriter, Nothing)
XSLT = Nothing
Return MyWriter.ToString
End Function

This **should be** as simple as:
Dim XSLT as new Xml.XslTransformer(XSLTString)
Return XSLT.Transform(XMLString).ToString

[kphanira]

hey try this for XML to XSL transform

//create a dataset
DataSet dsReportData;
//fill this using any adaptor

XmlDataDocument XMLDoc, string strXSLFullFilePath;

XMLDoc = new new XmlDataDocument(dsReportData);
strXSLFullFilePath = @"C:\temp\anyxslfile.XSL";

System.IO.FileStream fs;
XmlTextWriter objXmlTxtWrt;
StringReader objStrRdr;
XmlTextReader objXmlTxtRdr;
XPathDocument objXPathDoc;
XslCompiledTransform objXslTran;



try
{
//'Create An Xpath Doc
objStrRdr = new StringReader(XMLDoc.OuterXml);
objXmlTxtRdr = new XmlTextReader(objStrRdr);
objXPathDoc = new XPathDocument(objXmlTxtRdr);



fs = new System.IO.FileStream(strExcelFile,
System.IO.FileMode.Create);

//'Create an XmlTextWriter for the FileStream.
objXmlTxtWrt = new XmlTextWriter(fs,
System.Text.Encoding.Unicode);
//'Transform the XML using the stylesheet.

objXslTran = new XslCompiledTransform();

strXSLFullFilePath = strXSLFullFilePath.Replace(XSLStyleSheetFolder, "");

strXSLFullFilePath = strExcelFile;
fs.Close();
objXslTran.Load(strXSLFullFilePath);

objXslTran.Transform(objXPathDoc, objXmlTxtWrt);


}

catch (Exception e)
{ Console.Write(e.Message); }
finally
{
objXPathDoc = null;
objXslTran = null;
//xslRes = null;
}

[darrenswan]

Hi Dayton Gary,

Your example seems to work fine for me. I have added argument support for the function and a simple try catch.

Hope this makes it a bit more useful...

Private Function ApplyXSLT(ByVal sXML As String, ByVal sXSLT As String, ByVal argsList As XsltArgumentList) As String
Try
Dim XSLT As XslTransform = New XslTransform
Dim XR As New System.Xml.XmlTextReader(sXML, XmlNodeType.Document, Nothing)
Dim XSR As New System.Xml.XmlTextReader(sXSLT, XmlNodeType.Document, Nothing)

Dim MyData As New System.Xml.XPath.XPathDocument(XR)
XSLT.Load(XSR, Nothing, Nothing)

Dim MyWriter As New System.IO.StringWriter
XSLT.Transform(MyData, argsList, MyWriter, Nothing)
XSLT = Nothing
Return MyWriter.ToString
Catch ex As Exception

End Try
End Function

Darren