0 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 23
1

Замена текста на изображение

15.03.2022, 09:44. Показов 386. Ответов 5
Метки нет (Все метки)

В БД после подписания документа нажимая на кнопку "Собрать подписи"
Происходит обработка в LotusScript
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
While Not(sign_doc Is Nothing)
        If sign_doc.Form(0)="Responses" Then
            dateTime.LSLocalTime = sign_doc.Created
            
            If sign_doc.ConsentField(0)="Да" Then 
                Call Sign_Item.AppendToTextList(dateTime.DateOnly & " : " & sign_doc.Stuff(0) & " -- " & sign_doc.FIO(0)  & " (Согласен)")
            End If
            
            If sign_doc.ConsentField(0)="Да (с замечаниями)" Then 
                Call Sign_Item.AppendToTextList(dateTime.DateOnly & " : " & sign_doc.Stuff(0) & " -- " & sign_doc.FIO(0) & " (Согласен с замечаниями)")                 
                Call Sign_Item.AppendToTextList(sign_doc.ConsentDetail(0))      
            End If
            
            If sign_doc.ConsentField(0)="Нет" Then 
                Call Sign_Item.AppendToTextList(dateTime.DateOnly & " : " & sign_doc.Stuff(0) & " -- " & sign_doc.FIO(0) & " (Не согласен) ")     
                Call Sign_Item.AppendToTextList(sign_doc.ConsentDetail(0))                              
            End If
            
            doc.signListNames = doc.Podpis
        End If 
        Set sign_doc = SignColl.GetNextDocument(sign_doc)
    Wend
    Call doc.Save(True,True)

Задача состоит в том, чтобы вместо "(Согласен)" поставить скан подписи сотрудника.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.03.2022, 09:44
Ответы с готовыми решениями:

Замена текста в docx файле на изображение
Добрый день всем, может у кого нибудь остался код. Нужно что бы в документе типа .docx...

Поиск части текста в диапазоне ячеек и замена этого текста на найденное соответсвие
Имеется список адресов, которым нужно присвоить в отдельной ячейке название микрорайона. Есть...

Шифрование текста, табличная замена текста
Один из простейших способов шифровки текста состоит в табличной замене каждого символа другим...

Замена изображение по клику
Написал скрипт, чтоб при нажатии на кнопку, её спрайт менялся на другой. Но почему то изображение...

Замена графической фигуры на изображение
Здравствуйте,я новичок, и решил написать простенькую игру 2D , и решил сначала не заморачиваться и...

5
291 / 76 / 37
Регистрация: 02.02.2013
Сообщений: 298
16.03.2022, 08:00 2
Общий алгоритм прикрепления файла ниже. Далее вы можете его доработать уже с учетом вашей структуры.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
dim item as variant
 
set item = doc.getfirstitem( названия нужного NotesRichText)
 
If item.type = 1 Then '1=richtext
                    Dim object As notesembeddedobject
                    On Error Goto errhandler
                                        'Вложение файла в поле.Где attachfile - полный путь к файлу на диске
                    Set object = item.embedobject(1454, "", attachfile) '1454 = embed_attachment                                
                End If                                        
            End If           
        End If
 
               'не забываем сохранить потом doc
 
        Exit sub
 
errhandler:
        Print "ошибка " & Str(Err) & " ("& Error$(Err) & ")"
end sub
0
0 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 23
16.03.2022, 14:48  [ТС] 3
Отсюда вытекает вопрос...
Как и возможно ли не указывать полный путь к файлу, а брать картинку из Resurces/Images ?

Добавлено через 5 часов 3 минуты
Используя часть указанного кода получилось прикрепить файл картинки, но он отображается как прикрепленный файл.
Мне же нужно, что бы картинка подписи отображалась как часть дизайна без ее названия и возможности ее сохранить.
0
291 / 76 / 37
Регистрация: 02.02.2013
Сообщений: 298
16.03.2022, 20:57 4
Я сам такого не делал, но в интернет видел, что пишут что такое можно сделать с помощью LotusScript

т.е. можно внедрить изображение из Resurces/Images

и можно внедрить просто графический файл с диска как внедренное изображения

например тут

так же можно в интернете найти вроде достаточно много решений как это сделать.
0
0 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 23
17.03.2022, 09:53  [ТС] 5
Цитата Сообщение от Alex Ivanov Посмотреть сообщение
Я сам такого не делал, но в интернет видел, что пишут что такое можно сделать с помощью LotusScript

т.е. можно внедрить изображение из Resurces/Images

и можно внедрить просто графический файл с диска как внедренное изображения

например тут

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

В принципе на базе данного кода получилось сделать вставку картинки с указанием адреса на компьютере, но вопрос по внедрению изображения из Resurces/Images остается открытым.

Visual Basic
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
EmbedPictureIntoRichText = False
                
Dim body As NotesMIMEEntity
Dim header As NotesMIMEHeader
Dim child As NotesMIMEEntity
Dim stream As NotesStream
Dim fileFormat As String
Dim rtitemA As NotesRichTextItem
Dim rtitemB As NotesRichTextItem
                
Set db = doc.Parentdatabase
Set stream = session.CreateStream
Call stream.Open("J:\Рабочая\SYS\Desktop\f.gif")
Set body = doc.CreateMIMEEntity("DummyRichText")
Set header = body.CreateHeader("Content-Type")
Call header.SetHeaderVal("multipart/mixed")
Set child = body.CreateChildEntity() 'Set childEntity = richTextItemObj.CreateChildEntity()
fileFormat = "image/gif" 'Other formats are "image/gif" "image/bmp"
Call child.Setcontentfrombytes(stream, fileFormat, 1730)
Call stream.Close()
Call doc.save(False, False) 'JUST TO REFRESH
Set rtitemA = doc.GetFirstItem("fpo")
rtitemA.Values = "" 
Set rtitemB = doc.GetFirstItem("DummyRichText")
Call rtitemA.AppendRTItem( rtitemB )
Call rtitemB.Remove()
Call doc.save(False, False)
                
EmbedPictureIntoRichText = True
Добавлено через 22 минуты
Так же выяснилось, что при повторном запросе выдает ошибку, что "DummyRichText" уже создан.
0
0 / 0 / 0
Регистрация: 09.01.2014
Сообщений: 23
28.03.2022, 09:34  [ТС] 6
Вопрос так и зависает.
Уже разные варианты пробовал.
Пересмотрел все БД, но данного функционала не нашел.
А очень нужно.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.03.2022, 09:34
Помогаю со студенческими работами здесь

Размытое изображение (замена видеокарты)
Решил сменить видеокарту, купил Geforce 1050ti ASUS. Естественно монитор у меня старый, подключился...

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

Замена кода смайла на его изображение в текстовом поле
Доброй всем ночи ) Делаю вот чат и возник вопрос из смайлами. Как передать текст из смайлами на...

Наложение текста на изображение
Есть задача: сделать карту небольшого городка на основе Google-карт. Для этого нужна небольшая...

Наложение текста на изображение
Добрый день Каким методом и как лучшего всего будет наложить текст на картинку по конкретным...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru