1 Тема от admin

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

Тема: Парсим XML и записываем в определенный тег свои данные.

Идея куска скрипта  - распарсить XML и записать в нужный тег свои данные.
Я хотел вытягивать с базы с лотус дока файл шаблона XML для письма/приказа/....  и в  него вставлять данные с открытого лотус документа. 

If    docNode.ParentNode.NodeName = "container"     And docNode.Nodename = "destinations"    Then '  Адресат
            Print     docNode.Nodename
    'tmpstr =     Chr(FF048) + |Destination>&lt;LegalEntity><KodOrgOut>123</KodOrgOut><NameOrg></NameOrg><StructuralSubdivision></StructuralSubdivision><Post></Post></LegalEntity><FIO></FIO></Destination>|
            'docNode.FirstChild.NodeValue =tmpstr
            
            Set newDocNode = docrootnode.CreateElementNode("Destination")
            Call docNode.AppendChild(newDocNode)
            Set newTextNode = docrootnode.CreateTextNode("456")
            'Call docNode.AppendChild(newTextNode)
            If docNode.HasChildNodes Then
                Print "дочка!"
                'Set DocNode =  docNode.FirstChild 
                'Set newDocNode = docrootnode.CreateElementNode("xxx")
                'Call docNode.AppendChild(newDocNode)
            End If
            Set newDocNode = docrootnode.CreateElementNode("LegalEntity")
            Call docNode.AppendChild(newDocNode)
            Set newTextNode = docrootnode.CreateTextNode("123йцу")
            Call docNode.AppendChild(newTextNode)
        End If
    End If

Поделиться