1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27
|
Try
Dim xmlDoc As XmlDataDocument = New XmlDataDocument
xmlDoc.LoadXml(monDataSet.GetXml)
Dim outputXmlDoc As XmlDocument = New XmlDocument()
Dim reader As XmlNodeReader = New XmlNodeReader(xmlDoc)
Dim settings As XsltSettings = New XsltSettings()
settings.EnableDocumentFunction = True
Dim xslt As XslCompiledTransform = New XslCompiledTransform(True)
xslt.Load(My.Settings.cheminxsl, settings, Nothing)
Dim transformOutput As System.Text.StringBuilder = New System.Text.StringBuilder
Dim writerSettings As XmlWriterSettings = New XmlWriterSettings()
writerSettings.ConformanceLevel = ConformanceLevel.Auto
' ici c'est pour appliquer un formattage du fichier xml avec le fichier de styles .xsl
Dim htmlDoc As XmlWriter = System.Xml.XmlWriter.Create(transformOutput, xslt.OutputSettings)
xslt.Transform(reader, Nothing, htmlDoc, New XmlUrlResolver())
outputXmlDoc.InnerXml = transformOutput.ToString()
outputXmlDoc.Save(dossier & "\" & fichier3)
attach = dossier & "\" & fichier3
Catch ex As Exception
MsgBox(ex.Message)
End Try |
Partager