Использование XML DOM в VB и MS Office/VBA

Листинг 4. Формирование Log-файла со свойствами документов

Public Sub DocPropertyToLogXML(ThisDoc As Object)
    ' Запись информации о закрываемом файле в Log-файл
    Dim xmlDoc As DOMDocument
    Dim xmlLog As DOMDocument
    Dim DocItem As IXMLDOMElement
    Dim logFile$
    logFile = "d:\logfile.xml"    ' имя Log-файла
    '
    ' создаем XMLDOC-объект для текщего документа
    Set xmlDoc = DocPropertiesToXML(ThisDoc)
    
    ' подключаем его к Log-файлу
    ' открываем Log-файл
    Set xmlLog = New DOMDocument
    xmlLog.Load logFile$
    If xmlLog.parseError.errorCode <> 0 Then
       ' файл не был создан, формируем новый
       xmlLog.loadXML "<DocLog/>"
    End If
    Set DocItem = xmlLog.selectSingleNode("//DocLog")
    If xmlLog.selectNodes("//DocProperties").Length > 0 Then
       ' уже есть описания свойств,
       ' вставляем новое описание сверху
       DocItem.InsertBefore _
          xmlDoc.documentElement.cloneNode(True), _
          DocItem.childNodes(0)
    Else   ' вставляем первый элемент
       DocItem.appendChild xmlDoc.documentElement.cloneNode(True)
    End If
    xmlLog.Save logFile ' сохраняем
End Sub

Возврат


Наш канал на Youtube

1999 1 2 3 4 5 6 7 8 9 10 11 12
2000 1 2 3 4 5 6 7 8 9 10 11 12
2001 1 2 3 4 5 6 7 8 9 10 11 12
2002 1 2 3 4 5 6 7 8 9 10 11 12
2003 1 2 3 4 5 6 7 8 9 10 11 12
2004 1 2 3 4 5 6 7 8 9 10 11 12
2005 1 2 3 4 5 6 7 8 9 10 11 12
2006 1 2 3 4 5 6 7 8 9 10 11 12
2007 1 2 3 4 5 6 7 8 9 10 11 12
2008 1 2 3 4 5 6 7 8 9 10 11 12
2009 1 2 3 4 5 6 7 8 9 10 11 12
2010 1 2 3 4 5 6 7 8 9 10 11 12
2011 1 2 3 4 5 6 7 8 9 10 11 12
2012 1 2 3 4 5 6 7 8 9 10 11 12
2013 1 2 3 4 5 6 7 8 9 10 11 12
Популярные статьи
КомпьютерПресс использует