1 Тема от admin

  • admin
  • admin
  • Administrator
  • Неактивен
  • Зарегистрирован: 2010-04-07
  • Сообщений: 1,227
  • Репутация : 0

Тема: Проверка валидности XML файла.

Данный скрипт перестал работать....

Sub Click(Source As Button)
    Set oXml = CreateObject("Msxml2.DOMDocument")
    oXml.validateOnParse = True
    localFile$ = "c:\XML\OUT\123.xml"
    oXml.LoadXml(localFile$)
    If oXml.parseError.ErrorCode = 0 Then 
        Print( "XML файл валиден!")  
    Else  
        Msgbox ("Ошибка: " & oXml.parseError.reason & " в строке: " & oXml.parseError.line & " позиция: " & oXml.parseError.linepos)
    End If
            '----            
End Sub

Выдает: Ошибка: Ошибка в элементе верхнего уровня документа. в строке 1 позиция 1.

Поделиться