Текстовая строка (!DOCTYPE) в DOMDocument

[Rojohn]

Добрый день!
Проблема в присоединении текстовой строки (комментария) определенного вида к документу DOMDocument, при формировании XML-файла. Необходимо присоединить следующую строку:

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

<!DOCTYPE EXPORT SYSTEM "REQUEST_IMPORT.dtd">

С помощью createComment формируется комментарий вида:

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

<!--DOCTYPE EXPORT SYSTEM "REQUEST_IMPORT.dtd"-->

Символы "--" кроме как через прямое редактирование полученного XML как текстового файла, убрать не получается. Может кто-нибудь знает способ?

И ещё один вопрос: Как сохранить XML-файл структурно (в виде дерева), а не одной строкой? Символы переноса строки в IXMLDOM существуют или как-то иначе?
Спасибо!

P.s.: если не по теме - прошу прощения, просьба перенести в тему XML.

[Хакер]

Доктайп это не коммент. Какой смысл использовать createComment?

[Денис]

Извините за оффтоп, но!
Как после такого топика не увериться в существовании информационного поля?
Буквально пару дней назад еще один начал работать с XML и у него тоже все в одну строку писалось и он тоже полез сюда за советом.
А символы из комментариев убирать не рекомендую пока внятно не объясни... те, зачем это понадобилось.

[Rojohn]

А каким способом лучше добавить строку такого вида? Это не должен быть коммент - просто не понимаю, как правильно добавить...

[ANDLL]

[Хакер] :: Оскорбление участников вырезано. Предупреждение Ну при чем тут комментарий? Это notation.

[Rojohn]

Все объекты перебрал - ничего не подходит! Если это node, то должно быть имя, а имя не переваривает "!". Поэтому пока вижу только один способ: вырезать "--" из текстового файла. Или тип документа можно как-то грамотно прописать?

[Antonariy]

CreateNode с параметром NODE_DOCUMENT_TYPE.

[Rojohn]

Спасибо! Мысль хорошая - осталось правильно реализовать:
NODE_NOTATION (12) - DTD нотация
Какой синтаксис формирования нода? Попытался сделать:

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

Dim xmlDoc As DOMDocument
Dim pi As IXMLDOMProcessingInstruction
Dim RD As IXMLDOMElement
Set xmlDoc = New DOMDocument
    Set pi = xmlDoc.createProcessingInstruction("xml", "version='1.0' encoding='windows-1251'")
    xmlDoc.appendChild pi
    Set RD = xmlDoc.createNode(12, "DOCTYPE EXPORT SYSTEM " & Chr(34) & "REQUEST_IMPORT.dtd" & Chr(34), "")
    xmlDoc.appendChild RD
...
xmlDoc.Save (OutFile.Text)


Пишет ошибку:

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

This operation can not be performed with a Node of type NOTATION

Вот ещё:

NODE_NOTATION(12) This node represents a notation in the document type declaration.

You cannot create nodes of type NODE_DOCUMENT, NODE_DOCUMENT_TYPE, NODE_ENTITY or NODE_NOTATION.

Может ноды такого типа создавать нельзя?

[Antonariy]

Походу нельзя. Я-то инфу взял из кнопки F2, а не MSDN, там про такие нюансы не написано.

[Rojohn]

Тогда, наверное, эту строку надо добавлять как текст
И что насчёт второго вопроса о древесном виде сохраненного файла? Кто-нить что-нить знает

[Antonariy]

Тогда, наверное, эту строку надо добавлять как текст

Кэп снимает шляпу

И что насчёт второго вопроса о древесном виде сохраненного файла? Кто-нить что-нить знает

На визуальное форматирование xml-текста библиотеке MSXML начхать целиком и полностью. Она не для этого предназначена.
Но отформатировать этот текст лесенкой самостоятельно — плевое дело.
1) Заменить "><" на ">" & vbCrLf & "<"
2) Объявить счетчик и пройтись в цикле по получившимся строкам
3) При наличии в начале строки "<" счетчик увеличивать, при наличии "</" — уменьшать.
4) Заменять в текущей строке "<" на Space(счетчик * (кол-во символов в табуляции)) & "<"
5) End

[Rojohn]

Тогда, наверное, эту строку надо добавлять как текст

Кэп снимает шляпу

Проблема в том, что текстом можно добавлять в текстовый файл, либо как какой-то текстовый элемент DOCDocument. Первый случай сделаю сам, но это лишний гимор. А как сделать второй пока не знаю! Перед каким способом Кэп снимал шляпу?

И что насчёт второго вопроса о древесном виде сохраненного файла? Кто-нить что-нить знает

На визуальное форматирование xml-текста библиотеке MSXML начхать целиком и полностью. Она не для этого предназначена.
Но отформатировать этот текст лесенкой самостоятельно — плевое дело.
1) Заменить "><" на ">" & vbCrLf & "<"
2) Объявить счетчик и пройтись в цикле по получившимся строкам
3) При наличии в начале строки "<" счетчик увеличивать, при наличии "</" — уменьшать.
4) Заменять в текущей строке "<" на Space(счетчик * (кол-во символов в табуляции)) & "<"
5) End

Спасибо, конечно, за такой подробный алгоритм! Но до него я бы и сам додумался, только вот как бы такая куча дополнительных операций не увеличила время выгрузки в XML! Может тогда проще было бы вместо DOMDocument сразу записывать всё в текстовый файл вручную?

[Antonariy]

Перед каким способом Кэп снимал шляпу?

Именно перед этим.
Лично я всегда создаю документ из строки, в которой уже есть и нотация и процессинговая инструкция, если надо, и корневой элемент.

Любая дополнительная операция увеличит время. Способ формирования XML зависит от того, как и с какими целями вы его используете. Иногда лучше через объектную модель, иногда в виде текста — зависит от ваших алгоритмов.

[Rojohn]

Перед каким способом Кэп снимал шляпу?

Именно перед этим.
Лично я всегда создаю документ из строки, в которой уже есть и нотация и процессинговая инструкция, если надо, и корневой элемент. .

Это как? Изменяя полученный через объектную модель файл или дополняя созданный ранее текстовый файл не используя объектную модель? Ведь, насколько я понимаю, до сохранения файла через .Save кроме стандартных элементов объектной модели ничего добавить нельзя?

Любая дополнительная операция увеличит время. Способ формирования XML зависит от того, как и с какими целями вы его используете. Иногда лучше через объектную модель, иногда в виде текста — зависит от ваших алгоритмов.

Мои алгоритмы достаточно просты: определенные данные из базы MSAccess, определенными SQL-запросами выгружаются в теги XML-подобного формата. Вопрос в другом: какой из двух способов быстрей работает при одинаковом раскладе (особенно на большом массиве данных)? Т.е. есть ли выигрыш в том, чтобы вместо простого текстового файла создавать файл через объектную модель и потом ещё и редактировать, добавляя строки и расставляя символы перехода строки

[Rojohn]

И вообще, какой смысл в этом DOMDocument, если им нельзя сформировать одну из основных строчек файла XML? Думаю просто надо найти как это сделать, должна формироваться!

[Antonariy]

Это как?

И вообще, какой смысл в этом DOMDocument, если им нельзя сформировать одну из основных строчек файла XML?

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

Set doc = New DOMDocument
doc.loadXML "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes""?><root></root>"

А дальше объектной моделью. Не обламываюсь, знаете ли.

Т.е. есть ли выигрыш в том, чтобы вместо простого текстового файла создавать файл через объектную модель и потом ещё и редактировать, добавляя строки и расставляя символы перехода строки

Если писать сразу в файл со всем форматированием да еще с помощью апи, то это будет самое оно.

[Antonariy]

основных строчек

Это строчка опциональная. Основная всего одна — <root></root>.

[Rojohn]

1.Чего-то не срабатывает! Пишу конструкцию:

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

Set xmlDoc = New DOMDocument
      xmlDoc.loadXML "<?xml version=""1.0"" encoding=""windows-1251""?><!DOCTYPE EXPORT SYSTEM ""REQUEST_IMPORT.dtd"">"
      Set parent = xmlDoc.createElement("EXPORT")
      xmlDoc.appendChild parent
      ...
      xmlDoc.Save (OutFile.Text)


Выдаёт без начальных строчек...

2. А с помощью API - это как? Примерчик есть?

[alibek]

А корень где?

[Rojohn]

А корень где?

Вот:

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

Set parent = xmlDoc.createElement("EXPORT")
      xmlDoc.appendChild parent

Мне же нужна переменная, к которой я буду все ноды привязывать...

Есть, конечно, вариант:

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

Set xmlDoc = New DOMDocument
    xmlDoc.loadXML "<?xml version=""1.0"" encoding=""windows-1251""?><!DOCTYPE EXPORT SYSTEM ""REQUEST_IMPORT.dtd""><EXPORT></EXPORT>"
   что-то типо:
   Set new1 = xmlDoc.createElement("HEADER")
   xmlDoc.selectSingleNode("EXPORT").appendChild new1 'Не знаю как правильно написать эту строчку...
   ...
   xmlDoc.Save (OutFile.Text)


[Antonariy]

А с помощью API - это как? Примерчик есть?

CreateFile, примерчика нет, никогда не пользовался.

Не знаю как правильно написать эту строчку...

xmlDoc.documentElement

[Хакер]

CreateFile, ... никогда не пользовался.

[Antonariy]

Что тебя удивило?

[Хакер]

То что ты ни разу не использовал эту функцию и удивило. Функция настолько базовая.

[Antonariy]

Ну как-то Open и fso для файловых операций хватало. Я не делал систем, где это было бы узким местом.

[Хакер]

Эта функция не исчерпывается файловыми операциями.

[Rojohn]

xmlDoc.documentElement

Почти получилось, только теперь ругается на то, что не может найти инструкцию:

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

REQUEST_IMPORT.dtd

А можно без приложения файла .dtd сделать Просто текстом инструкцию написать. Т.к. мне для выгрузки она не нужна, а нужна только для загрузки и не мне.

[Antonariy]

Понятия не имею. В такие дебри XML я еще не залезал.

[Rojohn]

Может кто-нибудь ещё знает? Хакер, например...
Надо-то всего лишь текстовую строку с тегом <!DOCTYPE ...> добавить безболезненно...

Вот скопировал файл .dtd - ошибку не выдаёт, но ничего в файл тоже не пишет. Короче, я так понял, что эта инструкция должна использоваться определённым образом с приложенным файлом сценария. А как текст её можно добавить только "ручками" после создания файла. Если кто-нибудь знает другой способ - будьте так любезны, поделитесь...