Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Программирование
Войти
Регистрация
Восстановить пароль
 
 
Рейтинг 4.69/194: Рейтинг темы: голосов - 194, средняя оценка - 4.69
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
#1

Как взять с нужной директории винта рисунки и запихнуть в РТ итэм?

28.09.2010, 11:17. Просмотров 34852. Ответов 27
Метки нет (Все метки)

Как взять с нужной директории винта рисунки и запихнуть в РТ итэм? :lovecodeby:
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
28.09.2010, 11:17
Ответы с готовыми решениями:

Как взять адрес нужной перегрузки функции?
Что-то никак не могу сообразить... Надо подключить...

Как создавать файлы в нужной мне директории, а потом работать с этими файлами?
Хочу, чтобы программа создавала файлы в нужной мне директории, а потом работала...

Удалить папку в нужной директории
В общем, проблема такая: в предыдущей теме я спрашивал, как можно очистить...

Как запихнуть запихнуть объект Me в Long?
Как запихнуть Me в Long, а потом достать его? Спасибо?

Легкий вопрос про открытие файла в нужной директории
Когда я открываю текстовый файл например и не прописываю путь к нему, от он...

27
otyk86
0 / 0 / 0
Регистрация: 17.12.2008
Сообщений: 420
28.09.2010, 11:25 #2
Можно что-то типа:

Код
Dim Wsp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = Wsp.CurrentDocument
Call uidoc.GotoField("Name")
Call uidoc.Import
Это если документ открыт на редактирование.
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
28.09.2010, 11:30 #3
Цитата Сообщение от alik86
Можно что-то типа:

Код
Dim Wsp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = Wsp.CurrentDocument
Call uidoc.GotoField("Name")
Call uidoc.Import
Это если документ открыт на редактирование.
ну это с выховом окна диалога.. а в тени как?
я знаю адрес директории и имена файлов..
знаю имя поля......
есть кнопочка, при нажатии которой файлы должны сразу попасть в поле..
0
sportomys
0 / 0 / 0
Регистрация: 24.09.2010
Сообщений: 50
28.09.2010, 11:36 #4
Call uidoc.Import("JPEG Image", "C:\...\filename.jpg")
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
28.09.2010, 11:46 #5
а вот еще вопросик:
есть допусти м директория,
как мне узнать имена всех файлов находящихся в этой директории?
0
otyk86
0 / 0 / 0
Регистрация: 17.12.2008
Сообщений: 420
28.09.2010, 12:04 #6
Открыть и посмотреть! :lovecodeby:



List the contents of the c:\ directory, one entry per line.
Dim pathName As String, fileName As String
pathName$ = "c:\*.*"
fileName$ = Dir$(pathName$, 0)
Do While fileName$ <> ""
Print fileName$
fileName$ = Dir$()
Loop
0
ToxoRot
0 / 0 / 0
Регистрация: 04.11.2007
Сообщений: 3,019
28.09.2010, 12:05 #7
11BOSS11
а хелп по дизайнеру открыть и посмотреть раздел работа с файлами религия не позволяет?
ко*цензура* Dir
0
otyk86
0 / 0 / 0
Регистрация: 17.12.2008
Сообщений: 420
28.09.2010, 12:07 #8
Цитата Сообщение от ToxaRat
ко*цензура*
Очередное веселье... :lovecodeby:
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
28.09.2010, 12:32 #9
а как файлы не импортировать , а атачить?
0
otyk86
0 / 0 / 0
Регистрация: 17.12.2008
Сообщений: 420
28.09.2010, 12:37 #10
Ну тут я уж пожалуй всецело поддержу ToxaRat -- ;)
В частности NotesRichTextItem class посмотрите.
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
28.09.2010, 12:45 #11
все ,все... понял ,.. не кричите ..
спс ,.. бум смотерть.........

Добавлено:


Цитата Сообщение от 11BOSS11
все ,все... понял ,.. не кричите .. ;)
спс ,.. бум смотерть.........
но все же не вижу я как можна приатачить в поле файлы..
0
Omh
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
28.09.2010, 12:47 #12
Капитан Очевидность декларирует: "NotesRichTextItem.EmbedObject"
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
28.09.2010, 13:02 #13
спс
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
29.09.2010, 10:55 #14
LotusScript
1
2
3
4
5
6
    Set rtitem=doc.GetFirstItem("foto")
Call rtitem.Update
Set rtitem = New NotesRichTextItem( doc, "foto" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", puth$+fileName$)
Call rtitem.Update
Call doc.Save( True, True )
я атачю файл в РТполе, но оно прикрепляется не к полю а у самому документу....... :trash:
что я неправильно делаю? =(
0
Omh
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
29.09.2010, 11:31 #15
1. Апдейт делай только в конце.
2. Проверь соответсвие имени поля на форме и в скрипте, по идее, всё правильно делаешь.

Ошибки нету никакой??
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
29.09.2010, 11:37 #16
Цитата Сообщение от Omh
1. Апдейт делай только в конце.
2. Проверь соответсвие имени поля на форме и в скрипте, по идее, всё правильно делаешь.

Ошибки нету никакой??
имя правильное.......
а атачит не в поле , а к доку... :trash:
и ошибки нету.........
0
Omh
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
29.09.2010, 11:43 #17
Покажи весь скрипт: как создаётся док, как задекларена переменная rtitem и т.д.
Кусок который ты привёл, какбэ, правильный.
0
11BOSS11
0 / 0 / 0
Регистрация: 11.07.2010
Сообщений: 180
29.09.2010, 11:48 #18
Цитата Сообщение от Omh
Покажи весь скрипт: как создаётся док, как задекларена переменная rtitem и т.д.
Кусок который ты привёл, какбэ, правильный.


LotusScript
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
47
48
49
50
51
52
53
54
Sub Click(Source As Button)
Dim s As New NotesSession
Dim ws As New NotesUIWorkspace
Dim db As NotesDatabase
Dim UIdoc As NotesuiDocument
Dim doc As NotesDocument
Dim rtitem As NotesRichTextItem
Dim rtitem1 As NotesRichTextItem
 
Set db = s.CurrentDatabase
Set profiledoc=db.GetProfileDocument("setup")
Set UIdoc=ws.CurrentDocument
Set doc=uidoc.Document
 
puth$=profiledoc.tmpdir(0)
If Right(puth$,1)="\" Then
puth$=Left(puth$,Len(puth$)-1)
End If
puth$=puth$+"\tmp\"
 
 
puthName$=puth$ + "*.gif"
fileName$ = Dir$(puthName$, 0)
 
Call doc.Save( True, True )
 
Call UIdoc.GotoField("img")
Set rtitem1 = New NotesRichTextItem( doc, "img" )
Call    uidoc.FieldClear("img")
Call    doc.ReplaceItemValue("img", "")
 
Call UIdoc.Import("gif image", puth$+fileName$)
Call UIdoc.GotoField("foto")
Set rtitem=doc.GetFirstItem("foto")
Call rtitem.Update
Set rtitem = New NotesRichTextItem( doc, "foto" )
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", puth$+fileName$)
Call rtitem.Update
Call doc.Save( True, True )
Do While fileName$ <> ""
Print fileName$
fileNAMEfin$=puth$ & fileName$
Print fileNAMEfin$
Call UIdoc.Import("gif image", fileNAMEfin$)
Call doc.AttachVCard(doc,fileNAMEfin$)
 
Set object = rtitem.EmbedObject ( EMBED_ATTACHMENT, "", fileNAMEfin$)
Call rtitem.EmbedObject ( EMBED_ATTACHMENT, "", fileNAMEfin$)
Call rtitem.Update
Call doc.Save( True, True )
fileName$ = Dir$()
Loop
 
End Sub
Добавлено: при нажатии на кнопку мы имортим в поле img первый файл с извесной нам директории, и все файлы этой директории надо приатачить в рт Итем - foto...
0
Omh
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
29.09.2010, 11:56 #19
Сумбурно однако, неудивительно, что глючит.

Надо бы отделить мух от котлет:
все UI операции типа этих

LotusScript
1
2
3
4
Call UIdoc.GotoField("img")
Call uidoc.FieldClear("img")
Call doc.ReplaceItemValue("img", "") - это вообще непонятно что
Call UIdoc.Import("gif image", puth$+fileName$)
выпилить отседа.

Запомнить, что все операции с ричтекстами присходят в бэкграунд документе и если ты работаешь с ним при открытом uidoc, то после сохранения надо переоткрывать не сохраняя uidoc.

Конкретно в твоём случае, думаю где-то позже ты пересохраняешь doc через uidoc (напримеро по Ctrl + S) и получаешь аттачи внизу под траурной линией.

А вообще код жутковатый :trash:

Добавлено: puth, profiledoc - глобальные переменные? Зачем?
Лишние переменные выпили: rtitem1
Option Declare стоит?
Call doc.Save( True, True ) в начале нужен, как зайцу стоп-сигнал.
0
Omh
0 / 0 / 1
Регистрация: 30.06.2007
Сообщений: 2,153
29.09.2010, 11:58 #20
Цитата Сообщение от 11BOSS11
Добавлено: при нажатии на кнопку мы имортим в поле img первый файл с извесной нам директории, и все файлы этой директории надо приатачить в рт Итем - foto...
Тогда делаем так:
1. импортим в uidoc
2. делаем uidoc.refresh(True)
3. сохраняем doc
4. вкладываем аттачи в док
5. переоткрываем uidoc.
0
29.09.2010, 11:58
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
29.09.2010, 11:58

Нужно вывести с помощью asp список файлов с нужной директории
вопрос в следующем - хочу вывести с помощью asp список файлов с нужной...

где взять такие рисунки?!уверена, они есть в стандартном наборе Word
Здравствуйте! в прикрепленном файле имеется схема, в блоках прикладное ПО,...

Взять все числа с нужной строки
Есть файл txt. На первой строке N и M через пробел (N - кол-во строк ещё) всего...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
20
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru