Вверх ↑
Этот топик читают: Гость
Ответов: 578
Рейтинг: 14
#1: 2009-07-29 11:02:33 ЛС | профиль | цитата
помогите разобраться) есть две папки в них по три одинаковых файла но с разным временем изменения, как узнать какой из пары файлов с наиболее поздним временем?
code_14309.txt
карма: 0

0
файлы: 1code_14309.txt [2.1KB] [146]
Разработчик
Ответов: 4698
Рейтинг: 426
#2: 2009-07-29 11:13:16 ЛС | профиль | цитата
Вот так должно работать
Add(MainForm,10356956,154,35)
{
Width=404
Height=353
Position=1
}
Add(FileAttributes,1936547,231,182)
{
TimeType=1
Format="D-M-Y (h:m:s)"
link(onRead,1750577:doEvent1,[])
}
Add(Button,5219073,84,175)
{
Left=330
Top=300
link(onClick,3644155:doEvent1,[])
}
Add(Edit,7294490,196,336)
{
Left=5
Top=5
Width=380
Text="D:ВременныеROMViewer & ServerConfig"
}
Add(ListBox,20387,357,182)
{
Left=5
Top=60
Width=380
Height=115
DataType=1
}
Add(FileSearch,15799381,161,175)
{
SubDir=1
link(onSearch,643678:doEvent1,[])
link(Dir,13797386:Text,[])
}
Add(FormatStr,12954849,301,182)
{
link(onFString,20387:doAdd,[])
link(Str1,14270509:Value,[])
link(Str2,14225145:Var1,[(314,170)(265,170)])
}
Add(FileSearch,5197080,189,392)
{
Ext=""
SubDir=1
link(onSearch,6052325:doEvent1,[])
link(onEndSearch,16196583:doEvent1,[(229,405)(229,300)])
link(Dir,7294490:Text,[])
}
Add(ListBox,3619064,434,399)
{
Left=5
Top=180
Width=380
Height=115
DataType=1
}
Add(FileAttributes,10326230,287,399)
{
TimeType=1
Format="D-M-Y (h:m:s)"
link(onRead,15502032:doEvent1,[])
}
Add(FormatStr,479802,378,399)
{
link(onFString,3619064:doAdd,[])
link(Str1,5739455:Value,[])
link(Str2,7856062:Var1,[(391,387)(328,387)])
}
Add(Hub,6052325,238,392)
{
link(onEvent1,665236:doPart,[(276,398)(276,342)])
link(onEvent2,10326230:doRead,[])
}
Add(Memory,5739455,378,343)
{
}
Add(FilePart,665236,301,336)
{
NameWOExt=1
link(onName,5739455:doValue,[])
}
Add(Hub,643678,203,175)
{
link(onEvent1,4346852:doPart,[(235,181)(235,118)])
link(onEvent2,1936547:doRead,[])
}
Add(Hub,1750577,273,182)
{
link(onEvent1,12954849:doString,[])
link(onEvent2,15784867:doData,[(294,195)(294,258)])
}
Add(StrList,10363526,371,252)
{
Point(doSort)
Point(onGetString)
Point(doGetString)
Point(IdxToSelect)
Point(String)
link(onGetString,15852553:doEvent1,[])
link(IdxToSelect,1760395:Value,[(391,233)(412,233)])
}
Add(GetDataEx,14225145,252,224)
{
Angle=3
link(Data,1936547:DateModify,[(251,233)])
}
Add(Memory,14270509,301,119)
{
}
Add(FilePart,4346852,252,112)
{
NameWOExt=1
link(onName,14270509:doValue,[])
}
Add(Hub,3644155,126,175)
{
link(onEvent1,15799381:doSearch,[])
link(onEvent2,5197080:doSearch,[(154,188)(154,398)])
}
Add(Edit,13797386,168,126)
{
Left=5
Top=30
Width=380
Text="D:ВременныеROMViewer & ServerConfig2"
}
Add(DoData,15784867,301,252)
{
link(onEventData,14501908:doWork2,[])
link(Data,14225145:Var3,[(307,233)])
}
Add(Hub,16196583,238,294)
{
link(onEvent1,10363526:doSort,[])
link(onEvent2,10363526:doGetString,[])
}
Add(Memory,1760395,406,182)
{
Default=Integer(0)
}
Add(Message,6968419,574,273)
{
link(Message,3899317:Item,[(580,254)(524,254)(524,310)(468,310)])
}
Add(Hub,15502032,336,399)
{
link(onEvent1,479802:doString,[])
link(onEvent2,16172788:doData,[(357,412)(357,461)])
}
Add(DoData,16172788,364,455)
{
link(onEventData,14501908:doWork3,[(420,461)(420,328)(354,328)])
link(Data,7856062:Var3,[(370,443)])
}
Add(GetDataEx,7856062,315,434)
{
Angle=3
link(Data,10326230:DateModify,[(307,443)])
}
Add(HubEx,14501908,350,245)
{
link(onEvent,10363526:doAdd,[])
}
Add(ArrayEnum,3899317,462,266)
{
link(onItem,5524384:doCompare,[])
link(Array,20387:Array,[(468,243)(377,243)])
}
Add(StrMask,5524384,525,266)
{
Point(doMask)
link(onTrue,6968419:doMessage,[])
}
Add(Hub,15852553,413,259)
{
link(onEvent1,2833977:doString,[(445,265)(445,314)])
link(onEvent2,3899317:doEnum,[])
}
Add(FormatStr,2833977,462,308)
{
DataCount=1
Mask="*%1*"
link(onFString,5524384:doMask,[(510,314)(510,279)])
}

------------ Дoбавленo в 11.23:
Подправил создание маски, теперь работает(проверил)
карма: 10
0
Ответов: 578
Рейтинг: 14
#3: 2009-07-29 11:46:39 ЛС | профиль | цитата
у меня не работает(((((
карма: 0

0
Разработчик
Ответов: 4698
Рейтинг: 426
#4: 2009-07-29 11:59:49 ЛС | профиль | цитата
Кинь на форум две папки в архиве, которые надо проверить
карма: 10
0
Ответов: 578
Рейтинг: 14
#5: 2009-07-29 13:50:13 ЛС | профиль | цитата
вот вроде что то получилось, но очень громооооздко)))
карма: 0

0
Ответов: 16884
Рейтинг: 1239
#6: 2009-07-29 16:43:54 ЛС | профиль | цитата
GanjaKyp, Для любителей схем-монстров
code_14321.txt
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
файлы: 1code_14321.txt [1.4KB] [167]
6
Сообщение
...
Прикрепленные файлы
(файлы не залиты)