Быстрый способ сохранить все вложения из выделенных документов

[lmike]

вот (по варианту Darker) как-то так, для одного дока:

Function DetachDocFiles(objdoc As NotesDocument, filter As String, filesList List As String) As String
Dim file As String, path As String
Dim fNames As Variant
Dim o As NotesEmbeddedObject

On Error Goto ErrorHandler
Erase filesList

path=Replace(GetNotesTempDirectory(),{\},{/}) & {/}
file=""

fNames=Evaluate("@AttachmentNames(0)", objdoc)
Dim detach As Boolean
Forall a In fNames
Set o=objdoc.GetAttachment(a)
detach=True
If (filter<>"") Then
If Not (Lcase(o.Name) Like filter) Then
detach=False
End If
End If
If detach Then
file=o.Name
filesList(file)=path
Call o.ExtractFile(path & file)
End If
End Forall
If file<>"" Then DetachDocFiles=path & file
Quit:
Exit Function
ErrorHandler:
Call RaiseError()
Erase filesList
Resume Quit
End Function

Добавлено: к path можно добавлять unid

 

[lmike]

поправил код выше и вот:

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

обратить внимание на разделитель путей ("/" - кроссплатформенно)

 

[Darker]

немного подправил код Imike

Function DetachDocFiles(objdoc As NotesDocument, filter As String) As String
Dim file As String, path As String
Dim fNames As Variant
Dim o As NotesEmbeddedObject
On Error Goto ErrorHandler

'Это можно вынести за цикл коллекции
'path=GetNotesTempDirectory()

fNames=Evaluate("@AttachmentNames(0)", objdoc)
Dim detach As Boolean
Forall a In fNames
Set o=objdoc.GetAttachment(a)
file=o.Name
If Iselement(filesList(file)) Then filesList(file)=filesList(file)+1: file=Cstr(filesList(file))+"_"+file' для повторов
If (filter<>"") And (Not (Lcase(o.Name) Like filter)) Then
Call o.ExtractFile(path+file)
'Exit Forall а как же остальные аттачи?
End If
End Forall
If file<>"" Then DetachDocFiles=path & file
Quit:
Exit Function
ErrorHandler:
'	Call RaiseError()
Erase filesList
Resume Quit
End Function

 

[RAJ]

немного подправил код Imike

и чему же теперь равна локальная переменная path?

 

[Darker]

RAJ, предполагалось что она глобальная и была описана вне коллекции, зачем ее постоянно определять в цикле

 

[Akupaka]

предполагалось что она глобальная и была описана вне коллекции, зачем ее постоянно определять в цикле

тогда корректнее сделать ее параметром функции

 

[lmike]

внес доп. изменения path=Replace(GetNotesTempDirectory(),{\},{/}) & {/}

Добавлено:

тогда корректнее сделать ее параметром функции

именно - или не трогать (оставить как написал )



Добавлено:

'Exit Forall а как же остальные аттачи?

выдирал код из др. ф-ции - остались хвосты :newconfus:

 

[Darker]

тогда корректнее сделать ее параметром функции

По мне, передавать в качестве параметра всякий хлам.....
А если другая функция(процедура) будет нуждаться в path

P.S. filter тоже надо было сделать глобальной

 

[lmike]

А если другая функция(процедура) будет нуждаться в path

тогда всё нужно делать глобальным - ага?

 

[Akupaka]

Darker
глобализация - вредный процесс, как в экономике и политике, так и в программировании

 

[Darker]

тогда всё нужно делать глобальным wink.gif - ага?

представляю процедуру call mySub(var1,var2,var3,........,var30), и где-то не совпадение типов

 

[lmike]

иногда накладными расходами (время исполнения, память) можно пренебречь, а вот отлаживать код с глобальными переменными - это "цирк с конями"
выносить filter, в ф-ции общего назначения - это нонсенс

Добавлено:

представляю процедуру call mySub(var1,var2,var3,........,var30), и где-то не совпадение типов

строгой типизацией не пробовали пользоваться?

а еще есть понятия необходимого и достаточного кол-ва аргументов, и корректного разбиения кода на блоки
рефакторинг (есть такое понятие)

 

[Darker]

lmike, нужно заменить 19-й параметр из процедуры, сидеть и считать?

 

[lmike]

lmike, нужно заменить 19-й параметр из процедуры, сидеть и считать?

слишком абстрактно - у меня нет и 5-ти аргументов

 

[nvyush]

Darker
А зачем создавать процедуры с тридцатью параметрами? Если число параметров переваливает за разумные пределы, не лучше ли передавать ссылку на объект класса, а необходимые значения указывать в его свойствах?

 

[lmike]

nvy
я пытаюсь подвести к такой мысли

 

[Akupaka]

не лучше ли передавать ссылку на объект класса

либо структуру

 

[Darker]

я ведь образно... зря указал предел))), думал так внушительнее
nvy, поддерживаю


Akupaka, не было бы моего листинга, не стал бы спорить со старожилами)))

 

[Akupaka]

не было бы моего листинга, не стал бы спорить со старожилам

в споре рождается истина, и красивые решения ))

 

[lmike]

If (filter<>"") And (Not (Lcase(o.Name) Like filter)) Then Call o.ExtractFile(path+file) 'Exit Forall а как же остальные аттачи? End If

и вот в этом куске - не будет выгружаться если фильтр пустой - а это плохо, фильтр для шаблонов отличных от "*", хотя и его позволяет (но like в цикле лишне делать)...
др. словами - излишняя оптимизация, кот. регресивно скажется на производительности
притом - не следует закладываться на оптимизацию if в LDN