Samara24.Форум /Компьютеры Интернет Связь / Программирование /

Читать файл с конца (Delphi)

Печать RSS Деревом

mages
activist
Сообщений: 248
14.07.05 10:38
Всем доброго времени суток.
Стоит задача, выбрать из большого текстового файла строки, как правило они находяться в конце, но выбирать с условием отбора подстроки.
Подскажите можно ли в делфях читать файл построчно не с первой к последней строке writeln - пока не конец файла, а наоборот?
Может какой-то счетчик завети по количеству строк, как тогда узнать количество строк в файле?
http://link.ac/37Vl9
КопироватьСсылка
Рассказать друзьям
Господин Уэф!
Анонимный пользователь
14.07.05 17:43Ответ на сообщение Читать файл с конца (Delphi) пользователя mages
Читать файл с конца, помоему такой возможности нет.

Проще на мой взгляд прочитать его весь в компонент имеющий в своей структуре Lines. Например Memo, RichEdit
и д.р.
Memo1.Lines.LoadFromFile(filename).
Lines имеет тип TString. и имеет такие свойства как count-количество. к строкам можно обращаться по индексу
Memo1.Lines.Strings[0]
.......
Memo1.Lines.Strings[count-1]
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
15.07.05 06:09Ответ на сообщение Читать файл с конца (Delphi) пользователя mages
with TStringList.Create do
begin
LoadFromFile(Filename);
for i:=Count-1 downto 0 do
begin
S:=Strings[i];
//и тут делаешь со стокой что хочешь
end;
Destroy;
end;
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Господин Уэф!
Анонимный пользователь
15.07.05 14:33Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя craxx
что по сути своей тоже самое.
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
15.07.05 17:09Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя Господин Уэф!
Только никаких тяжеловесных Memo не надо
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Господин Уэф!
Анонимный пользователь
15.07.05 17:58Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя craxx
Согласен.
У вас изящнее.
Я к сожалению самоучка.
ТОлько забыл индекс поставить s:=strings[i]
КопироватьСсылка
Рассказать друзьям
craxx
рыжий котэ
Сообщений: 12083
18.07.05 05:35Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя Господин Уэф!
Это не я индекс забыл поставить, это индекс
```
 [i] 
```
форум интерпретировал как выделение текста курсивом
Осторожнее с травой!
Если хапнешь много дряни
Увезут тебя с собой
Злые инопланетяне
КопироватьСсылка
Рассказать друзьям
Господин Уэф!
Анонимный пользователь
18.07.05 07:35Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя craxx
Ха, точно.
КопироватьСсылка
Рассказать друзьям
Анонимный пользователь
20.07.05 14:52Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя Господин Уэф!
А если файл большой? Грузить его в память целиком будет накладно.
Есть универсальная методика - индексирование строк. Формируется еще индексный файл в котором пишется значение POS(F) начала строки.
Потом перемещаешься с использованием seek в нужное место и в любом порядке.
ЗЫ. одна из рядовых задач 1 курса программистских специальностей...
КопироватьСсылка
Рассказать друзьям
Господин Уэф!
Анонимный пользователь
20.07.05 18:08Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя Анонимный пользователь
В ответ на: одна из рядовых задач 1 курса программистских специальностей...
Ну не знаю, не знаю. 3 семестра учился на АСУ(ФПМИ) потом на другом факультете. В мои годы с этим не сталкивался.
Да и работали мы на СМках ужасть был мама негорюй.
А про Delphi слыхать не слыхивали.
КопироватьСсылка
Рассказать друзьям
Egor_M
experienced
Сообщений: 606
10.08.05 17:34Ответ на сообщение Re: Читать файл с конца (Delphi) пользователя Анонимный пользователь
В ответ на: Потом перемещаешься с использованием seek в нужное место и в любом порядке.
А смысл сначала читать файл и строить индексы сначала, что бы потом читать его с конца?
Проще сразу найти строчки при первом проходе и мозги не размножать.

А вообще наверняка в дельфе есть способы позиционироваться в потоке, поэтому и файл с конца прочитать должно быть можно.
Не помню я дельфу уже, давно это было...
Toyota Vitz 2005 1.3-> Mercedes CLK 2002 2.3 Kompressor-> Kia Sportage 2012 Biturbo T-GDI
Исправлено пользователем Egor_M (10.08.05 17:41)
КопироватьСсылка
Рассказать друзьям

Samara24.Форум /Компьютеры Интернет Связь / Программирование /

Перейти в форум

открыть в новом окне

Модератор:

flopic