Domino 9 und frühere Versionen > ND8: Entwicklung

Export/import von Ansichten und Masken

<< < (3/4) > >>

bikerboy:
Peter ist schon auf dem richtige Weg mit seinem Halbwissen.

NotesNoteCollection über die NotesDatabase-Klasse erstellen lassen, dabei kannst du dann die Flags für Masken und Ansicht/Ordner setzen und dann exportierst du das ganze über den NotesStream in eine Datei.

Dann hast du den Export.

Der Import ist ebenso simpel wie birnig, da musst du nur drauf achten wie du die Importoptions in der Klasse NotesDXLImporter setzt, da gibt es nämliche ein fürs Update. Wobei wenn du die Masken in eine andere DB importieren willst darfst du kein Update verwenden.

Fedaykin:
Hallo Alex

Hier ein Beispiel für Export (so mach ich das).


--- Code: ---Sub Initialize()
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docDesign As NotesDocument
Dim notes As NotesNoteCollection
Dim objExporter As NotesDXLExporter
Dim objStream As NotesStream
Dim strNoteID As String
Dim strDXL As String

Set db=session.Currentdatabase
Set objStream=session.Createstream
Set notes=db.Createnotecollection(False)
Set objExporter=session.Createdxlexporter

notes.Selectviews=True
'notes.Selectfolders=True
notes.Selectforms=True

notes.Buildcollection
strNoteID=notes.Getfirstnoteid
Do Until strNoteID=""
Set docDesign=db.Getdocumentbyid(strNoteid)

strDXL=objExporter.Export(docDesign)
objStream.Open Environ("Temp") & "\" & strNoteID & ".dxl"
objStream.Writetext strDXL
objStream.Close

strNoteID=notes.Getnextnoteid(strNoteid)
Loop
End Sub
--- Ende Code ---

Gruss
Remo

Pikolu:

--- Zitat von: Fedaykin am 05.07.10 - 15:16:18 ---Hallo Alex

Hier ein Beispiel für Export (so mach ich das).


--- Code: ---Sub Initialize()
Dim session As New NotesSession
Dim db As NotesDatabase
Dim docDesign As NotesDocument
Dim notes As NotesNoteCollection
Dim objExporter As NotesDXLExporter
Dim objStream As NotesStream
Dim strNoteID As String
Dim strDXL As String

Set db=session.Currentdatabase
Set objStream=session.Createstream
Set notes=db.Createnotecollection(False)
Set objExporter=session.Createdxlexporter

notes.Selectviews=True
'notes.Selectfolders=True
notes.Selectforms=True

notes.Buildcollection
strNoteID=notes.Getfirstnoteid
Do Until strNoteID=""
Set docDesign=db.Getdocumentbyid(strNoteid)

strDXL=objExporter.Export(docDesign)
objStream.Open Environ("Temp") & "\" & strNoteID & ".dxl"
objStream.Writetext strDXL
objStream.Close

strNoteID=notes.Getnextnoteid(strNoteid)
Loop
End Sub
--- Ende Code ---


--- Ende Zitat ---

Hallo Remo,

Wenn ich dein Beispiel benutze, passiert bei mir nicht. Aber Danke für Beispiel

Alex

Thomas Schulte:
Definiert doch einmal "macht nichts" etwas genauer.

Thomas Schulte:
Davon abgesehen. Teil A deiner Aufgabe geht ja.
Hinweis wegen geht nicht: Schau dir in der Hilfe mal an was "Environ" so tut. Und dann überleg noch einmal warum du keine Ergebnisse siehst.

Aber Teil B? Automatisch? Das wäre cool.
Und wenn man es denn realisieren könnte dann sicher nicht als Praktikant mit 0 Vorwissen und einem in Aussicht gestellten Ausbildungsplatz. Könntest du das nämlich, dann würdest du eine MENGE Kohle verdienen können.

Sorry aber da verarscht entweder dich jemand, oder du willst uns ver....en.

Navigation

[0] Themen-Index

[#] Nächste Seite

[*] Vorherige Sete