Форум компьютерной помощи — Dom деревья в lotus

Re: Dom деревья в lotus

null@example.com (admin) — Thu, 24 Nov 2016 09:52:09 +0000

ОБРАТНЫЙ ПРОХОД ПО ВСЕМ TR с проходом по всем дочерним TD. Так же получаем значения всех атрибутов TR.

  ' ОБРАТНЫЙ ПРОХОД ПО ВСЕМ TR
                    Set child =  tmpDocNode2.LastChild   'child - NotesDOMNode - узел  tr
                    'Print    "child.NodeName:"  &  child.NodeName   ' tr
                    
                    
                    For x = numChildNodes To 1 Step -1 ' 
                        Print    "узел child = "  & child.NodeName
                        
                        tdNodes = child.NumberOfChildNodes  ' TD
                        Print "tdNodes:" & Cstr(tdNodes)
                        Set tdDOMNoda = child.FirstChild
                        While tdNodes > 0
                            Print "td:" & tdDOMNoda.NodeName & tdDOMNoda.FirstChild.NodeValue
                            Set tdDOMNoda = tdDOMNoda.NextSibling
                            tdNodes = tdNodes-1
                        Wend
                        
                        Set attrs = child.Attributes
                        Print "атрибутов:"  & attrs.NumberOfEntries
                        For j = 1 To attrs.NumberOfEntries
                            Set a = attrs.GetItem( j )   '  NotesDOMAttributeNode - атрибут
                            Print    "атрибут:"  &     a.AttributeName  & ". значение:" & a.AttributeValue
                        Next
                        
                        Set child = child.PreviousSibling    
                    Next

Re: Dom деревья в lotus

null@example.com (admin) — Thu, 24 Nov 2016 06:48:54 +0000

Пример прямого прохода по структуре типа:


Лог



Время Событие


2016-09-20 11:08:49 Ваш файл <<1201692011534.xml>> с заголовком: <<Тестовый документ в Правительство 4 - 20 сент.>> и регистрационным номером <<01-01-09/487>> направленный на <<>> был зарегестрирован под номером <<38018>>
2016-09-26 09:53:21 Ваш файл <<a4aortfcp8.xml>> с заголовком: <<12344545>> и регистрационным номером <<01-01-37/12345>> направленный на <<test>> был зарегестрирован под номером <<465018>>

Время	Событие
2016-09-20 11:08:49	Ваш файл <<1201692011534.xml>> с заголовком: <<Тестовый документ в Правительство 4 - 20 сент.>> и регистрационным номером <<01-01-09/487>> направленный на <<>> был зарегестрирован под номером <<38018>>
2016-09-26 09:53:21	Ваш файл <<a4aortfcp8.xml>> с заголовком: <<12344545>> и регистрационным номером <<01-01-37/12345>> направленный на <<test>> был зарегестрирован под номером <<465018>>

Лотус скрипт:

Dim domParser As NotesDOMParser
    Dim docNode As NotesDOMDocumentNode
    Dim tmpDocNode As  NotesDOMElementNode
    Dim tmpDocNode2 As NotesDOMNode
    Dim DOMNodeList As NotesDOMNodeList
    Dim child As NotesDOMNode
    Dim a As NotesDOMAttributeNode
    Dim attrs As notesdomnamednodemap
    Dim numChildNodes As Integer


Call strm.Open(localFile$, "UTF-8" )
Set domParser=session.CreateDOMParser(strm, outputStream)
Print "Старт domParser.Process"
domParser.Process
                    
Set docNode = domParser.Document   ' NotesDOMDocumentNode  (вершина дерева)
Set DOMNodeList = docNode.GetElementsByTagName("tbody")
Print  "записей:" &  Cstr(DOMNodeList.NumberOfEntries)
Set tmpDocNode = DOMNodeList.GetItem(1)   'tbody
Print tmpDocNode.TagName      '  NotesDOMElementNode - элемент    tbody
Set tmpDocNode2 = tmpDocNode
numChildNodes = tmpDocNode2.NumberOfChildNodes
Print "numChildNodes:"  &  Cstr(numChildNodes)

ПРЯМОЙ ПРОХОД ПО ВСЕМ TR

Set child =  tmpDocNode2.FirstChild    'NotesDOMNode - узел  tr
While numChildNodes > 0
                        Print    "узел child = "  & child.NodeName
                        Set attrs = child.Attributes
                        Print "атрибутов:"  & attrs.NumberOfEntries
                        For j = 1 To attrs.NumberOfEntries
                            Set a = attrs.GetItem( j )   '  NotesDOMAttributeNode - атрибут
                            Print    "атрибут a:"  &     a.AttributeName  & ". значение:" & a.AttributeValue
                        Next
                        Set child = child.NextSibling 
                        numChildNodes = numChildNodes - 1 
                    Wend

Dom деревья в lotus

null@example.com (admin) — Tue, 22 Nov 2016 14:26:42 +0000

NotesDOMDocumentNode - вершина Dom дерева

NotesDOMNodeList - все узлы
NotesDOMNode - узел в дереве

NotesDOMEIementNode - элемент
NotesDOMAttributeNode - атрибут в NotesDOMEIementNode.

Узлу можно присвоить элемент.
Пример:

    Dim tmpDocNode As  NotesDOMElementNode
    Dim tmpDocNode2 As NotesDOMNode
....
    Set tmpDocNode2 = tmpDocNode