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

  • Автор темы -
  • Дата начала

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

ksyun

Active Member
23.06.2008
30
0
#2
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

Well-Known Member
Lotus team
04.07.2007
2 210
1
#3
А наличие чего проверять-то надо?
Может помочь .EmbeddedObjects или .Text
 

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

Гость
#5
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, а вот если там есть ссылка на документ, пока не получается. Может кто знает?