Как добавить DOCTYPE в Xml

[sargio]

собственно сабж?

[Igor_123]

Примерно так:
[code="vb"]
...
Dim Xml As New DOMDocument30
Dim prin As IXMLDOMProcessingInstruction
Set prin = Xml.createProcessingInstruction("xml", "version = '1.0' encoding = 'windows-1251'")
Xml.appendChild prin
...[code]

[sargio]

Примерно так:
[code="vb"]
...
Dim Xml As New DOMDocument30
Dim prin As IXMLDOMProcessingInstruction
Set prin = Xml.createProcessingInstruction("xml", "version = '1.0' encoding = 'windows-1251'")
Xml.appendChild prin
...[code]

Нет. нужна строчка вида

<!DOCTYPE "my.dtd">

[Igor_123]

Ыщо одна подсказка.
То что я дал делает такую строку:
<?xml version="1.0" encoding="windows-1251"?>

Как насчет по-эксперементировать для получения нужного результата???

Ну и MSDN никто не отменял.

Удачи

[sargio]

Ыщо одна подсказка.
То что я дал делает такую строку:
<?xml version="1.0" encoding="windows-1251"?>

Как насчет по-эксперементировать для получения нужного результата???

Ну и MSDN никто не отменял.

Удачи

Я не просто так спросил.
В том то и дело, что не нашел для Vb есть, для VBA нет.

[Igor_123]

Код который я тебе дал без изменений работает и на VBA
Давай спортируем твой пример.

[sargio]

Код который я тебе дал без изменений работает и на VBA
Давай спортируем твой пример.

Наверно ты не понял или я плохо объяснил.
То что ты кинул действительно работает на VBA - никто не спорит
Проблема в полчении первых строк XMl вида

Код: Выделить всё

<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE excel SYSTEM "../dtd/navisonxml.dtd">


Нашел что то похожее но не совсем то, создается DTD внутри документа

Код: Выделить всё

[Visual Basic]
Option Explicit
Option Strict

Imports System
Imports System.IO
Imports System.Xml

Public Class Sample
   
    Public Shared Sub Main()
        'Create the XmlDocument.
        Dim doc As New XmlDocument()
       
        'Create a document type node and 
        'add it to the document.
        Dim doctype As XmlDocumentType
        doctype = doc.CreateDocumentType("book", Nothing, Nothing, "<!ELEMENT book ANY>")
        doc.AppendChild(doctype)
       
        'Create the root element and
        'add it to the document.
        doc.AppendChild(doc.CreateElement("book"))
       
        Console.WriteLine("Display the modified XML...")
        doc.Save(Console.Out)
    End Sub 'Main
End Class 'Sample



[sargio]

Код который я тебе дал без изменений работает и на VBA
Давай спортируем твой пример.

пример. выше

[Igor_123]

В общем вот пример.
Только с этим доктайпом такой гемморой.

Погляди.

Ну и если ещё нужно.