| Вопрос: Создание xml файла | Добавлено: 26.03.07 16:07 |
Автор вопроса:  duk117
|
|
Создаю xml файл:
Dim xmlDoc As New DOMDocument30 Dim xmlChild1 As IXMLDOMNode, xmlChild2 As IXMLDOMNode, xmlRoot As IXMLDOMNode Set xmlRoot = xmlDoc.createNode(NODE_ELEMENT, "Файл", "") xmlRoot.Text = "Русский текст" Set xmlChild1 = xmlDoc.createNode(NODE_ELEMENT, "c1", "") Set xmlChild2 = xmlDoc.createNode(NODE_ELEMENT, "c2", "") xmlChild1.Text = "CH1" xmlChild2.Text = "CH2" xmlChild1.appendChild xmlChild2 xmlRoot.appendChild xmlChild1 xmlDoc.appendChild xmlRoot lsNameFile = "d:\2.xml" xmlDoc.Save (lsNameFile) Вопрос: как сделать так, чтобы в начале был вот такой текст <?xml version="1.0" encoding = "windows-1251"?> |
| Ответы | Всего ответов: 4 |
|
Номер ответа: 1 Автор ответа:  AndreyMp ICQ: 237822510 Вопросов: 28 Ответов: 1182 |
Профиль | | #1 | Добавлено: 26.03.07 16:48 |
|
Set xmlParser = CreateObject("Msxml2.DOMDocument" Это? Статью когда то читал.
'Создание объявления XML xmlParser.appendChild(xmlParser.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'" )
'Создание комментария xmlParser.appendChild(xmlParser.createComment("Текст комментария" )
'Создание корневого элемента Set rootNode = xmlParser.appendChild(xmlParser.createElement("ROOT" )
|
||
|
Номер ответа: 2 Автор ответа: duk117 Вопросов: 2 Ответов: 3 |
Профиль | | #2 | Добавлено: 26.03.07 16:53 |
| Спасибо. | ||
|
Номер ответа: 3 Автор ответа: duk117Вопросов: 2 Ответов: 3 |
Профиль | | #3 | Добавлено: 26.03.07 17:16 |
|
В том же самом примере
пытаю сь установить атрибут: Dim oAttribute As IXMLDOMNode Set oAttribute = xmlDoc.createAttribute("Атрибут"
oAttribute.nodeValue = "4.01" xmlRoot.Attributes.setNamedItem (oAttribute) на последней команде пишет, что объект метод не поддерживается. но ведь он же поддерживается!! |
||
|
Номер ответа: 4 Автор ответа: duk117Вопросов: 2 Ответов: 3 |
Профиль | | #4 | Добавлено: 26.03.07 18:00 |
|
Уже все
Надо xmlRoot.Attributes.setNamedItem oAttribute |
||
Страница: 1 |