Присвоить названия поля в название вложения при сохранении на диск

Тема в разделе "Lotus - Программирование", создана пользователем Ренат, 28 май 2015.

  1. Ренат

    Ренат New Member

    Регистрация:
    26 май 2015
    Сообщения:
    1
    Симпатии:
    0
    Привет всем! нашел скрипт который сохраняет все вложения на диск, теперь пытаюсь присвоить названия поля в название вложения, не получается. вот код:

    Код (LotusScript):
    Sub Click(Source As Button)
        Dim session As New NotesSession
        Dim doc As NotesDocument
        Dim db As NotesDatabase
        Dim rtitem As Variant
        Dim filename As String
        Dim collection As NotesDocumentCollection
        Dim form As NotesForm
        Dim queryString As String
     
        Set db = session.CurrentDatabase
        queryString = {Form = "RabDoc"}
        Set collection = db.Search(queryString, Nothing, 0)
        Set doc = collection.GetFirstDocument
     
        While Not doc Is Nothing
            Call session.UpdateProcessedDoc( doc )
            Set rtitem = doc.GetFirstItem( "Appends" )
            If (IsArray(rtitem.EmbeddedObjects)) Then
                ForAll obj In rtitem.EmbeddedObjectS
                    If (obj.Type = EMBED_ATTACHMENT) Then
                        filename = obj.Source
                        Call obj.ExtractFile ( "C:\App\" & filename)
                        Call doc.save(False, False)
                    End If
                End ForAll
            End If
            Set doc = collection.GetNextDocument(doc)
        Wend
    End Sub
     
    #1 Ренат, 28 май 2015
    Последнее редактирование модератором: 28 май 2015
  2. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    filename = obj.name
     
  3. Shandrik

    Shandrik Well-Known Member

    Регистрация:
    30 дек 2010
    Сообщения:
    236
    Симпатии:
    24
    filename = rtitem.Name & "_"& obj.name
    Call obj.ExtractFile ( "C:\App\" & doc.UniversalID & "\" & filename)
     
  4. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.075
    Симпатии:
    300
    /* пространно рассуждая...
    а вот почему есть такая практика - хардкодить пути, и не бывает проверки на существование каталога
     
  5. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    @lmike, потому что подразумевается, что все уже будет.
    А чаще всего: за создание папок отвечают другие люди...
     
  6. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.075
    Симпатии:
    300
    тем более - нечего делать этому в коде
    [DOUBLEPOST=1432826337,1432826280][/DOUBLEPOST]я не к конкретному случаю, просто не раз натыкаюсь на подобное
    [DOUBLEPOST=1432826432][/DOUBLEPOST]нужно временно - ф-ции временных папок и файлов
    нужно постоянно - д.б. настройка (хоть из нотес.ини) но должна быть
     
  7. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.075
    Симпатии:
    300
    и вапще - для того что озвучено - просто выгрузка через SAX без перебора коллекции
     
  8. Shandrik

    Shandrik Well-Known Member

    Регистрация:
    30 дек 2010
    Сообщения:
    236
    Симпатии:
    24
    Интересно! Покажите, как это делается.
     
  9. savl

    savl Lotus team
    Lotus team

    Регистрация:
    28 окт 2011
    Сообщения:
    2.051
    Симпатии:
    146
    @lmike, все приходит с опытом.
     
  10. alexas1

    alexas1 Lotus team
    Lotus team

    Регистрация:
    10 апр 2014
    Сообщения:
    567
    Симпатии:
    214
    @lmike здесь свою базу постил (и там не только сакс).
    Ищите - хороший сабжект.
     
  11. Shandrik

    Shandrik Well-Known Member

    Регистрация:
    30 дек 2010
    Сообщения:
    236
    Симпатии:
    24
    Да сакс-то у меня есть. Мне бы базу. :)
     

    Вложения:

    • 213214535.jpg
      213214535.jpg
      Размер файла:
      294,7 КБ
      Просмотров:
      8
  12. alexas1

    alexas1 Lotus team
    Lotus team

    Регистрация:
    10 апр 2014
    Сообщения:
    567
    Симпатии:
    214
  13. Shandrik

    Shandrik Well-Known Member

    Регистрация:
    30 дек 2010
    Сообщения:
    236
    Симпатии:
    24
    Спасибо!
     
Загрузка...

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