- Код: Выделить всё
<?xml version="1.0" encoding="windows-1251"?>
<xsl:stylesheet version="1.0" xmlns:xsl="http://www.w3.org/TR/WD-xsl">
<xsl:template match="/">
Ответ:
<xsl:if test="root/easycond=1">да</xsl:if>
<xsl:if test="root/easycond=0">нет</xsl:if>
</xsl:template>
</xsl:stylesheet>
И такой модуль:
- Код: Выделить всё
Sub Main()
Dim xmlTemplate As New MSXML2.DOMDocument30
Dim xmlData As New MSXML2.DOMDocument30
If Not xmlTemplate.Load(App.Path & "\template.xsl") Then MsgBox "err1": Exit Sub
If Not xmlData.loadXML("<root><easycond>1</easycond></root>") Then MsgBox "err2": Exit Sub
MsgBox xmlData.transformNode(xmlTemplate)
End Sub
И в последней строке ошибка:марке 'eof' не найден '='.


Собственно, как от этого избавиться.
ОС: WindowsXP, библиотека msxml2.