ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как сравнить файлы?
16 сообщений из 16, страница 1 из 1
Как сравнить файлы?
    #33979753
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
Как сравнить два exe файла? По размеру и по дате, времени создания?
...
Рейтинг: 0 / 0
12.09.2006, 09:46
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33979760
mishin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
mishin
Гость
C:\Documents and Settings\ubt-mna>fc /?
Сравнение двух файлов или двух наборов файлов
и вывод различий между ними.


FC [/A] [/C] [/L] [/LBn] [/N] [/OFF[LINE]] [/T] [/W]
[/nnnn][диск1:][путь1]имя_файла1 [диск2:][путь2]имя_файла2
FC /B [диск1:][путь1]имя_файла1 [диск2:][путь2]имя_файла2

/A Вывод только первой и последней строк для каждой группы различий
/B Сравнение двоичных файлов.
/C Сравнение без учета регистра символов.
/L Сравнение файлов в формате ASCII.
/LBn Максимальное число несоответствий
для заданного числа строк.
/N Вывод номеров строк при сравнении текстовых файлов ASCII.
/OFF[LINE] Не пропускать файлы с установленным атрибутом "Автономный".
/T Символы табуляции не заменяются эквивалентным числом пробелов.
/U Сравнение файлов в формате UNICODE.
/W Пропуск пробелов и символов табуляции при сравнении.
/nnnn Число последовательных совпадающих строк, которое
должно встретиться после группы несовпадающих.
[диск1:][путь1]имя_файла1
Указывает первый файл или набор файлов для сравнения.
[диск2:][путь2]имя_файла2
Указывает второй файл или набор файлов для сравнения.
...
Рейтинг: 0 / 0
12.09.2006, 09:48
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33979857
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
function prov (path1, path2);
FC /A /C /B c:\polkred.dbf c:\zapkred.dbf
так чтоли? для примера?
а как сравнить все таки размер и дату?
...
Рейтинг: 0 / 0
12.09.2006, 10:13
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33979897
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
Ну например ADIR() .
А для чего вообше-то надо ?
...
Рейтинг: 0 / 0
12.09.2006, 10:22
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33979926
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
Надо сравнить две версии программы! есть два пути
path1=fullpath/olast.exe
path2=ncc_path/olast.exe
и надо сравнить обновили ее или нет т. е. сравнить время, размер и создания файла!!!!
...
Рейтинг: 0 / 0
12.09.2006, 10:30
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33979966
-=AlexiS=-
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
-=AlexiS=-
Участник
если программы на фоксе - и ничем не пакована -
стоит посмотреть в сторону AGETFILEVERSION()
ну ясно дело что придется следить за версионностью.
Или как альтернатива - готовая проверялка/обновлялка смотри архив
...
Рейтинг: 0 / 0
12.09.2006, 10:42
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33979984
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
Я на дельфи написал все работает а вот как на фоксе
function CompareFiles(const FirstFile, SecondFile: string): Boolean;
var
f1, f2: TMemoryStream;
begin
Result := false;
f1 := TMemoryStream.Create;
f2 := TMemoryStream.Create;
try
//çàãðóæàåì ôàéëû...
f1.LoadFromFile(FirstFile);
f2.LoadFromFile(SecondFile);
if f1.Size = f2.Size then //ñðàâíèâàåì ïî ðàçìåðó...
//äâîè÷íîå ñðàâíåíèå â ïàìÿòè
Result := CompareMem(f1.Memory, f2.memory, f1.Size);
finally
f2.Free;
f1.Free;
end
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if CompareFiles('c:\1.dbf', 'c:\2.dbf') then
ShowMessage('Ôàéëû îäèíàêîâû!');
end;
как перевести на фокс не знаю!!!!!
может у кого помощь есть?
...
Рейтинг: 0 / 0
12.09.2006, 10:48
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980217
karly™
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
karly™
Гость
Посмотри исходники этого решения на ФоксКлубе

Там примеры для всех твоих вопросов
...
Рейтинг: 0 / 0
12.09.2006, 11:38
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980260
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
Код: plaintext
1.
2.
3.
4.
=adir(laFileInfo1,<FullNameFile1>)
=adir(laFileInfo2,<FullNameFile2>)
IF CTOT(DTOC(laFileInfo1( 1 , 3 ))+" "+laFileInfo1( 1 , 4 )) > CTOT(DTOC(laFileInfo2( 1 , 3 ))+" "+laFileInfo2( 1 , 4 ))
...
ENDIF
...
Рейтинг: 0 / 0
12.09.2006, 11:46
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980349
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
можешь, объяснить что написано? что означает?
...
Рейтинг: 0 / 0
12.09.2006, 12:02
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980405
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
NXNможешь, объяснить что написано? что означает?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
* Читаем информацию о первом файле в массив laFileInfo1
=adir(laFileInfo1,<FullNameFile1>)
* Читаем информацию о втором файле в массив laFileInfo2
=adir(laFileInfo2,<FullNameFile2>)
* Сравниваем дату и время создания первого файла с датой и временем второго
IF CTOT(DTOC(laFileInfo1( 1 , 3 ))+" "+laFileInfo1( 1 , 4 )) > CTOT(DTOC(laFileInfo2( 1 , 3 ))+" "+laFileInfo2( 1 , 4 ))
...
ENDIF
...
Рейтинг: 0 / 0
12.09.2006, 12:12
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980414
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
смотри так правильно будет?
path1=adir(laFileInfo1,<FullNameFile1>);
path2=adir(laFileInfo2,<FullNameFile2>);
IF CTOT(DTOC(laFileInfo1(1,3))+" "+laFileInfo1(1,4)) = CTOT(DTOC(laFileInfo2(1,3))+" "+laFileInfo2(1,4))
message('ðàçìåð äèíàêîâûå')
else message('ðàçíûå')
ENDIF
...
Рейтинг: 0 / 0
12.09.2006, 12:16
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980418
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
laFileInfo1(1,3)) это читает дату?
...
Рейтинг: 0 / 0
12.09.2006, 12:17
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980426
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
NXNсмотри так правильно будет?
path1=adir(laFileInfo1,<FullNameFile1>);
path2=adir(laFileInfo2,<FullNameFile2>);
IF CTOT(DTOC(laFileInfo1(1,3))+" "+laFileInfo1(1,4)) = CTOT(DTOC(laFileInfo2(1,3))+" "+laFileInfo2(1,4))
message('ðàçìåð äèíàêîâûå')
else message('ðàçíûå')
ENDIF
Ну вместо этого <FullNameFile1> и <FullNameFile2> реальные полные названия файлов то поставь.
...
Рейтинг: 0 / 0
12.09.2006, 12:18
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980435
AleksMed
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AleksMed
Участник
NXNlaFileInfo1(1,3)) это читает дату?
Глянь в хелпе по ф-ции ADIR() структуру массива который она возвращает.
...
Рейтинг: 0 / 0
12.09.2006, 12:20
| Ответить | Цитировать | Написать  
Как сравнить файлы?
    #33980941
NXN
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
NXN
Участник
Все разобрался! все работает и правильно! Спасибо всем, кто помог!!!!!!!
...
Рейтинг: 0 / 0
12.09.2006, 14:07
| Ответить | Цитировать | Написать  
16 сообщений из 16, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как сравнить файлы?
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=33979966&tid=1590801]:
 0ms
get settings:
 6ms
get forum list:
 18ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 150ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 51ms
get tp. blocked users:
 2ms
others: 230ms
total:  475ms
созд. / загр.: 475ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]