Как определить есть ли в Rtf поле, что-либо?

Тема в разделе "Lotus - Программирование", создана пользователем -, 11 фев 2009.

  1. Гость

    По средствам какого механизма можно определить наличие "чего-либо" в RTF-поле?
    Через Представления к RTF-полю не достучатся, а вот как через агент можно это сделать не знаю:(
    Помогите, pls.
    P.S. Заранее примного благодарен.
     
  2. ksyun

    ksyun Active Member

    Регистрация:
    23 июн 2008
    Сообщения:
    30
    Симпатии:
    0
    Function getFiles (doc As NotesDocument, itemname As String) As Variant
    Dim files() As String
    Redim files(1, 0)
    Dim rtitem As Variant
    Set rtitem = doc.GetFirstItem(itemname)
    i% = 0
    If ( rtitem.Type = RICHTEXT ) Then
    If rtitem.EmbeddedObjects <> Null Then
    Forall o In rtitem.EmbeddedObjects
    If ( o.Type = EMBED_ATTACHMENT ) Then
    Redim Preserve files(1, i%)
    files(0, i%) = o.Name
    files(1, i%) = Cstr(o.FileSize)
    i% = i% + 1
    End If
    End Forall
    End If

    End If

    вот так я аттачменты оттуда смотрела (на предмет изменились они или нет, для лога).. мож поможет)
     
  3. Omh

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    А наличие чего проверять-то надо?
    Может помочь .EmbeddedObjects или .Text
     
  4. Гость

    У меня в поле может быть как текст, так и ссылка при помощи EMBED_OBJECT (1453), я надеюсь определить наличие "чего-либа". Главное не пустое место.
     
  5. Гость

    А если item пустой, он даже не зайдет проверить - rtitem.Type. Говорит "Object variable not set!" :( Как определить есть ли что-то в item? Is Nothing, Isnull не работают :(
    Наличие текста, я научился определять - If Doc.GetItemValue("ContractLink")(0)<>"" Then, а вот если там есть ссылка на документ, пока не получается. Может кто знает?
     
  6. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    isempty()

    можно попробовать взять размер итема
     
  7. Murtas

    Murtas Well-Known Member

    Регистрация:
    11 апр 2006
    Сообщения:
    123
    Симпатии:
    0
Загрузка...

Поделиться этой страницей