Создание Документов Из Xml

@Johmtymom · Регистрация: 15.08.2014

Студворк — интернет-сервис помощи студентам

Здравствуйте, подскажите пожалуйста, есть форма на ней поля uName, uId, uDayHolliday. Необходимо написать агента который будет создавать документы для этой формы, а данные брать через xml файл такого содержания:

Code
1
2
3
4
5
6
7
8
<?xml version="1.0" encoding="UTF-8"?>
<note>
<user>
<name>Вася</name>
<id>01</id>
<DayHolliday>10</DayHolliday>
</user>
</note>

Может кто подсказать как это сделать, какой класс лучше использовать, а лучше рабочий примерчик или ссылку с описанием как это делать, только как можно проще и понятнее

07.09.2014, 07:25

NotesDOMParser, NotesSAXParser выбирай что больше подходит.
Примеры есть в лотусовой помощи. Но для того чтобы их понять, надо вообще понимать что из себя представляют DOM и SAX идеология работы с XML. А это платформо-независимое, можно в инете кучу примеров и объяснения найти.

@Johmtymom · 07.09.2014, 12:15

Сообщение от Ty3uK

NotesDOMParser, NotesSAXParser выбирай что больше подходит.
Примеры есть в лотусовой помощи. Но для того чтобы их понять, надо вообще понимать что из себя представляют DOM и SAX идеология работы с XML. А это платформо-независимое, можно в инете кучу примеров и объяснения найти.

С английским не очень хотелось бы простой примерчик посмотреть )

@sovt · 07.09.2014, 12:34

JohnLemon, лучше английский подтянуть, так же хелп в инете есть на русском.

Вот примерчик:
http://searchdomino.techtarget.com/tip/Con...Notes-documents

@tmyky · 07.09.2014, 13:43

мой бубнеж - код по ссылка тяжело читается... стринги надо было выносить в декларации, для переноса строк есть зарезервированные константы (для файлов), а для текста лучше использовать Chr(10), копипаста блоков с ифами (ваще пиндец)
/закончил бубнить

возится с DOM - это писать код на LS, порой, задача сводится к элементарному XSLT , а изучить XSLT будет только +
в случае простого xml, как в топике - да, можно обойтись и DOM
для больших xml - SAX
для всего остального - XSLT

Добавлено: вот один из примеров (не учитывая нек. специфику - там нет нэймспесов, и это - плохо) http://www.oxygenxml.com/archives/xsl-list...3/msg00048.html

Добавлено: вот еще (там же) http://www.oxygenxml.com/archives/xsl-list...3/msg00049.html

@tmyky · 07.09.2014, 13:51

и для отладки и использования очень рекомендую сам инструмент oXygen

Добавлено: решалась обратная задача
но суть д.б. ясна - исключение префиксов из результата (там атрибут есть) т.е. исходных хмл имеет ns кот. будет представлять какбэ домину, в резалт - доминошный

@Johmtymom · 07.09.2014, 14:16

Сообщение от lmike

мой бубнеж - код по ссылка тяжело читается... стринги надо было выносить в декларации, для переноса строк есть зарезервированные константы (для файлов), а для текста лучше использовать Chr(10), копипаста блоков с ифами (ваще пиндец)
/закончил бубнить

возится с DOM - это писать код на LS, порой, задача сводится к элементарному XSLT , а изучить XSLT будет только +
в случае простого xml, как в топике - да, можно обойтись и DOM
для больших xml - SAX
для всего остального - XSLT

Добавлено: вот один из примеров (не учитывая нек. специфику - там нет нэймспесов, и это - плохо) http://www.oxygenxml.com/archives/xsl-list...3/msg00048.html

Добавлено: вот еще (там же) http://www.oxygenxml.com/archives/xsl-list...3/msg00049.html

XSLT меня сейчас убил ничего не понятно стало ) пошел читать неужели примеров попроще ) ?

@tmyky · 07.09.2014, 14:30

XSLT меня сейчас убил ничего не понятно стало

это процедурный язык, там вовсе ничего сложного
шаблон - это так и есть - шаблон поиска, для каждого фрагмента попадающего по него - будет вызван код, кот. и написан (подстановка)
шаблон м.б. вложенным
нэйм-спейс - это то, что позволяет шаблону не замечать др. нс
и что здесь сложного?

@sovt · 07.09.2014, 14:36

JohnLemon
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Код</div></div><div class="sp-body"><div class="sp-content">

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Set inputStr = ses.Createstream()
If Not inputStr.Open(Environ("TEMP") & "\" & "Import.xml") Then
Error 5500, "Не найден файл: " & Environ("TEMP") & "\" & "Import.xml"
End If
 
If inputStr.Bytes = 0 Then
Print DESIGN & " Empty file Import.xml"
GoTo endh
End If
 
Set DOM = ses.Createdomparser(inputStr)
Call dom.Process()
 
Dim docNode As NotesDOMDocumentNode
Dim docElem As NotesDOMElementNode
Dim child As NotesDOMNode
Dim child2 As NotesDOMNode
Dim nextSubl As NotesDOMNode
Dim nextSubl2 As NotesDOMNode
Dim itChild As NotesDOMNode
Dim result As String
 
Print DESIGN & " Создаем/обновляем документы."
 
Set docNode = DOM.Document
If Not docNode.IsNull Then
Set docElem = docNOde.Documentelement
Set child = docElem.Firstchild
Set nextSubl = child.Nextsibling
 
While Not nextSubl.Isnull
Set child2 = nextSubl.Firstchild
Set nextSubl2 = child2.Nextsibling guid
result = ""
 
While Not nextSubl2.Isnull
Set itChild = nextSubl2.Firstchild
If Not itChild.Isnull then
 
Select Case (nextSubl2.Nodename)
Case "DisplayName":
If InStr(itChild.Nodevalue,{,})>0 then
FieldsList("FullName")=FullTrim(StrLeft(itChild.Nodevalue,{,}) & " " &StrRight(itChild.Nodevalue,{,}))
Else
FieldsList("FullName")=itChild.Nodevalue
End if
Case "LastName":
FieldsList("LastName")=itChild.Nodevalue
Case "GivenName":
FieldsList("FirstName")=itChild.Nodevalue
Case "Company":
FieldsList("CompanyName")=itChild.Nodevalue
Case "SMTPAddress":
FieldsList("MailAddress")=itChild.Nodevalue
FieldsList("InternetAddress")=itChild.Nodevalue
Case Else:
End Select
 
End If
 
Set nextSubl2 = nextSubl2.Nextsibling
Set nextSubl2 = nextSubl2.Nextsibling
Wend
 
 
Создание документа
 
Set doc = view.Getdocumentbykey(FieldsList("MailAddress"), true)
 
If Doc Is Nothyng Then
Set doc = db.Createdocument()
Call doc.Replaceitemvalue("Form", "Person")
Call doc.Replaceitemvalue("Type", "Person")
Call doc.Replaceitemvalue("ImportDoc", "Import")
End If
 
ForAll x In FieldsList
Call doc.Replaceitemvalue(ListTag(x), x)
End ForAll
 
Call doc.Save(true,false)
 
FieldsList("FullName")=""
FieldsList("LastName")=""
FieldsList("FirstName")=""
FieldsList("CompanyName")=""
FieldsList("MailAddress")=""
FieldsList("InternetAddress")=""
Set nextSubl = nextSubl.Nextsibling
Set nextSubl = nextSubl.Nextsibling
 
Wend
End If

парситься вот это:

.SpoilerTarget">Спойлер: Раскрывающийся Текст
<?xml version="1.0" encoding="ISO-8859-1"?>
<ContactList Count="">
<Contact>
<GUID></GUID>
<DisplayName></DisplayName>
<LastName></LastName>
<GivenName></GivenName>
<Alias></Alias>
<Username></Username>
<UPN/>
<EmployeeID/>
<DN/>
<Enabled></Enabled>
<Hidden></Hidden>
<Description/>
<PersonalTitle/>
<Title/>
<Street></Street>
<Postcode></Postcode>
<City></City>
<Country></Country>
<Company></Company>
<Department></Department>
<Office></Office>
<PhoneNumber></PhoneNumber>
<FacsymileNumber></FacsymileNumber>
<MobyleNumber/>
<SMTPAddress></SMTPAddress>
<Manager/>
<OtgActive></OtgActive>
<CostCenter/>
<LastLogon/>
<DateCreated></DateCreated>
<DateChanged/>
<DateDeleted/>
<Internal></Internal>
<External></External>
<Portal></Portal>
<Ressource></Ressource>
<Version></Version>
<USN></USN>
</Contact>
</ContactList>

Добавлено: Писалось давно, уже не используется, код вполне рабочий, но не оптимальный.

@Johmtymom · 07.09.2014, 14:43

Сообщение от lmike

и что здесь сложного?

Как его использовать )

Добавлено:

Сообщение от savl

JohnLemon
<div class="sp-wrap"><div class="sp-head-wrap"><div class="sp-head folded clickable">Код</div></div><div class="sp-body"><div class="sp-content">

LotusScript
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
Set inputStr = ses.Createstream()
If Not inputStr.Open(Environ("TEMP") & "\" & "Import.xml") Then
Error 5500, "Не найден файл: " & Environ("TEMP") & "\" & "Import.xml"
End If
 
If inputStr.Bytes = 0 Then
Print DESIGN & " Empty file Import.xml"
GoTo endh
End If
 
Set DOM = ses.Createdomparser(inputStr)
Call dom.Process()
 
Dim docNode As NotesDOMDocumentNode
Dim docElem As NotesDOMElementNode
Dim child As NotesDOMNode
Dim child2 As NotesDOMNode
Dim nextSubl As NotesDOMNode
Dim nextSubl2 As NotesDOMNode
Dim itChild As NotesDOMNode
Dim result As String
 
Print DESIGN & " Создаем/обновляем документы."
 
Set docNode = DOM.Document
If Not docNode.IsNull Then
Set docElem = docNOde.Documentelement
Set child = docElem.Firstchild
Set nextSubl = child.Nextsibling
 
While Not nextSubl.Isnull
Set child2 = nextSubl.Firstchild
Set nextSubl2 = child2.Nextsibling guid
result = ""
 
While Not nextSubl2.Isnull
Set itChild = nextSubl2.Firstchild
If Not itChild.Isnull then
 
Select Case (nextSubl2.Nodename)
Case "DisplayName":
If InStr(itChild.Nodevalue,{,})>0 then
FieldsList("FullName")=FullTrim(StrLeft(itChild.Nodevalue,{,}) & " " &StrRight(itChild.Nodevalue,{,}))
Else
FieldsList("FullName")=itChild.Nodevalue
End if
Case "LastName":
FieldsList("LastName")=itChild.Nodevalue
Case "GivenName":
FieldsList("FirstName")=itChild.Nodevalue
Case "Company":
FieldsList("CompanyName")=itChild.Nodevalue
Case "SMTPAddress":
FieldsList("MailAddress")=itChild.Nodevalue
FieldsList("InternetAddress")=itChild.Nodevalue
Case Else:
End Select
 
End If
 
Set nextSubl2 = nextSubl2.Nextsibling
Set nextSubl2 = nextSubl2.Nextsibling
Wend
 
 
Создание документа
 
Set doc = view.Getdocumentbykey(FieldsList("MailAddress"), true)
 
If Doc Is Nothyng Then
Set doc = db.Createdocument()
Call doc.Replaceitemvalue("Form", "Person")
Call doc.Replaceitemvalue("Type", "Person")
Call doc.Replaceitemvalue("ImportDoc", "Import")
End If
 
ForAll x In FieldsList
Call doc.Replaceitemvalue(ListTag(x), x)
End ForAll
 
Call doc.Save(true,false)
 
FieldsList("FullName")=""
FieldsList("LastName")=""
FieldsList("FirstName")=""
FieldsList("CompanyName")=""
FieldsList("MailAddress")=""
FieldsList("InternetAddress")=""
Set nextSubl = nextSubl.Nextsibling
Set nextSubl = nextSubl.Nextsibling
 
Wend
End If

парситься вот это:

.SpoilerTarget">Спойлер: Раскрывающийся Текст
<?xml version="1.0" encoding="ISO-8859-1"?>
<ContactList Count="">
<Contact>
<GUID></GUID>
<DisplayName></DisplayName>
<LastName></LastName>
<GivenName></GivenName>
<Alias></Alias>
<Username></Username>
<UPN/>
<EmployeeID/>
<DN/>
<Enabled></Enabled>
<Hidden></Hidden>
<Description/>
<PersonalTitle/>
<Title/>
<Street></Street>
<Postcode></Postcode>
<City></City>
<Country></Country>
<Company></Company>
<Department></Department>
<Office></Office>
<PhoneNumber></PhoneNumber>
<FacsymileNumber></FacsymileNumber>
<MobyleNumber/>
<SMTPAddress></SMTPAddress>
<Manager/>
<OtgActive></OtgActive>
<CostCenter/>
<LastLogon/>
<DateCreated></DateCreated>
<DateChanged/>
<DateDeleted/>
<Internal></Internal>
<External></External>
<Portal></Portal>
<Ressource></Ressource>
<Version></Version>
<USN></USN>
</Contact>
</ContactList>

Добавлено: Писалось давно, уже не используется, код вполне рабочий, но не оптимальный.

.SpoilerTarget">Спойлер: Раскрывающийся Текст
Вот за примерчик спасибо покалупаюсь на досуге )

@tmyky · 07.09.2014, 18:12

Сообщение от JohnLemon

Как его использовать )

Добавлено:
Вот за примерчик спасибо покалупаюсь на досуге )

выкладывал здесь код либы, кот. из нотусевого дока делала ПДФ (с оговорками)
основное - там есть и XSLT и DOMparser
все было сделано на классах (где-то корявенько - в части подключения парсера)

@tmyky · 07.09.2014, 18:27

(в россыпи)

@Johmtymom · 07.09.2014, 18:37

Сообщение от lmike

(в россыпи)

Пасиба буду копаться там так много всего )

@tmyky · 07.09.2014, 18:38

там док в html преобразуется (а не ПДФ) - обшибся
в вашем случае на вход преобразованию сувается стрим с xml, второй стрим - это stylesheet (таблица преобразований)
пример демонстрирует цепочку включающую в себя и XSLT и parser после обработки (выдергиваются имеджи и кладутся на диск)

@Johmtymom · 08.09.2014, 06:26

А можно вопрос еще

LF = Chr(13)+Chr(10)

Это для чего делается ?

08.09.2014, 09:14

это перевод каретки (т.е. "интер"), зачастую при импорте XML надо переводы кареток убрать, иначе, при корявом коде, будет текстовое поле импортироваться не за один проход, а за несколько, сотвественно увеличиваются сложности и отслеживание данного дела.

@Johmtymom · 08.09.2014, 11:27

Сообщение от Ty3uK

это перевод каретки (т.е. "интер"), зачастую при импорте XML надо переводы кареток убрать, иначе, при корявом коде, будет текстовое поле импортироваться не за один проход, а за несколько, сотвественно увеличиваются сложности и отслеживание данного дела.

Пасиб ) я так понимаю тут три человека весь форум держат ;)

@tmyky · 08.09.2014, 15:21

Сообщение от JohnLemon

А можно вопрос еще
Это для чего делается ?

на самом деле там много чего "неправильно" и про переводы кареток я писал выше (есть платформенный). Конкретно этот случай - виндовый перевод каретки, в остальных системах он короче - LF = Chr(10)
мало того - мессаджбоксы нотусни кажуть Chr(10) и Chr(13) там просто мешает
еще большой вопрос с кодировкой, кот. не затронута, для винды она UTF-16, но поддерживаются и др., вот с этого места и начинаются проблемы, в др. системах принята основной UTF-8
вощем так... рекомендовал бы пользовать UTF-8 и Chr(10) (в нормальных редакторах и просмотрщиках проблем не будет)

@Johmtymom · 08.09.2014, 19:31

вощем так... рекомендовал бы пользовать UTF-8 и Chr(10) (в нормальных редакторах и просмотрщиках проблем не будет)

Спасибо за помощь, ты мне очень помогаешь в освоении лотуса )

@Johmtymom · 10.09.2014, 10:29

Сделал пока так:

Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
For i = 1 To nDocument
-----------------------------
Set db = ws.CurrentDatabase.Database
Set newDoc = db.Createdocument
newDoc.ReplaceItemValue "Form", "sa"
 
------------------------------------------------
 
Set domlist = domele.GetElementsByTagName("Name")
Set node = domlist.GetItem(i)
newDoc.ReplaceItemValue "Name", node.FirstChild.NodeValue
Msgbox node.FirstChild.NodeValue
Set domlist = domele.GetElementsByTagName("ID")
Set node = domlist.GetItem(i)
newDoc.ReplaceItemValue "ID", node.FirstChild.NodeValue
Msgbox node.FirstChild.NodeValue
Set domlist = domele.GetElementsByTagName("Date")
Set node = domlist.GetItem(i)
newDoc.ReplaceItemValue "Date", node.FirstChild.NodeValue
Msgbox node.FirstChild.NodeValue
--------------------------------------------------
Call newDoc.Save( True, True )
--------------------------------------------------
Next

Подскажите, как лучше проверить на существующую запись в базе @dblookup, db.search ?? и Как прерывать цикл и перейти на следующую "итерацию" Если уже есть документ с таким именем ??

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11680&d=1772460536 Одним из. . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .	Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .
SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .	Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .

ty3uk
	07.09.2014, 07:25
	NotesDOMParser, NotesSAXParser выбирай что больше подходит. Примеры есть в лотусовой помощи. Но для того чтобы их понять, надо вообще понимать что из себя представляют DOM и SAX идеология работы с XML. А это платформо-независимое, можно в инете кучу примеров и объяснения найти.

@sovt 0 / 0 / 0 Регистрация: 27.10.2011 Сообщений: 2,124
	07.09.2014, 12:34
	JohnLemon, лучше английский подтянуть, так же хелп в инете есть на русском. Вот примерчик: http://searchdomino.techtarget.com/tip/Con...Notes-documents 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	07.09.2014, 13:43
	мой бубнеж - код по ссылка тяжело читается... стринги надо было выносить в декларации, для переноса строк есть зарезервированные константы (для файлов), а для текста лучше использовать Chr(10), копипаста блоков с ифами (ваще пиндец) /закончил бубнить возится с DOM - это писать код на LS, порой, задача сводится к элементарному XSLT , а изучить XSLT будет только + в случае простого xml, как в топике - да, можно обойтись и DOM для больших xml - SAX для всего остального - XSLT Добавлено: вот один из примеров (не учитывая нек. специфику - там нет нэймспесов, и это - плохо) http://www.oxygenxml.com/archives/xsl-list...3/msg00048.html Добавлено: вот еще (там же) http://www.oxygenxml.com/archives/xsl-list...3/msg00049.html 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	07.09.2014, 13:51
	и для отладки и использования очень рекомендую сам инструмент oXygen Добавлено: решалась обратная задача но суть д.б. ясна - исключение префиксов из результата (там атрибут есть) т.е. исходных хмл имеет ns кот. будет представлять какбэ домину, в резалт - доминошный 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	07.09.2014, 18:27
	(в россыпи) 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	07.09.2014, 18:38
	там док в html преобразуется (а не ПДФ) - обшибся в вашем случае на вход преобразованию сувается стрим с xml, второй стрим - это stylesheet (таблица преобразований) пример демонстрирует цепочку включающую в себя и XSLT и parser после обработки (выдергиваются имеджи и кладутся на диск) 0

ty3uk
	08.09.2014, 09:14
	это перевод каретки (т.е. "интер"), зачастую при импорте XML надо переводы кареток убрать, иначе, при корявом коде, будет текстовое поле импортироваться не за один проход, а за несколько, сотвественно увеличиваются сложности и отслеживание данного дела.