Вверх ↑
Ответов: 11
Рейтинг: 0
#1: 2008-03-03 13:35:00 ЛС | профиль | цитата
avo писал(а):
avo,немного причесал

Нужно добавить прибавление единицы в переборе файлов, ато цикл начинается с нуля и прогресс файлов не доходит но конца, и по окончанию добавил вывод сообщения об окончании. В старом я добавил, а здесь еще не нашел.
------------ Дoбавленo:

Добавил... Только файлики прикреплять я не могу Это не вся схема, а только кусок Копирование).

#sha
Add(MultiElementEx,13921687,238,126)
{
@Hint=#12:копирование |
}
BEGIN_SDK
Add(EditMultiEx,534635,21,21)
{
WorkCount=#6:doEnum|
EventCount=#8:onEvent3|8:onEvent1|
VarCount=#5:Index|
DataCount=#7:Sub_str|4:Dest|4:Flag|5:Array|
Width=394
Height=227
link(doEnum,10734934:doEnum,[(35,27)(35,111)])
link(Index,6179399:Result,[(27,228)(139,228)])
}
Add(Hub,2024262,154,112)
{
OutCount=3
link(onEvent1,887180:doReplace,[])
link(onEvent2,12393068:doCopy,[(211,125)(211,188)])
link(onEvent3,534635:onEvent3,[(254,132)(254,27)])
}
Add(FileTools,12393068,259,175)
{
link(NewFileName,679930:Var2,[])
}
Add(Replace,887180,217,112)
{
link(onReplace,5477216:doValue,[])
link(Sub_str,534635:Sub_str,[(230,47)(27,47)])
link(Dest,534635:Dest,[(237,40)(34,40)])
}
Add(Memory,5477216,266,112)
{
link(onData,10036733:doEvent1,[])
}
Add(StrPart,10123097,98,105)
{
Char=";"
link(onSplit,893403:doValue,[(140,111)(140,62)])
link(onPart,2024262:doEvent1,[])
}
Add(Memory,893403,154,56)
{
@Hint=#33:Длинна копируемого файла в байтах|
}
Add(MultiElementEx,8320540,364,175)
{
@Hint=#28:Создание отсутствующей папки|
link(Data,679930:Var3,[(370,163)])
link(Flag,534635:Flag,[(377,108)(41,108)])
}
BEGIN_SDK
Add(EditMultiEx,15820377,21,21)
{
WorkCount=#12:doFileExists|
DataCount=#4:Data|20:Flag=Данные с флажка|
Width=237
Height=123
link(doFileExists,1138261:doFileExists,[(25,27)(25,69)])
}
Add(IndexToChanel,2019756,98,42)
{
Point(Data)
link(onEvent1,5718671:doPart,[])
link(onEvent2,7728695:doCompare,[(142,55)(142,104)])
link(Data,15820377:Data,[(104,35)(27,35)])
}
Add(FileTools,1138261,49,42)
{
link(onEnd,2019756:doEvent,[])
}
Add(Dir,15754617,210,42)
{
}
Add(FilePart,5718671,154,42)
{
link(onPath,15754617:doDir,[])
}
Add(If_else,7728695,154,98)
{
Op2=Integer(1)
link(onTrue,9809459:doDelete,[])
link(Op1,15820377:Flag,[(160,85)(34,85)])
}
Add(FileTools,9809459,210,84)
{
}
END_SDK
Add(Hub,10036733,322,112)
{
link(onEvent1,534635:onEvent1,[(383,118)(383,34)])
link(onEvent2,8320540:doFileExists,[(359,125)(359,181)])
}
Add(GetDataEx,679930,259,154)
{
link(Data,5477216:Value,[])
}
Add(ArrayEnum,10734934,49,105)
{
@Hint=#35:Перебор имен файлов для копирования|
link(onItem,9677091:doEvent1,[(85,111)(85,145)(76,145)(76,181)])
link(onEndEnum,5008127:doMessage,[(89,118)(89,202)])
link(Array,534635:Array,[(55,34)(48,34)])
}
Add(Hub,9677091,84,175)
{
link(onEvent1,6179399:doOperation,[])
link(onEvent2,10123097:doSplit,[(128,188)(128,151)(92,151)(92,111)])
}
Add(Math,6179399,133,175)
{
Op2=1
ResultType=0
link(Op1,10734934:Index,[(139,156)(62,156)])
}
Add(Message,5008127,203,196)
{
Message="Копирование завершено!"
}
END_SDK


------------ Дoбавленo:

Блин, не туда сообщение вставил - выдает после каждой целевой папки.
Переделал: сообщение нужно вынести в другой цикл или вообще выбросить если не надо
карма: 1

0