Сравнение файлов по времени последнего изменения

[snoitaleR]

Я думал - банальный вопрос...
Однако когда впился пальцами в клавиатуру - не смог составить этюд, который бы вычислял, какой из двух файлов был изменен позже...

Мне кажется, проверка условия на пятом уровне вложенности - не лучшее решение...

 

[kaster]

$file1 = 'path1'
$file1 = 'path2'
$aTime1 = FileGetTime($file1)
$aTime2 = FileGetTime($file2)
$sTime1 = $aTime1[0] & '/' & $aTime1[1] & '/' & $aTime1[2] & ' ' & $aTime1[3] & ':' & $aTime1[4] & ':' $aTime1[5]
$sTime2 = $aTime2[0] & '/' & $aTime2[1] & '/' & $aTime2[2] & ' ' & $aTime2[3] & ':' & $aTime2[4] & ':' $aTime2[5]
If _DateDiff('s', $sTime1, $sTime2) > 0 Then
	MsgBox(0, '', $file1 & ' is older than ' & $file2)
ElseIf _DateDiff('s', $sTime1, $sTime2) > 0 Then
	MsgBox(0, '', 'Files were modified simultaneously')
Else
	MsgBox(0, '', $file2 & ' is older than ' & $file1)
EndIf

 

[CreatoR]

$sFile1 = @DesktopDir & "\file1.txt"
$sFile2 = @DesktopDir & "\file2.txt"

$sFileTime1 = FileGetTime($sFile1, 0, 1)
$sFileTime2 = FileGetTime($sFile2, 0, 1)

If $sFileTime1 > $sFileTime2 Then
	$sFile = StringRegExpReplace($sFile1, "^.*\\", "")
Else
	$sFile = StringRegExpReplace($sFile2, "^.*\\", "")
EndIf

MsgBox(64, 'Title', 'Файл <' & $sFile & '> изменён позже.')

Добавлено:

Сообщение автоматически объединено: 14 Дек 2009

Kaster
Тот же способ без массивов:

#include <Date.au3>

$sFile1 = @DesktopDir & "\file1.txt"
$sFile2 = @DesktopDir & "\file2.txt"

$sDateDiff_Pattern = "(\d{4})(\d{2})(\d{2})(\d{2})(\d{2})(\d{2})"

$sFileTime1 = StringRegExpReplace(FileGetTime($sFile1, 0, 1), $sDateDiff_Pattern, "\1/\2/\3 \4:\5:\6")
$sFileTime2 = StringRegExpReplace(FileGetTime($sFile2, 0, 1), $sDateDiff_Pattern, "\1/\2/\3 \4:\5:\6")

If _DateDiff("s", $sFileTime1, $sFileTime2) > 0 Then
	$sFile = $sFile2
	$sFileTime = $sFileTime2
Else
	$sFile = $sFile1
	$sFileTime = $sFileTime1
EndIf

MsgBox(64, 'Title', 'Файл <' & StringRegExpReplace($sFile, "^.*\\", "") & '> изменён позже (' & $sFileTime & ').')

 

[snoitaleR]

Скрипт, который предложил Kaster, заставил немного помучиться, так как содержал трудно вычисляемую орфографическую ошибку...
Однако смысл ясен...
Скрипты, которые предложил CreatoR, заработали сразу, но дали противоположные результаты...
Результат второго скрипта совпал с результатом скрипта, предложенного Kaster...
В этой связи хотелось бы уточнить:
Если FileGetTime() от первого файла больше, чем от второго, то какой файл изменен позже?

 

[kaster]

snoitaleR
Извиняюсь. Поспешишь - людей насмешишь :-[
Рад, что поправил. Но на всяк случай,

#include <Date.au3>
$file1 = 'path1'
$file2 = 'path2'
$aTime1 = FileGetTime($file1)
$aTime2 = FileGetTime($file2)
$sTime1 = $aTime1[0] & '/' & $aTime1[1] & '/' & $aTime1[2] & ' ' & $aTime1[3] & ':' & $aTime1[4] & ':' & $aTime1[5]
$sTime2 = $aTime2[0] & '/' & $aTime2[1] & '/' & $aTime2[2] & ' ' & $aTime2[3] & ':' & $aTime2[4] & ':' & $aTime2[5]
If _DateDiff('s', $sTime1, $sTime2) > 0 Then
    MsgBox(0, '', $file1 & ' is older than ' & $file2)
ElseIf _DateDiff('s', $sTime1, $sTime2) = 0 Then
    MsgBox(0, '', 'Files were modified simultaneously')
Else
    MsgBox(0, '', $file2 & ' is older than ' & $file1)
EndIf

PS: на самом деле ошибка была не одна, а аж целых 3


Добавлено:

Сообщение автоматически объединено: 14 Дек 2009

тот который раньше модифицировался имеет меньшее значение FileGetTime()

 

[CreatoR]

snoitaleR [?]

Если FileGetTime() от первого файла больше, чем от второго, то какой файл изменен позже?

Естественно первый, т.к дата более поздняя

Kaster [?]

If _DateDiff('s', $sTime1, $sTime2) > 0 Then
    MsgBox(0, '', $file1 & ' is older than ' & $file2)
ElseIf _DateDiff('s', $sTime1, $sTime2) > 0 Then

Интересно, тут два идентичных(?) сравнения, второе никогда не будет выполнено, отсюда возмущение - для чего оно? :D

 

[snoitaleR]

CreatoR
Разобрался, почему два твоих скрипта давали противоположные результаты: два моих файла имели одно и то же время последнего изменения...
Но это не главное... Главное - то, что на это было обращено внимание...

Kaster
Я долго искал потерянный "&"...
На остальные ошибки даже внимания не обратил...



Добавлено:

Сообщение автоматически объединено: 14 Дек 2009

для чего оно?

Может Kaster хотел рассмотреть вариант равенства времен, но ошибся знаком?


Добавлено:

Сообщение автоматически объединено: 14 Дек 2009

Для меня неясных вещей не осталось...
Благодарю за помощь...
Тему помечаю решенной...

 

[kaster]

snoitaleR [?]

Может Kaster хотел рассмотреть вариант равенства времен, но ошибся знаком?

именно ;)
а вообще, никогда больше не буду писать скрипт сразу на форуме :laugh:
сначала проверю на своей машине, а потом уже постить 8)