1
Разработка приложений / Re: LotusScript определение атрибута в DXL. Debug.
« : 15 Апрель 2010, 14:55:52 »
LotusScript
Просмотр сообщений
В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.
Страницы: [1] 2
3
Разработка приложений / Re: LotusScript определение атрибута в DXL. Debug.
« : 25 Март 2010, 12:39:03 »
Есть сервер локальный, как это сделать?
4
Разработка приложений / Re: LotusScript определение атрибута в DXL. Debug.
« : 24 Март 2010, 11:06:40 »
Оказывается все просто (затупил))
node.Attributes
получение значения атрибута:
Set attrs = node.Attributes
attrs.GetItem()
Второй вопрос остается.
node.Attributes
получение значения атрибута:
Set attrs = node.Attributes
attrs.GetItem()
Второй вопрос остается.
5
Разработка приложений / LotusScript определение атрибута в DXL. Debug.
« : 22 Март 2010, 12:30:23 »
для обращения к элементу есть
Dim node As NotesDOMNode
node.NodeName
как обратиться к атрибуту?
Можно как-нибудь произвести пошаговый debug агента lotus? Может какая-нибудь утилита есть...
Dim node As NotesDOMNode
node.NodeName
как обратиться к атрибуту?
Можно как-нибудь произвести пошаговый debug агента lotus? Может какая-нибудь утилита есть...
6
Разработка приложений / Разбиение dxl на несколько файлов
« : 11 Март 2010, 16:33:04 »
Из базы создаю *.dxl файл. Он получается довольно большой.
Как сделать чтобы создавалось несколько файлов? Разбивать на файлы например в зависимости от значения атрибута form
Например есть исходный файл:
чтобы не создавать такой документ, как сделать чтобы было для данного случая два таких
1:
2:
Или может даже лучше будет для каждого form создавать новый файл.
Агент создания файла *.dxl
(Declarations):
Initialize:
walkTree:
ps:
может все просто, но чет я туплю
Как сделать чтобы создавалось несколько файлов? Разбивать на файлы например в зависимости от значения атрибута form
Например есть исходный файл:
Код: [Выделить]
<?xml version="1.0" ?>
<database>
<document form="form1">
...
</document>
<document form="form2">
...
</document>
<document form="form1">
...
</document>
</database>чтобы не создавать такой документ, как сделать чтобы было для данного случая два таких
1:
Код: [Выделить]
<?xml version="1.0" ?>
<database>
<document form="form1">
...
</document>
<document form="form1">
...
</document>
</database>2:
Код: [Выделить]
<?xml version="1.0" ?>
<database>
<document form="form2">
...
</document>
</database>Или может даже лучше будет для каждого form создавать новый файл.
Агент создания файла *.dxl
(Declarations):
Код: [Выделить]
Dim domParser As NotesDOMParser
Dim LF As String
Initialize:
Код: [Выделить]
Sub Initialize
Dim session As NotesSession
Dim db As NotesDatabase
Dim inputStream As NotesStream, outputStream As NotesStream
Dim docNode As NotesDOMDocumentNode
Dim outputFile As String
outputFile = "c:\dxl\dxlhelloworld_dom.xml"
On Error Goto errh
Set session = New NotesSession
Set db = session.CurrentDatabase
'Create the output file
Set outputStream = session.CreateStream
outputStream.Open (outputFile)
outputStream.Truncate
'Build a NoteCollection to limit the export file to documents
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectDocuments=True
Call nc.BuildCollection
'Create the DXL exporter
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter(nc)
exporter.OutputDOCTYPE = False
'Create DOM parser and process
Set domParser = session.CreateDOMParser(exporter, outputStream)
domParser.AddXMLDeclNode = True
exporter.Process
'Get the document node
Set docNode = domParser.Document
Call walkTree(docNode)
results:
Call outputStream.Close
Exit Sub
errh:
outputStream.WriteText ("errh: "+Cstr(Err)+": "+Error+LF)
Resume results
End Sub
walkTree:
Код: [Выделить]
Sub walkTree ( node As NotesDOMNode )
Dim child As NotesDOMNode
Dim attrs As NotesDOMNamedNodeMap
Dim a As NotesDOMAttributeNode
Dim piNode As NotesDOMProcessingInstructionNode
LF = Chr(13) + Chr(10)
If Not node.IsNull Then
Select Case node.NodeType
Case DOMNODETYPE_DOCUMENT_NODE: 'It's the Document node
Set child = node.FirstChild 'Get first node
Dim numChildNodes As Integer
numChildNodes = node.NumberOfChildNodes
'Create an XML declaration for the output
Dim xNode As NotesDOMXMLDeclNode
Set xNode = node.FirstChild
domParser.Output({<?xml version="} + xNode.Version + {" ?>})
'Get the number of children of Document,
'and call walkTree for the first child
While numChildNodes > 0
Set child = child.NextSibling 'Get next node
numChildNodes = numChildNodes - 1
Call walkTree(child)
Wend
Case DOMNODETYPE_DOCUMENTTYPE_NODE: 'It's a <!DOCTYPE> tag
domParser.Output({Document Type node: } + node.NodeName + LF)
Case DOMNODETYPE_TEXT_NODE: 'It's a plain text node
If node.NodeValue <> Chr(10) Then
domParser.Output(node.NodeValue)
End If
Case DOMNODETYPE_ELEMENT_NODE: 'Most nodes are Element nodes
If node.NodeName = "databaseinfo" Then
Exit Sub
End If
If node.NodeName = "noteinfo" Then
Exit Sub
End If
If node.NodeName = "revisions" Then
Exit Sub
End If
If node.NodeName = "updatedby" Then
Exit Sub
End If
domParser.Output({<} + node.NodeName)
Dim numAttributes As Integer, numChildren As Integer
numAttributes = node.attributes.numberofentries
Set attrs = node.Attributes 'Get attributes
Dim i As Integer
For i = 1 To numAttributes 'Loop through attributes
Set a = attrs.GetItem(i)
domParser.Output({ }+a.NodeName + {="} + a.NodeValue + {"})
Next
domParser.Output(">")
numChildren = node.NumberOfChildNodes
Set child = node.FirstChild 'Get child
While numChildren > 0
Call walkTree(child)
Set child = child.NextSibling 'Get next child
numChildren = numChildren - 1
Wend
domParser.Output( {</} + node.nodeName + {>} + LF)
Case DOMNODETYPE_COMMENT_NODE: 'It's a Comment
'domParser.Output({Ignoring node: } + Cstr(node.NodeType) + LF)
Case DOMNODETYPE_PROCESSINGINSTRUCTION_NODE: 'It's a PI node
'domParser.Output({Ignoring node: } + Cstr(node.NodeType) + LF)
Case DOMNODETYPE_CDATASECTION_NODE: 'It's a CDATA section
'domParser.Output({Ignoring node: } + Cstr(node.NodeType) + LF)
Case DOMNODETYPE_ENTITYREFERENCE_NODE: 'It's an entity
'domParser.Output({Ignoring node: } + Cstr(node.NodeType) + LF)
Case Else:
'domParser.Output({Ignoring node: } + Cstr(node.NodeType) + LF)
End Select
End If
End Sub
ps:
может все просто, но чет я туплю
7
Разработка приложений / Создание файла больше 4 гб
« : 09 Март 2010, 11:51:41 »
У меня есть база 5 гб, на ее основе создаю dxl файл,при его создании предварительно создается файл *.tmp, который доходит до 4 гб и дальше никак. . По идеи он должен больше весить, я предполагаю, что в районе 7-10 гб.
Как настроить, чтобы размер не ограничивался 4-мя гигами?
Файловая система NTFS, вроде как она поддерживает файлы больше 4-ех.
В настройках лотуса смотреть или он тут не причем? Может настройки notes.ini?
Как настроить, чтобы размер не ограничивался 4-мя гигами?
Файловая система NTFS, вроде как она поддерживает файлы больше 4-ех.
В настройках лотуса смотреть или он тут не причем? Может настройки notes.ini?
8
Разработка приложений / Re: import lotus.dxl.*
« : 09 Март 2010, 11:32:37 »
Мне не инициалайз еще один надо, а просто еще один документ на подобие этого, но с другим именем
9
Разработка приложений / Re: import lotus.dxl.*
« : 05 Март 2010, 11:54:06 »
Только Notes.jar
Вопрос:
Создал агента, в закладке Object есть элементы Initialize, Terminate, (Options) и др. Как создать еще один элемент типа Initialize?
Вопрос:
Создал агента, в закладке Object есть элементы Initialize, Terminate, (Options) и др. Как создать еще один элемент типа Initialize?
10
Разработка приложений / Re: import lotus.dxl.*
« : 04 Март 2010, 12:55:05 »
А не может такого быть, что lotus.dxl поставлялся только для 4 и 5 версии лотус?
11
Разработка приложений / Re: import lotus.dxl.*
« : 03 Март 2010, 14:14:20 »
Не сохраняет, так что запустить не получается
12
Разработка приложений / Re: import lotus.dxl.*
« : 03 Март 2010, 14:00:22 »
7-ая
пример
DXLExporter - в lotus не видно, в другой IDE (NetBeans) lotus.domino подключаю и все видит, а в лотус дезайнер пишет что такого нет
пример
DXLExporter - в lotus не видно, в другой IDE (NetBeans) lotus.domino подключаю и все видит, а в лотус дезайнер пишет что такого нет
13
Разработка приложений / Re: import lotus.dxl.*
« : 03 Март 2010, 13:09:15 »
Ничего не нашел:(
Если бы нашел, то как их в лотусе подключать? Просто в папку кинуть?
Если бы нашел, то как их в лотусе подключать? Просто в папку кинуть?
14
Разработка приложений / Re: import lotus.dxl.*
« : 03 Март 2010, 10:58:52 »
Не совсем.
хочу вот это скомпилить
http://lotus-notes.ru/content/view/37/54/
но так как lotus.dxl.* не находит, то скомпилить не получается(
хочу вот это скомпилить
http://lotus-notes.ru/content/view/37/54/
но так как lotus.dxl.* не находит, то скомпилить не получается(
15
Разработка приложений / import lotus.dxl.*
« : 02 Март 2010, 15:32:12 »
Пишу агента, необходимо импортировать lotus.domino.*
Пишет, что нет такого(
Что необходимо предпринять?
Пишет, что нет такого(
Что необходимо предпринять?
Страницы: [1] 2