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

Ищеш начало с начала файла, ищеш конец с конца. и делаеш вырезу, стринги имеют для этого все необходимое.

Udobno budet pol'zovat'sja TStrings. Zagruzi v nego fai'l, a nujnye stroki perekopirui' v Memo. Ili sam pishi proceduru zagruzki fai'la.

Какой примерно размер файла?

Для быстрого алгоритма желательно знать характеристики файла - насколько он большой. А также характеристики твоего текста - где вероятнее всего может располагаться, насколько он меньше файла.

Если файл большой, текст не очень и располагаться может где угодно, то самое простое:
- считываем в буфер кусок файла
- ищем в нем первый символ твоего маркера для начала. Если нашли букву - сравниваем следующую со второй. Ну и так далее до полного сопадения. Если нашли - выставляем флаг, что нашли и начинаем искать точно таким же способом конец. Если уже ищем конец, то все просмотренное запоминаем.
Можно сравнивать сразу конечный символ маркера, а не второй. Благо буфер - это обычно массив и любой символ можно получить с одинаковой скоростью. Но это очень сильно зависит от характеристик текста.
- если дошли до конца буфера считываем следующий кусок. И снова ищем.

Если файл небольшой, то можно закачать его сразу весь в память.

Есть еще более хитрые способы работать с большим файлом - использовать отображение файла в память, тогда операции ввода/вывода достаточно ускоряются.
Вообщем сама по себе задачка с математической точки зрения очень интересная.

AntonSaburov ну это уже вопросы оптимизация

Ну а без оптимизации для этой задачки разве нужно спрашивать решение ?
Любой может после недели-двух изучения программирования.

Цитата

Любой может после недели-двух изучения программирования.

это смотря кто, и как к решению вопроса подходит

Файл небольшого размера ~20Kb.

Цитата

Файл небольшого размера ~20Kb.

Загружаешь в TStringList, далее ишешь нужный кусок и из него подгружаешь в Memo. Разберёшся или пример нужен?

Цитата

AntonSaburov ну это уже вопросы оптимизация

- ага, если файл 2 гигабайта я посмотрю как ты его будешь в TStirngList засовывать - теоретически проблем нет, только работать не будет.

Цитата

Файл небольшого размера ~20Kb

Ну тогда просто весь целиком заталкиваем в TStrings - и работаем.

Цитата

- ага, если файл 2 гигабайта я посмотрю как ты его будешь в TStirngList засовывать - теоретически проблем нет, только работать не будет.

хотел бы я посмотреть куда ты вообще 2 гига запихнуть сможеш кроме как в память

Цитата(Step @ 30.1.2003, 15:53)

Цитата - ага, если файл 2 гигабайта я посмотрю как ты его будешь в TStirngList засовывать - теоретически проблем нет, только работать не будет. хотел бы я посмотреть куда ты вообще 2 гига запихнуть сможеш кроме как в память

И я об этом же, собственно оптимизация здесь ни причём вовсе, разница в производительности и требования к железу на порядки в зависимости от реализации это не оптимизация, это качественно разный подход. Итак моё мнение:


1) Если файл менее 50 кб - без разницы как его читать, но читать целиком предпочтительнее
2) Если файл до 500 кб то лучше читать целиком
3) Если байл больше 500 кб то читать только по кускам


Естественно что 2 гига читать целиком и не надо, для таких файлов надо применять только поблочное чтение.

Мужики, помогите примером! Заранее благодарен.

Код

With TStringList.create do  try    LoadFromFile('c:\MyFileName.txt');    text:=copy(text,pos(_from,text)+length(_from),length(text));    memo.text:=copy(text,1,pos(_to,text)-1);  finally    free;  end;

где _from - фраза c которой загружать
_to - фраза до которой загружать


Код писал на вскидку, поэтому могут быть неточности.


PS. В нашем FAQ большая статья по работе с файлами.