-
Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
@Attachments
Код:
%REM
*--------------------------------------------
Function AttachmentsName
Description: список имен приложенных файлов
%END REM
Function AttachmentsName(objdoc As NotesDocument) As Variant
AttachmentsName=Evaluate("@AttachmentNames(0)", objdoc)
End Functionо чем это? - сделали выбор (список) - значит известно что выбрал
неэффективный способ использования домины - задача нужна более конкретная
Поставлена задача создать и заполнить текстовый документ конкретным содержанием.
Беда в том, что в документ записывается строковая переменная с кавычками. Я пробовал все вариации и тщетно.
Пробовал объявлять String, Variant, указывал в кавычках и без...
В тексте файла: вместо Привет отображается "Привет"
Беда в том, что в документ записывается строковая переменная с кавычками. Я пробовал все вариации и тщетно.
Пробовал объявлять String, Variant, указывал в кавычках и без...
Код:
Sub Click(Source As Button)
Dim fileNum As Integer
Dim fileName As String
fileName = Inputbox("Укажите имя файла с расширением" & Chr(13)& "Внимание: Ранее существующий файл с соответствующим названием будет удален!")
If Trim(fileName) = "" Then
Msgbox "Не указано имя файла"
Exit Sub
End If
If Instr(fileName, ".") = 0 Then
Msgbox "Не указано расширение файла"
Exit Sub
End If
fileNum = Freefile()
fileName = fileName
'удаляем старое содержимое
Open fileName For Output As fileNum
Close fileNum
'формируем новое содержимое
Dim content As String
content = "Привет"
'записываем новое содержимое
Open fileName For Append As fileNum
Write #fileNum, content
Close fileNum
Dim tmpstr As String
Open fileName For Input As fileNum
Do Until Eof(fileNum)
Line Input #fileNum, tmpstr
Loop
Close fileNum
End SubВ тексте файла: вместо Привет отображается "Привет"
Создал поле типа rich text lite. Настроил его на graphics. Хочу в справочник запихнуть подпись в формате png, а в поле прозрачность автоматически меняется на черный/белый цвет. Как исправить? Необходимо прозрачность сохранить
насколько помню - нотусня, в штатном (РТ) рендерере, не поддерживает "прозрачность", да и ваще - много-чего не поддерживает (индусы мать их)
у них там жопег и бмп (причем левые какие-то), еще в гиф конвертит (при экспорте в ДХЛ) - что только ухудшает ситуацию
[DOUBLEPOST=1428095820,1428095557][/DOUBLEPOST]есть вот такой дебилизм
если устроитHave you ever wanted to use Images with transparent Pixels in Notes and worked around it by setting the Background color of the Picture to the same color of you Form Background? Then this Tip is for you!
All you need is a program you can define a transparent color for you images. I use always MS PowerPoint for this and have not tried other programs but that does not mean that other tools can't do the trick as well. Just - I have yet to find another tool that handles ransparencies
Here is what you do:
a) copy the image you want to have transparency into PowerPoint
b) open the picture toolbar and choose the transparency color picker
c) click the color that you want to make transparent
d) copy the image again
When you now paste it into Lotus Notes, e.g. into a Layout Region, it has maintained the transparency information! Voila!
Even better, if the image you want to copy is a metafile (e.g. *.wmf) and already has some transparency in it, you can exclude steps b) and c).
You can even draw in PowerPoint, group everything together you want to use and copy and paste it into Lotus Notes!
Note: Make sure that the color used for the Transparency (the one that covers the area that is supposed to be transparent) is used ONLY in that specific area, otherwise it might lead to unexpected results with areas partly transparent that are not supposed to, just because they have the same color - e.g. white or black. To avoid this, fill the area with an odd color that you will not have used in your picture (e.g. cyan) before pasting it into PowerPoint. This works exceptional well with black or white borders.
Когда прочитал 1 пункт, сразу подумал, что инструкция будет следующей....
1) Скриншотим форму документа
2) Открываем фотошоп
3) Пипеткой определяем цвет фона
4) открываем пикчу в фотошопе
5) заливаем прозрачность цветом из пипетки
6) вуаля! Прозрачность достигнута
2) Открываем фотошоп
3) Пипеткой определяем цвет фона
4) открываем пикчу в фотошопе
5) заливаем прозрачность цветом из пипетки
6) вуаля! Прозрачность достигнута
Устал разбираться. Есть документ с полем richtext lite. При нажатии на кнопку(находится в документе) вылезает диалог(форма). В диалоге куча полей, среди которых есть аналогичное поле (richtext lite) с таким же названием. При нажатии на ОК из диалога переносятся в документ все значения полей, кроме richtext lite.
Код переноса значения поля richtext lite следующий:
Код переноса значения поля richtext lite следующий:
Код:
Dim item As NotesItem
Set item = dialog.Getfirstitem("ResAttach")
Call item.CopyItemToDocument( doc, "ResAttach" )Есть древовидная вьюха. Создаю родителя и 3 дочерних. Связываю через makeresponse. Потом через Ctrl + X удаляю дочерний элемент. Родительский документ на doc.responses.count возвращает 3, хотя дочерних всего 2 осталось. Хочу кнопку удаления сделать, но удалять правильно, чтобы родитель выдавал фактическое кол-во дочерних доков.
Работ с представлением. Добавил кнопку с хайд-формулой form !="" после чего вылезла странная ошибка про индексы, а потом я вылетел в другое представление. Переоткрыл дизайнер и теперь вижу, что все представления, что я создал в пятницу, исчезли. Формы остались. Просто нет слов
MessageBox ( message [ , [ buttons + icon + default + mode ] [ , boxTitle ] ] )
Default values are:
MB_DEFBUTTON1 = 0 ' First button is default
MB_DEFBUTTON2 = 256 ' Second button is default
MB_DEFBUTTON3 = 512 ' Third button is default
Не дело это ващще - получишь гемор при эксплуатации: emb.view из другой базы привязывается репликой ID. Реплика базы поменяется (напр. при переносе на другой комп честной копией) - вьюшка исчезнет (надо будет в дизайнере перевыбирать). Есть костыли, но ИМХО - не надо.
я не собираюсь переносить базу. Всегда в одном месте лежать будет. Кстати, в администраторе после Sign и fix up база появилась в выборе.
[DOUBLEPOST=1428328240,1428328159][/DOUBLEPOST]Возникла проблема с генерацией текстового файла.
Лотус штампует в ANSI, а мне надо UTF-8 (желательно без BOM).
Такое реально организовать?
Наткнулся на someString.getBytes("UTF-8"))
Но это java и я вообще не понимаю, что это за stream такой и как с ним работать
Но это java и я вообще не понимаю, что это за stream такой и как с ним работать
не кроссплатформенно
могут быть разные неожиданности
надо анализировать - где файл будет использоваться
После вызова notesuiworkspace.dialogbox появляются пустые документы без формы. Я сохраняю только документ, в который выкладываю поля из диалога, а в конце вызова метода (диалога) прописываю dialog.remove(True), но пустые документы все равно остаются. Что делать? dialog.RemovePermanently( true) тоже не помогает
Нарисуй в форме dialogbox скрытое поле с именем SaveOptions и дай ему DefaultValue = "0" (ноль).
Ничо сохраняться не будет.
dialog.remove(True) dialog.RemovePermanently( true) - лишне. Нельзя удалить док из самого дока, тока снаружи (агентом, напр.)
Обучение наступательной кибербезопасности в игровой форме. Начать игру!