Как проверить XML с помощью XSD(из кода)

[ANDLL]

сабж

[ANDLL]

Ну хорошо. А не из кода? Хоть как-то?

[marvan]

Ну хорошо. А не из кода? Хоть как-то?

XMLSPY 2004 это делает

[ANDLL]

А если из кода? И вообще, где-то написано, что сам IE может проверять XML-файлы на валидность. Так ли це? и в каком теге задаеться элемент верхнего уровня? А то там много одноранговых xsd:element... Даже не ясно, какой из них верхний.

[Scuder]

А MSXML не поможет?

[ANDLL]

В том то и дело. Как это сробить с помощью MSXML?

[ta_gena]

ADO.NET формирует все запросы в стандарте XML. И там есть полный набор процедур для работы с XML.

[Scuder]

В том то и дело. Как это сробить с помощью MSXML?

Ну фиг знает.. Попробуй открыть и пробежаться по нодам первого (второго уровня)..

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

Dim xmlDoc As MSXML2.DOMDocument
Dim i As Long
Dim j As Long

Private Sub Form_Load()

Set xmlDoc = New DOMDocument
xmlDoc.async = False

xmlDoc.Load "c:\MyXML.xml"

For i = 0 To xmlDoc.documentElement.childNodes(0).childNodes.length - 1
        For j = 0 To xmlDoc.documentElement.childNodes(0).childNodes(i).childNodes.length - 1
        Next j
Next i

End Sub

[ANDLL]

Пробежался. А дальше чего? Вопрос, вроде технологический, может microsoft какой парсер выпустила, или нет?

[Scuder]

Пробежался. А дальше чего? Вопрос, вроде технологический, может microsoft какой парсер выпустила, или нет?

Извини, может я чего-то не понял? Но как, например, проверить программный код на синтаксис? Либо визуально (зависит от сложности), либо скомпилить EXE'шник (в этом случае компилятор всё сделает за тебя). Вот и с xml я имел в виду, что нужно её полностью пропарсить. Если все ветки, значения, аттрибуты читаются - разве это не означает, что код xml верен?

[Andrey Fedorov]

Если все ветки, значения, аттрибуты читаются - разве это не означает, что код xml верен?

Это долго и нудно. Проще в той-же XML-ке сохранять, к примеру, контрольную сумму этого файла. И при получении этой XML-ки в другом месте проверять ее. По крайней мере я так и делал, в свое время.

[Scuder]

Это долго и нудно. Проще в той-же XML-ке сохранять, к примеру, контрольную сумму этого файла. И при получении этой XML-ки в другом месте проверять ее. По крайней мере я так и делал, в свое время.

Почему долго и нудно? Один раз код написать более-менее универсальный..

А что делать если XML генерируется каким-нибудь удалённым серваком из БД? И нет возможности дописать контрольную сумму?

[Konst_One]

Это нужно в XML вставить (путь к DTD у тебя свой будет, можно и локальный):

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


<?xml version="1.0" encoding="win-1251"?>
<!DOCTYPE package PUBLIC "-//MyDTD//My Protocol//EN" "http://www.acme.com/my.dtd">

....



А это как все проверить:

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

Dim doc As MSXML2.DOMDocument
Dim xerr As MSXML2.IXMLDOMParseError

Set doc = New MSXML2.DOMDocument
doc.loadXML XMLString
Set xerr = doc.Validate()
If xerr.errorCode <> 0 Then
    With xerr
         Debug.Print "Error: " & .errorCode & " on line " & .Line & " position " & .linepos
         Debug.Print .reason
         Debug.Print .srcText
    End With
End If


[Andrey Fedorov]

Почему долго и нудно? Один раз код написать более-менее универсальный..

Ну попробуй. В XML-ку я могу запихнуть что угодно, включая Recordset-ы. Кроме того по пути могут быть внесены изменения не приводящие к синтаксической ошибке - никакая валидация на это вообще никогда не сработает.

А что делать если XML генерируется каким-нибудь удалённым серваком из БД? И нет возможности дописать контрольную сумму?

Тогда только валидация - тут уже сказали как (сам я не пробовал).

[ANDLL]

2Scuder: Существует единый стандарт XML. Он указывает, что атрибуты беруться в кавычки, теги обязателно должны быть парными и т.п. Если документ не удовлетворяет эти правилам, он просто не парситься(целиком). И метод load(XMLload) возвращает false. А в твоем случае, если ты начинаешь пробегаться по нодам, значит документ уже загружен и отпарсен.
Кроме общего формата существуют еще и отдельные типы файлов, производные от XML. Они, кроме того, что являються XML-документами, еще и имеют определенный набор тегов. Для проверки таких XML документов было разработано аж два стандрата DTD и XSD. И если проверка с помощью DTD заложена в XML-парсере изначально, то вот проверка XSD по-умолчанию не производиться.
По этой причине код, предложенный Konst_One не пройдет.
Т.е. у меня есть локальный XML-документ и есть локальная XSD-схема. Как проверить первый на предмет соответствия второму.

[Konst_One]

на счет XSD ничего посоветовать не могу, юзал только DTD

[Konst_One]

вот нашел в документации по XML SDK:

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

Set oSchemaCache = CreateObject("Msxml2.XMLSchemaCache.4.0")
nsTarget="http://www.example.microsoft.com/po"
oSchemaCache.add nsTarget, "po2.xsd"

Set oDoc = CreateObject("Msxml2.DOMDocument.4.0")
oDoc.async = false
oDoc.validateOnParse = true
set oDoc.schemas = oSchemaCache
oDoc.load "po2.xml"



а там дальше смотри ошибки парсера.

[ANDLL]

Спасибо, Konst_One. Посмотрю, вроде то...