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

[11BOSS11]

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

 

[alik86]

Можно что-то типа:

Dim Wsp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = Wsp.CurrentDocument
Call uidoc.GotoField("Name")
Call uidoc.Import

Это если документ открыт на редактирование.

 

[11BOSS11]

Можно что-то типа:

Dim Wsp As New NotesUIWorkspace
Dim uidoc As NotesUIDocument
Set uidoc = Wsp.CurrentDocument
Call uidoc.GotoField("Name")
Call uidoc.Import

Это если документ открыт на редактирование.

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

 

[spartanec]

Call uidoc.Import("JPEG Image", "C:\...\filename.jpg")

 

[11BOSS11]

а вот еще вопросик:
есть допусти м директория,
как мне узнать имена всех файлов находящихся в этой директории?

 

[alik86]

Открыть и посмотреть! :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

 

[ToxaRat]

11BOSS11
а хелп по дизайнеру открыть и посмотреть раздел работа с файлами религия не позволяет?
ко*цензура* Dir

 

[alik86]

ко*цензура*

Очередное веселье... :lovecodeby:

 

[11BOSS11]

а как файлы не импортировать , а атачить?

 

[alik86]

Ну тут я уж пожалуй всецело поддержу ToxaRat --
В частности NotesRichTextItem class посмотрите.

 

[11BOSS11]

все ,все... понял ,.. не кричите ..
спс ,.. бум смотерть.........

Добавлено:

все ,все... понял ,.. не кричите ..
спс ,.. бум смотерть.........

но все же не вижу я как можна приатачить в поле файлы..

 

[Omh]

Капитан Очевидность декларирует: "NotesRichTextItem.EmbedObject"

 

[11BOSS11]

спс

 

[11BOSS11]

	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:
что я неправильно делаю? =(

 

[Omh]

1. Апдейт делай только в конце.
2. Проверь соответсвие имени поля на форме и в скрипте, по идее, всё правильно делаешь.

Ошибки нету никакой??

 

[11BOSS11]

1. Апдейт делай только в конце.
2. Проверь соответсвие имени поля на форме и в скрипте, по идее, всё правильно делаешь.

Ошибки нету никакой??

имя правильное.......
а атачит не в поле , а к доку... :trash:
и ошибки нету.........

 

[Omh]

Покажи весь скрипт: как создаётся док, как задекларена переменная rtitem и т.д.
Кусок который ты привёл, какбэ, правильный.

 

[11BOSS11]

Покажи весь скрипт: как создаётся док, как задекларена переменная rtitem и т.д.
Кусок который ты привёл, какбэ, правильный.

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...

 

[Omh]

Сумбурно однако, неудивительно, что глючит.

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

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 ) в начале нужен, как зайцу стоп-сигнал.

 

[11BOSS11]

Сумбурно однако, неудивительно, что глючит.

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

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) и получаешь аттачи внизу под траурной линией.

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

Добавлено: puth, profiledoc - глобальные переменные? Зачем?
Лишние переменные выпили: rtitem1
Option Declare стоит?
Call doc.Save( True, True ) в начале нужен, как зайцу стоп-сигнал.

ыы.........надо смотреть.........

Call doc.ReplaceItemValue("img", "") - это вообще непонятно что

- это закоментировано