1. Наш канал codeby в telegram. Пишем об информационной безопасности, методах защиты информации, о программировании. Не пропускай новости с кодебай, будь в тренде ! Подробнее ...

    Скрыть объявление

Можно определить, файл прикреплен к доку или к Rtf?

Тема в разделе "Lotus - Программирование", создана пользователем wowa, 18 апр 2008.

  1. wowa

    wowa Well-Known Member

    Репутация:
    0
    Регистрация:
    1 фев 2007
    Сообщения:
    845
    Симпатии:
    0
    Можно определить, файл прикреплен к доку или к RTF?

    вообщем проблема такова...
    Есть один файл, который прикреплен к RTF, и еще один, который прикреплен к документу
    Можно определить файл, который прикреплен к документу?
    Задача немного упрощается тем, что файл, который прикреплен к документу, был прикреплен последним!!


    Я что-то себе набросал типа такого:
    Код:
    Set vNewAttach = Nothing
    Forall item In doc.Items
    If Ucase( item.Name ) = "$FILE" Then
    
    If vNewAttach Is Nothing Then
    Set vNewAttach = item
    Else
    If ( Cdbl(item.LastModified) > Cdbl(vNewAttach.LastModified) ) Then
    Delete vNewAttach
    Set vNewAttach = item 
    End If
    End If
    
    
    End If
    End Forall
    В итоге, vNewAttach - последний прикрепленный файл должен быть, но к сожалению вроде не так...
     
  2. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Аттачи посмотреть можно так: NotesDocument.EmbeddedObjects
    Узнать, к чему прикреплен так: NotesEmbeddedObject.Parent
     
  3. wowa

    wowa Well-Known Member

    Репутация:
    0
    Регистрация:
    1 фев 2007
    Сообщения:
    845
    Симпатии:
    0
    Medevic , ну вот сделал я
    Код:
    Set emoInputAttachment = doc.GetAttachment ( stFileName )
    Set notesRichTextItem = emoInputAttachment.Parent
    КАк проверить прикреплен ли он к документу?
    If notesRichTextItem Is Nothing Then ???????????
    или как ???
     
  4. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Ну да.
    Или просто:
    Код:
    If emoInputAttachment.Parent Is Nothing Then
     
  5. wowa

    wowa Well-Known Member

    Репутация:
    0
    Регистрация:
    1 фев 2007
    Сообщения:
    845
    Симпатии:
    0
    Medevic , что-то у меня все файлы is Nothing
     
  6. Archi2001

    Archi2001 Гость

    Репутация:
    0
    ... я проверял черз "китай" :rolleyes: :
    делал на форме вычисл. скрытое поле:
    @If(@Attachments(@True)!=0;"1";"") ...
    далее, значение поля можно использовать и в скриптах ...
     
  7. Medevic

    Medevic Что это ? :)
    Lotus team

    Репутация:
    0
    Регистрация:
    10 дек 2004
    Сообщения:
    3.346
    Симпатии:
    2
    Действительно. Здесь он всегда будет Nothing. Тогда не знаю.
     
  8. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    Можно сделать так:
    пройти по всем $File и получить ВСЕ аттачменты.
    Потом взять интересующий RT и, проверть на IsArray его .EmbeddedObjects.
    Это и будут аттачменты в RT.
    Все остальные либо у документа, либо в других RT.
     
  9. wowa

    wowa Well-Known Member

    Репутация:
    0
    Регистрация:
    1 фев 2007
    Сообщения:
    845
    Симпатии:
    0
    А как это кодом сделать?
    вот получаю все Аттачменты, вернее их путь (или как надо? )
    Код:
    Forall item In doc.Items
    
    If Ucase( item.Name ) = "$FILE" Then
    
    stFileName = item.Values(0)
    
    Set emoInputAttachment = doc.GetAttachment ( stFileName )
    stFilePath = stTempDirectory & "\" & stFileName
    
    Redim Preserve ausrListFileName( i )
    ausrListFileName( i ) = stFilePath
    i = i + 1
     
  10. wowa

    wowa Well-Known Member

    Репутация:
    0
    Регистрация:
    1 фев 2007
    Сообщения:
    845
    Симпатии:
    0
    Как проверить, данный аттачмент есть уже в RTF ?
     
  11. Omh

    Omh Well-Known Member
    Lotus team

    Репутация:
    0
    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    forall пройтись
     
Загрузка...

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