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

[Guest]

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

 

[ksyun]

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

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

 

[Omh]

А наличие чего проверять-то надо?
Может помочь .EmbeddedObjects или .Text

 

[Guest]

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

 

[Guest]

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

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

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

 

[morpheus]

Как определить есть ли что-то в item

isempty()

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

 

[Murtas]

Ссылка скрыта от гостей