Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
...
exporter.Process
...что еcть образ базы? откуда-куда экспортируем? промежуточное преобразование есть/нет?
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\Karts50_dom.xml"
On Error Goto errh
Set session = New NotesSession
Set db = session.CurrentDatabase
Set outputStream =session.CreateStream
outputStream.Open (outputFile)
outputStream.Truncate
Dim nc As NotesNoteCollection
Set nc = db.CreateNoteCollection(False)
nc.SelectDocuments=True
Call nc.BuildCollection
Dim exporter As NotesDXLExporter
Set exporter = session.CreateDXLExporter(nc)
exporter.OutputDOCTYPE = False
Set domParser=session.CreateDOMParser(exporter, outputStream)
domParser.AddXMLDeclNode = True
exporter.Process
Set docNode = domParser.Document
Call walkTree(docNode)
results:
Call outputStream.Close
Exit Sub
errh:
outputStream.WriteText ("errh: "+Cstr(Err)+": "+Error+LF)
Resume results
End Sub1) Проблема будет на поломанном доке. В обработчике можно будет вывести его UNID
Обучение наступательной кибербезопасности в игровой форме. Начать игру!