Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Перебрать файлы в хронологическом порядке 
V
    Опции темы
mspuz
Дата 3.3.2006, 12:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет
У меня имеется директория в которой находится n количество файлов *dbf. Как мне выкачать из них информацию начиная с ранее всех созданного файла и так далее до самого позднего??? И случайно это не "по умолчанию"??? Потому что вроде у меня и так все работает smile , но уверености нет
PM MAIL   Вверх
_hunter
Дата 3.3.2006, 12:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
если вопрос в сортировке -- ищи все файлы в папке ( FindFirst/FindNext ) потом сортируй их по дате.
если вопрос в выкачивании информации -- не в этот раздел зашел...


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
mspuz
Дата 3.3.2006, 12:17 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет
_hunter, Вопрос в сортировке. Т.е. создать массив, куда занести название файла и дату его создания, а затем уже обращаться используя этот массив???
PM MAIL   Вверх
Guedda
Дата 3.3.2006, 12:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
А зачем заносить дату создания? Сканируешь, находишь самый ранний, и заносишь его имя в массив, и так далее


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
mspuz
Дата 3.3.2006, 12:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 304
Регистрация: 20.6.2005
Где: Ногинск

Репутация: нет
Всего: нет
Guedda, Я просто люблю "на месте" разбираться - занес, а потом уже перебрал, а так все "в воздухе висит". Ну в общем спасибо, я так и думал.
PM MAIL   Вверх
SlaUr
Дата 3.3.2006, 13:05 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 408
Регистрация: 18.9.2003

Репутация: 3
Всего: 5
Юниты находятся на SlaUr.narod.ru (mysys,mystr)



Код

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,mysys,mystr;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var list:tstringlist;i1:integer;st1,st2:string;
s1:Tsearchrec;
begin
List:=Tstringlist.Create;
SearchInDir('*.*','C:\Windows' ,True , List);
List.Sorted:=true;
for i1:=0 to List.Count-1
do
begin
St1:=list[i1];
 if FindFirst(St1,faAnyFile,S1) = 0 then
List1[i1]:=intToStr(s1.Time)+'|'+List1[i1];{Т.к. list сортированый все выстроится как надо}
List.Sorted:=False;
 end;
For i1:=0 to list.Count-1 do
List[i1]:=cNFi(2,List[i1],|');
Halt;
end;

end.


Писал нетерезвый но думаю все правильно
PM MAIL   Вверх
_hunter
Дата 3.3.2006, 13:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
mspuz, ну да. получить массив и потом сортировать.

Guedda, т.е. ты на сотню файлов предлагаеш сотню поисков делать? а если их ( файлов 1000 )? -- месяц за компом сидеть?


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
Guedda
Дата 3.3.2006, 13:41 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Подрывник
****


Профиль
Группа: Завсегдатай
Сообщений: 3137
Регистрация: 27.12.2005
Где: Ростов-на-Дону

Репутация: 14
Всего: 78
У меня процик 800 МГц
Так вот 1000 файлов просканило за 15 мин.


--------------------
Ll 2
PM MAIL WWW ICQ Skype GTalk   Вверх
_hunter
Дата 3.3.2006, 14:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 8564
Регистрация: 24.6.2003
Где: Europe::Ukraine:: Kiev

Репутация: 15
Всего: 98
ну ладно. усложняем задачу. 14000 файлов ( JCL )


--------------------
Tempora mutantur, et nos mutamur in illis...
PM ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0983 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.