Полезные Lotus скрипты. (Страница 1 из 2)

Проверка, что в строке 2 слова подряд идут с большой буквы

stroka = "Вася Кооо Мооо мася Коля Петя Толя статсик  dfcbr 111  Юра"
strarr = Split(stroka) ' в массив каждое слово
For xx=1 To Ubound(strarr) ' j - слово
        
If (Ucase(Mid( strarr (xx),1,1)    ) = Mid( strarr (xx),1,1)) And  (Ucase(Mid( strarr (xx-1),1,1)    ) = Mid( strarr (xx-1),1,1)) Then 
'Заглавная первая // добавить проверку что тольк буквы

Msgbox     strarr (xx-1) +"  " + strarr (xx)
End If
Next

Lotus script копирования всех документов с одной базы в текущую по форме

Sub Click(Source As Button)
    Dim session As New NotesSession
    Dim db As NotesDatabase
    Dim dc As NotesDocumentCollection    
    Set db = session.CurrentDatabase
    Dim MUNdb As NotesDataBase
    Dim doc As NotesDocument
    Dim docGSS As NotesDocument
    Set MUNdb = session.Getdatabase("B/i", "O\r\G.nsf")
    Dim formula As String
    formula$ = {Form = "(form3_2ipoteka)"}
    Set dc=MUNdb.Search(formula$,Nothing,0)
    
    
    For i=1 To dc.count
        Set doc = dc.GetNthDocument(i)    
        Set docGSS = doc.CopyToDatabase(db)
    Next
    
End Sub

evaluate - вызов альфа команды с скрипта

Подборка примеров лотусскриптов
cseh.best.vwh.net/lssamples.html

16 бит свободные ресурсы и доступной памяти
Вызов 16 бит GetPrivateProfileString функция , чтобы получить заставки и обои в Windows.
32 бит свободного дискового пространства Funtion вызов в Windows , чтобы проверить Freespace на диске .
32 бит GetPrivateProfileString Funtion вызов с целью получения Заставка и обои
Доступ к свойствам Session Notes
Доступ Примечания Просмотр свойств
Добавить Rich Text через пользовательский интерфейс
Добавить роли Для ACL
Сложите два массива
Добавление переменной в строку для LotusScript Метод поиска
Добавление элемента всех документов с использованием AppendItemValue из NotesDocument
Агент для шифрования документов
Агент используется для создания профиля пользователя -документов из Office Profile документов
Кнопка добавляет вложения RTF
Проверьте и установите атрибутыфайла
Проверьте для серверов вниз
Проверьте указанный сервер , пока есть не отвечает
Проверка валидности вставили документов
Компактные все локальные базы данных < 90% используются
Подсчитайте количество документов в целях
Создайте новый класс для отображения объектов
Создание и отправка почты
Создать класс обработки ошибок
Создание базы данных
Создание базы данных на основе шаблона
Создание новых и измененных
Создание новых и измененных - вызов *
Создание Rich Text Field
Создание Агент поиска
Создание Поиск Agent - вызов *
Создание Агент поиска для поиска в Интернете
Создание рассылки
Создание рассылки - призов *
Ежедневно Дилберт Агент
Удалить все сирот ответные документы
Определите, еслидокумент является профиль документ
Определить количество строк в LS: DO результирующий набор в Notes R4
Определение конца файла с LotusScript
DialogBox называет форму !
Режиссура новых пользователей к особым видом
Дисплей Помощь диалоговое окно
Обработка ошибок с помощью IsOpen
Обработка ошибок с On Error
Обработка ошибок с Open
Последовательность Фибоначчи ибыстрой сортировки (новый)
Заполнение товары с диалогового окна на Открытом Документа !
Нахождение объем свободного пространства на диске, используя LotusScript
Импорт плоским файл
FTP Зеркало
Создать отклика Docs в LotusScipt
Обращение конкретную ошибку
Как можно отобразить текст отдельных ячеек таблицы с помощью LotusScript в Notes R4 ?
Как вы делаете данных импорта / слияние с помощью Lotuscript ?
Как удалить элемент из Textlist области ?
Как добавить возврат каретки в текстовое поле с помощью LotusScript в Notes R4.5x
Как добавлять один RTItem на другой с помощью LotusScript Без Сохранить строки
Как Изменение заголовка на нескольких линии LotusLabel в LotusScript
Как проверить через LotusScript ли это открыть документ в области предварительного просмотра
Как сравнить даты / времени поля, используя Lotuscript .
Как определить, если необязательные аргументы были предоставлены для метода . Выпуск продукта: LSX Toolkit 2.0
Как для отображения документа , что не является текущим Документ , ж / LotusScript
Как получить данные из объекта OLE с помощью Примечания LotusScript Фронтальный методов
Как есть сценарий в Notes R4 Пауза в течение некоторого времени , а затем Продолжить
Как сделать " неудачник " из репликации / сохранить конфликт быть «победитель» ?
Как открыть Навигатор в Notes R4 через LotusScript
Как искать датой валютирования при работе с GetDocumentByKey метод
Как установить часовой пояс для свидание с NotesDateTime класса в Notes R4
Как использовать LotusScript в почту напоминания с Doclink к исходному документу .
Как использовать LotusScript чтобы запретить пользователю Открытие Вид
Как использовать LotusScript NotesItem CopyItem метод
Как использовать @ функций в LotusScript .
Как просмотреть на экранеRich Text Пункт Добавлено через LotusScript
Импортировать текстовый файл в формате Rich Text Пункт через LotusScript
Inport От ODBC ( Технологии Происшествия Пример базы данных )
LotusScript Агент пересчитать Документы по расписанию
LotusScript Примечания AppendRTItem Метод - Копировать RichtextItem Информация шрифта
Низкий уровень , автономные , LotusScript функции,
Манипулирование Rich Text
Примечания R4 , вы пытаетесь добавить имя пользователя в список управления доступом ( ACL ) с помощью LotusScript . При добавлении использование
ODBC соединения с сообщением Box попросить ODBC Источник данных .
Откройте документ в режиме редактирования , если он существует .
Откройте Внештатный Представление через автоматизации
Процент выполнения в сценарии
Выполните полнотекстовый поиск по текущей базе данных. Он посылает пользователю бюллетень со ссылками
Выполнение поиска
Предотвращение Orphan ответов
Тяговая значение из текущей ячейки таблицы С LotusScript
продувки Агент
Нажатие изменения вниз по иерархии
Ссылка других баз данных
Обновить вид изнутри документа с помощью сценария в Notes R4
Обновить Агенту
Обновить авторов или читателей Поля Обновлено помощью LotusScript Админцентр
Перезагрузка Rich Text
Удаление элемента из всех документов в базе данных
Переименование вид Notes с LotusScript ?
Правила создания LotusScript агентов , которые выполняют из веб-браузера
Отбор операторов SQL , которые можно использовать с Notes
Расписанию агент, который придает файл в документах.
Скрипт изменяет элемент на каждом документе , выбранной в целях
Сценарий Библиотеки - Примеры
Поиск Notes баз данных
Поиск в Интернете
Select Case со значениями Enum
Отправка сообщения электронной почты автору текущего документа
Установите диалоговое окно для "всегда -топ"
Поделиться скрипты между элементами в базе данных
Простой тест для Чтение с ODBC источника данных с помощью LotusScript
Простой тест для записи в ODBC источника данных с помощью LotusScript
Что-то , чтобы не упустить с ул $
Этот сценарий кнопка отображает сумму всех полей OrderTotal в базе данных в течение одного дня .
Этот сценарий кнопка полезна в почтовом послании группой лиц .
Обновление поле во всех документах реагирования из поля , которые были изменены в основном документе .
Обновить поле в документах реагирования после его изменения в основном документе ?
Обновите полный текст индекс текущей базе данных.
Использование LotusScript для автоматической Импорт файла в Notes View
Использование LotusScript читать от не- Notes баз данных
Использование LotusScript читать от не- Notes баз данных - Challenge *
Использование LotusScript написать к базе данных , не являющиеся Notes
Помощью объекта LotusScript Data ( LS: DO) методы ошибках
Использование UnprocessedDocuments на всех новых и измененных документов , для модификации элемента состояние каждого документе р
Использование UnprocessedDocuments на всех непрочитанных документов , поставить непрочитанные документы в папку.
Использование UnprocessedDocuments для перебора зрения и , если деталь утверждающий содержит имя текущего пользователя , это таковой
Каковы Недвижимость в LotusScript ?
Какова разница между типа и класса в LotusScript ?
Когда Looping Через ResultSet , While.NextRow не рекомендуется
Работа с Embedded Objects и переменных окружения

Создание нового документа в виде на основе полей выделенного документа

Dim session As New NotesSession
    Dim ws As New NotesUIWorkspace
    Dim db As NotesDatabase
    Dim doc,doc2 As NotesDocument
    Set db = ws.CurrentDatabase.Database    
    
    Dim collection As NotesDocumentCollection
    Set collection = db.UnprocessedDocuments
    Set doc = collection.GetFirstDocument()   'doc - в виде, doc2 - новый
    Set doc2 = db.CreateDocument        
    
    doc2.pole=doc.pole

    Set curdoc = ws.EditDocument(True,doc2)
End Sub

Запрет вставки документов в виды документооборота
На событие Querypaste вешаем

Sub Querypaste(Source As Notesuiview, Continue As Variant)
    continue = False
End Sub

Проверка права открытия документа по ролям

Sub Queryopen(Source As Notesuidocument, Mode As Integer, Isnewdoc As Variant, Continue As Variant)
    Dim session As New NotesSession     
    Dim db As NotesDatabase
    Dim col As NotesDocumentCollection
    Dim nAcl As NotesACL
    Dim firstEntry As NotesACLEntry
    
    Continue = True
    If Isnewdoc Then ' у нового дока не проверять
        Exit Sub
    End If
    If Source.Document.Tip_1(0) = "ДСП" Or Source.Document.Tip_1(0) = "НДП" Then
        Continue = False        
        Set db = session.CurrentDatabase
        Set nAcl = db.ACL
        Set firstEntry = nAcl.GetFirstEntry
        While (Not firstEntry Is Nothing)
            If firstEntry.Name = session.UserName Then
                Forall rol In firstEntry.Roles
                    If rol = "[ДСП_НДП]" Or rol = "[Supervisor]" Then
                        Continue = True                    
                        Exit Sub
                    End If
                End Forall
            End If
            Set firstEntry = nAcl.GetNextEntry(firstEntry) 
        Wend
    End If
End Sub

Проверка, что в множественном поле больше одного значения, можно использовать для проверки, сколько человек рассматривает документ.

Set item = doc.GetFirstItem( "имя поля" )
    Forall v In item.Values
        i=i+1 
    End Forall
If i>1 Then Messagebox("в поле несколько значений!!") : Exit Sub

Добавление значения в текстовое  поле:

str1  = "текст1"
Dim itemh As NotesItem
Set        itemh = newdoc.AppendItemValue( "history", str1 )

Добавление значения в RICH TEXT поле:

str1  = "текст2"
Dim rtitem As Variant
Set rtitem = newdoc.GetFirstItem( "history" )
Call rtitem.AppendText(str1)

Переоткрытие читаемого документа, если он был изменен ранее.

Sub Querymodechange
noteID = Source.Document.NoteID
Set doc = db.GetDocumentByID(noteID)
If doc.LastModified > Source.Document.LastModified Then
        Messagebox "документ был изменён. переоткрываем его"    
        Call Source.Close()
        Set uidoc = ws.EditDocument(True, doc, False)
End If

Если юзер открыл документ на чтение  и решил перевести его в редактирование - он переоткроет его, если он был изменен.
Source.Document - та инстанция, которую видиш ты в текущий момент
doc2 - реальное положение дел с этим документом

Подсчет, сколько записей в поле NotesItem.
В архив не могут слать документ, если документ рассматривают более 1 чела.

    ' ----------   Рассматривают несколько чел
   

Dim item As NotesItem
    xx=0
    Set item = CurDoc.GetFirstItem( "РАССМАТРИВАЕТ_ДОКУМЕНТ" )
    Forall v In item.Values
        xx=xx+1 
    End Forall
    If xx>1 Then Messagebox("Док. рассматривает несколько человек!") : Exit Sub