Вопрос вопросович!

  • Автор темы SOFTOBZOR.ru
  • Дата начала
Статус
Закрыто для дальнейших ответов.
S

SOFTOBZOR.ru

Гость
#1
Все привет.

Доно:

Файл file.exe
Файл file.ini
Файл аfile.wav

Создана БД в которой есть всего 1 документ с полем Attachs куда прегреплены выше перечисленые файлы и типа кнопка [установить]

Задача такая.
При нажатии на эту кнопку все файлы должны извлечся автоматом в директорию lotus/domino/dir
Хорошо если лотус может создать папку dir если нет то прямо в domino.

При этом если усложнить вопрос идеально если в notes.ini пропишится ряд строчек.

А теперь вопрос: Реально ли такое, если реально, то дайте пинка в нудном направлении :) только не в маны, там нифига не нашел.
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#2
<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:36 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:36 )</span><!--QuoteEBegin-->При нажатии на эту кнопку все файлы должны извлечся автоматом в директорию lotus/domino/dir
[snapback]51156" rel="nofollow" target="_blank[/snapback]​
[/quote]
notesEmbeddedObject.ExtractFile(path$)

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:36 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:36 )</span><!--QuoteEBegin-->Хорошо если лотус может создать папку dir если нет то прямо в domino.
[snapback]51156" rel="nofollow" target="_blank[/snapback]​
[/quote]
MkDir path
Здесь, если не ошибаюсь, придется создавать каждую папку (если её нету) в пути. Т.е. сначала lotus, потом domino, потом dir.

<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:36 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:36 )</span><!--QuoteEBegin-->При этом если усложнить вопрос идеально если в notes.ini пропишится ряд строчек.
[snapback]51156" rel="nofollow" target="_blank[/snapback]​
[/quote]
Write
 

DNT

Постоялец форума
Lotus team
12.10.2005
590
7
37
Украина, Одесса
#3
Для: SOFTOBZOR.ru


...

Set rtitem = doc.GetFirstItem( "Attachs" )
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
FileName$ = Cstr(o.Source) ' имя файла
End If
directory_path$ = "c:\lotus\domino\" + dir_name$
Mkdir(directory_path$)
Call o.ExtractFile ( directory_path$ & FileName$ ) 'Извлекаем файло на диск
End If
End Forall

...

и усё
а notes.ini поправить тоже не вопрос
 

GROMILA

Well-Known Member
08.04.2004
297
0
41
Минск
#4
реально,
поищи в helpe дизайнера про
- NotesRichTextItem
- MkDir
- Getting and setting environment variables
 
S

SOFTOBZOR.ru

Гость
#5
Спасибо большое, очень много интересного!!!

Вот еще вопрос, в ini заколбашено

Directory=C:\Program Files\lotus\notes\data

Если просить @Environment("Directory") не фига не возвращает, а если прописать такую строку в ini
$Directory=C:\Program Files\lotus\notes\data то возвращает, как бы выкопать без $
 
S

SOFTOBZOR.ru

Гость
#6
Что то не фурыкает:

Sub Click(Source As Button)

Set rtitem = doc.GetFirstItem( "Attachs" )
dir_name$ = "BRB"
If ( rtitem.Type = RICHTEXT ) Then
Forall o In rtitem.EmbeddedObjects
If ( o.Type = EMBED_ATTACHMENT ) Then
FileName$ = Cstr(o.Source) ' имя файла
End If
directory_path$ = "c:\" + dir_name$
Mkdir(directory_path$)
Call o.ExtractFile ( directory_path$ & FileName$ ) 'Извлекаем файло на диск
End Forall
End If
End Sub
Давлю на кнопу а мне в ответ привет :) Variant does not contain an object
 

Medevic

Что это ? :)
Lotus team
10.12.2004
3 346
2
36
Россия, Калуга
#8
<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 14:27 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 14:27 )</span><!--QuoteEBegin-->Давлю на кнопу а мне в ответ привет Variant does not contain an object

[snapback]51163" rel="nofollow" target="_blank[/snapback]​
[/quote]
Скорее всего на первой строчке. Нету дока. :)
 
S

SOFTOBZOR.ru

Гость
#9
Есть док, все прицеплено.
Что-то не фурыкает.
 

DNT

Постоялец форума
Lotus team
12.10.2005
590
7
37
Украина, Одесса
#10
<!--QuoteBegin-SOFTOBZOR.ru+19:12:2006, 13:52 -->
<span class="vbquote">(SOFTOBZOR.ru @ 19:12:2006, 13:52 )</span><!--QuoteEBegin-->Есть док, все прицеплено.
Что-то не фурыкает.

[snapback]51167" rel="nofollow" target="_blank[/snapback]​
[/quote]

??? :)

Dim Session As New Notessession
Dim db As notesdatabase
Dim doc As notesdocument
Dim NUIW As New notesuiworkspace


Set db = session.CurrentDatabase
Set Doc=NUIW.CurrentDocument.Document 'документ

вот теперь будет, я полагаю
 

Constantin A Chervonenko

Well-Known Member
Lotus team
#11
Вот еще вопрос, в ini заколбашено
Directory=C:\Program Files\lotus\notes\data
Если просить @Environment("Directory") не фига не возвращает, а если прописать такую строку в ini
$Directory=C:\Program Files\lotus\notes\data то возвращает, как бы выкопать без $
"Собачья" Environment возвращает только юзерские ини (т.е. с $), а вот её скриптовая сестрица умеет и системные
 
S

SOFTOBZOR.ru

Гость
#12
Господа всем бонжур!
Помогли здорово!
Работает :)
 
Статус
Закрыто для дальнейших ответов.