Export/import For Views And Forms

07.07.2010, 19:00. **Показов** 23819. **Ответов** 19

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

добрый день

У меня вот такая проблема я незнаю как мне сделать экспорт и импорт для формы и видов !

А. мне надо что формы и виды экспортировать все в разные файлы, тоесть мне надо что каждая форма и вид получил свой файл в XML.

Б. мне надо после экспорта все это импортировать в XPAGE .

как мне это лутше всего сделать?

или возможно ли так сделать ?

Спосибо
Александр

@mvyush · 08.07.2010, 09:06

См. в справке дизайнера классы NotesNoteCollection, NotesDXLExporter, NotesDXLImporter

@otyk86 · 08.07.2010, 10:11

Если не программно, то гляньте тут.

08.07.2010, 12:13

а как сделать чтобы по экспортированию всех видов, каждый вид имел свой XML ?

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
25
26
27
28
29
30
31
32
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

можно этим примером так сделать ?

@hosm · 08.07.2010, 12:26

можно, оно же в отдельный файл каждое пишет. только код и формы отбирает - notes.Selectforms=True

Добавлено: PS не обратила внимания в стартовом, что формы тоже надо

08.07.2010, 12:37

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

можно, оно же в отдельный файл каждое пишет. только код и формы отбирает - notes.Selectforms=True

Добавлено: PS не обратила внимания в стартовом, что формы тоже надо

один вопрос а куда он экспортирует ? в какую папку ?

я навичок так извените меня ))

@tmyky · 08.07.2010, 12:45

Environ("Temp") & "\" & strNoteID & ".dxl"
временная папка ОС (верно тока для винды)
для кроссплатформенности надо слэш ставить, а не бэксэш!

08.07.2010, 12:52

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

Environ("Temp") & "\" & strNoteID & ".dxl"
временная папка ОС (верно тока для винды)
для кроссплатформенности надо слэш ставить, а не бэксэш!

а как сделать что бы можно было видеть ее на компе ?

@hosm · 08.07.2010, 12:59

если код выполняется в серверном агенте, то папка будет на сервере, иначе - на компе того, кто выполняет код, т.е. собственно, у вас)
если у вас установлена переменная окружения Temp, то в ней ищите. Если нет, скорее всего, в рабочем каталоге нотуса будет файлик с цифирьками в имени и расширением ".dxl"

@tmyky · 08.07.2010, 12:59

уточняйте систему! В винде, в проводнике %TEMP% - набрать в адресной строке
ЗЫ: мда - люди зачем-то юзают винду... и МСО..., а знать их не знают, вот я их знаю и не юзаю (наверное именно потому )

08.07.2010, 13:54

у меня все пошло )) вот мой скрипт как я сделал

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
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
 
Views
notes.Selectviews=True
notes.Buildcollection
strNoteID=notes.Getfirstnoteid
Do Until strNoteID=""
Set docDesign=db.Getdocumentbyid(strNoteid)
 
strDXL=objExporter.Export(docDesign)
objStream.Open "C:\DXL\views" & strNoteID & ".dxl"
objStream.Writetext strDXL
objStream.Close
 
strNoteID=notes.Getnextnoteid(strNoteid)
Loop
 
Forms
notes.Selectforms=True
notes.Buildcollection
strNoteID=notes.Getfirstnoteid
Do Until strNoteID=""
Set docDesign=db.Getdocumentbyid(strNoteid)
 
strDXL=objExporter.Export(docDesign)
objStream.Open "C:\DXL\forms" & strNoteID & ".dxl"
objStream.Writetext strDXL
objStream.Close
 
strNoteID=notes.Getnextnoteid(strNoteid)
Loop
 
End Sub

теперь как мне сделать импорт всех файлов в xpage ?
а можно их сразу переделать в xsp формат ?

@turumboy · 08.07.2010, 14:16

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

у меня все пошло ))

поздравляю! лиха беда начало

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

теперь как мне сделать импорт всех файлов в xpage ?
а можно их сразу переделать в xsp формат ?

что имеется в виду под импортом формы в xpage?
хочется для каждой формы сделать xpage с аналогичным функционалом? это врятли.
В теории - пишем xslt по преобразованию dxl->xsp.
На практике - ничего не получица, если на форме есть хоть сколько-нибудь кода( а он там есть всегда )

08.07.2010, 15:22

а что вы мне предложить можете ?
а можно сделать их в CustomControls ?
так пойдет ? или тоже не идет ?

@turumboy · 08.07.2010, 15:55

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

а что вы мне предложить можете ?
а можно сделать их в CustomControls ?
так пойдет ? или тоже не идет ?

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

на пальцах: форма с единственной кнопкой, скрытой по роли, с кодом

Code
1
2
    Dim ws As New NotesUIWorkspace
Call ws.Prompt( PROMPT_OKCANCELLIST , "Preved!" , "Где медвед?" , "тут" , Evaluate( { "там":"тут" } ) )

Как такое конвертить автоматом?

08.07.2010, 16:07

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

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

на пальцах: форма с единственной кнопкой, скрытой по роли, с кодом

Code
1
2
    Dim ws As New NotesUIWorkspace
Call ws.Prompt( PROMPT_OKCANCELLIST , "Preved!" , "Где медвед?" , "тут" , Evaluate( { "там":"тут" } ) )

Как такое конвертить автоматом?

задача у меня счас види и формы которые я экспортировал в DXL
их переделать автоматом в XSP и импортировать их в XPAGE или в CustomControls.

Да и это все должно иди автоматом !!!

такое возможно ?

@turumboy · 08.07.2010, 16:09

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

такое возможно ?

нет

08.07.2010, 17:41

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

нет

а как нибуть можно это сделать ? вручную или через специальные проги ?

@mvyush · 08.07.2010, 17:58

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

а как нибуть можно это сделать ? вручную или через специальные проги ?

вручную — можно (в смысле нарисовать в xpages всё самому, если функционал позволяет)
через специальные проги — если напишите утилиту конвертации form-dxl-xsp-xpages, не забудьте выложить на :lovecodeby: для свободного скачивания

08.07.2010, 18:15

но какой нибуть способ должен быть ?
но как то же луди делают это все в xpage !!
что никак это сделать нельзя ?

@turumboy · 08.07.2010, 18:49

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

но какой нибуть способ должен быть ?
но как то же луди делают это все в xpage !!
что никак это сделать нельзя ?

луди садяца и пишут. ручками. с нуля. т.е жмут в дизайнере "new xpage" и понеслась....
а чтоб вот так взять шаблон discussion от пятерки, нажать кнопку и сгенерить из него шаблон 8.51 - это ни в жизнь.
Если бы в середине прошлого века был интернет и lingvo.ru - все равно бы Пастернак переводил Фауста вручную. А лотусскриптовый код иногда посильнее фауста бывает
Короче: не решается ваша задача в общем случае. Забудьте.

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .

Pykotu

	Export/import For Views And Forms 07.07.2010, 19:00. Показов 23819. Ответов 19 Метки нет (Все метки) добрый день У меня вот такая проблема я незнаю как мне сделать экспорт и импорт для формы и видов ! А. мне надо что формы и виды экспортировать все в разные файлы, тоесть мне надо что каждая форма и вид получил свой файл в XML. Б. мне надо после экспорта все это импортировать в XPAGE . как мне это лутше всего сделать? или возможно ли так сделать ? Спосибо Александр

@mvyush 0 / 0 / 0 Регистрация: 19.04.2009 Сообщений: 2,219
	08.07.2010, 09:06
	См. в справке дизайнера классы NotesNoteCollection, NotesDXLExporter, NotesDXLImporter 0

@otyk86 0 / 0 / 0 Регистрация: 17.12.2008 Сообщений: 420
	08.07.2010, 10:11
	Если не программно, то гляньте тут. 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	08.07.2010, 12:26
	можно, оно же в отдельный файл каждое пишет. только код и формы отбирает - notes.Selectforms=True Добавлено: PS не обратила внимания в стартовом, что формы тоже надо 0

@tmyky 0 / 0 / 0 Регистрация: 23.08.2008 Сообщений: 6,252
	08.07.2010, 12:45
	Environ("Temp") & "\" & strNoteID & ".dxl" временная папка ОС (верно тока для винды) для кроссплатформенности надо слэш ставить, а не бэксэш! 0

@hosm 0 / 0 / 0 Регистрация: 15.05.2009 Сообщений: 1,454
	08.07.2010, 12:59
	если код выполняется в серверном агенте, то папка будет на сервере, иначе - на компе того, кто выполняет код, т.е. собственно, у вас) если у вас установлена переменная окружения Temp, то в ней ищите. Если нет, скорее всего, в рабочем каталоге нотуса будет файлик с цифирьками в имени и расширением ".dxl" 0

Pykotu
	08.07.2010, 15:22
	а что вы мне предложить можете ? а можно сделать их в CustomControls ? так пойдет ? или тоже не идет ?

Pykotu
	08.07.2010, 18:15
	но какой нибуть способ должен быть ? но как то же луди делают это все в xpage !! что никак это сделать нельзя ?