Soyez le premier à donner votre avis sur cette source.
Vue 30 337 fois - Téléchargée 1 131 fois
Voir le fichier Zip pour voir la totalité de l'application. Vous pouvez voir ci-dessous la partie du code qui gère la transformation: Dim xmlDoc, xslDoc As MSXML2.DOMDocument Set xmlDoc = New MSXML2.DOMDocument xmlDoc.async = False xmlDoc.LoadXML XML.Text Set MyErr = xmlDoc.parseerror If (MyErr.errorCode <> 0) Then MsgBox (frmSplash.mess.List(2) & " " & MyErr.reason) GoTo endtransfrom End If Set xslDoc = New MSXML2.DOMDocument xslDoc.LoadXML XSL.Text xslDoc.async = False Set MyErr = xslDoc.parseerror If (MyErr.errorCode <> 0) Then MsgBox (frmSplash.mess.List(3) & " " & MyErr.reason) GoTo endtransfrom Else OutputMethod = textchange(XSL, "<xsl:output method=") If Not (OutputMethod = "xml" Or OutputMethod = "html" Or OutputMethod = "text") Then MsgBox (OutputMethod) GoTo endtransfrom End If End If On Error GoTo parseerror ParseResult.ParseResultText.Text = xmlDoc.transformNode(xslDoc) If OutputMethod = "text" Then ParseResult.Show GoTo endtransfrom End If Dim path As String Dim fso, ts Set fso = CreateObject("Scripting.FilesystemObject") path = "c:\temp." & OutputMethod If Not (FileExists%(path)) Then fso.CreateTextFile (path) End If Set File = fso.GetFile(path) Set ts = File.OpenAsTextStream(ForWriting, TristateUseDefault) ts.Write ParseResult.ParseResultText.Text ts.Close ParseBrowser.WebBrowser.Navigate path ParseResult.Show ParseBrowser.Show parseerror: If xmlDoc.parseerror.errorCode <> 0 Then MsgBox frmSplash.mess.List(6) + xmlDoc.parseerror.errorCode End If endtransfrom: End Sub
29 déc. 2005 à 17:35
mais le bouton 'Transform' n'apparait que lorsque l'on charge un fichier....
là encore, suprise, tu créé un fichier temporaire, mais sur C:\ (je n'ai toujours pas de lecteur C:\ )
de plus, le WebBrowser, ne s'affiche pas si la sortie est de type text....
29 déc. 2005 à 17:29
29 déc. 2005 à 17:23
fichier non trouvé (il s'agit de label.xml)
ajoutes simplement app.path :
Set ts = fso.OpenTextFile(App.path & "\label.xml", ForReading, False)
29 déc. 2005 à 17:20
après examen du code, je m'apercois avec effroi que tu fais un test d'existence de la dll dans des chemins en dur !!
path = "c:\winnt\system32\msxml4.dll"
.... Windows est chez moi installé sur le lecteur H: (c'est mon droit...)
j'aprecie que tu fasse un test, c'est plus propre qu'un crash
plutot que de tester la disponibilité de la Dll, teste si tu peux créer un object MSXML....
20 déc. 2005 à 12:59
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.