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

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Процедура поиска. поиск слова из файла. 
:(
    Опции темы
KSILAR
Дата 21.4.2006, 12:42 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Нужна процедура (или алгоритм поиска из файла) по заданному слову.
Или похожему на него. 
PM MAIL WWW ICQ   Вверх
_hunter
Дата 21.4.2006, 12:46 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 15
Всего: 98
дык.
находим файл; открываем его на чтение; читаем из него текст, равный длине искомого с побайтовым смещением; сравниваем считанный текст с исходным; 


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


Новичок



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

Репутация: нет
Всего: нет
Hunter, а поподробнее в виде кода на Delphi, пожалуйста? 
PM MAIL WWW ICQ   Вверх
_hunter
Дата 21.4.2006, 14:36 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


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

Репутация: 15
Всего: 98
это уже в другие разделы -- "Работа", например... 


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


Амеба
Group Icon


Профиль
Группа: Админ
Сообщений: 11743
Регистрация: 12.10.2005
Где: Зеленоград

Репутация: 109
Всего: 459
для файлов не более 50мб
сгодится:
Код

var
  f :  TFileStrem;
  m : AnsiString;
  origSt: AnsiString;
  found : boolean;
Begin
found := 0;
f := TFileStrem.create('myfile', fmReadOpen);
f.Seek(0, soFromBeginning);
SetLength(m, f.size);
f.ReadBuffer(m, f.Size);
if pos(origSt, m) <> 0
then
  found := true;


Добавлено @ 14:49 
Цитата(KSILAR @  21.4.2006,  11:42 Найти цитируемый пост)
Или похожему на него. 

это намного сложнее.

для файлов больших 50мб лучше использовать файлы отображаемые в память или читать блоками по 2-3Мб и искать в них 


--------------------
Vit вечная память.

Обсуждение действий администрации форума производятся только в этом форуме

гениальность идеи состоит в том, что ее невозможно придумать
PM ICQ Skype   Вверх
ivan219
Дата 21.4.2006, 20:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1121
Регистрация: 19.11.2005
Где: Планета земля

Репутация: 2
Всего: 12
alexeis1 а можеш поподробнее расписать свой код smile или дать полный пример smile а то я несовсем разобрался. 


--------------------
Мой первый сайт и моя первая программа!!!!!
PM MAIL ICQ   Вверх
KSILAR
Дата 21.4.2006, 21:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
Да было бы неплохо если поподробнее!!! smile  
PM MAIL WWW ICQ   Вверх
Ryn
Дата 21.4.2006, 21:16 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



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

Репутация: нет
Всего: нет
а какая функция ищет строку в тексте с любой позиции ( не как pos только с первой ) ? 
PM MAIL   Вверх
Yanis
Дата 21.4.2006, 21:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
****


Профиль
Группа: Участник Клуба
Сообщений: 2937
Регистрация: 9.2.2004
Где: Москва

Репутация: 72
Всего: 111
Цитата(Ryn @  21.4.2006,  21:16 Найти цитируемый пост)
а какая функция ищет строку в тексте с любой позиции ( не как pos только с первой ) ?  

PosEx smile 


--------------------
user posted image *щёлк*
PM MAIL WWW ICQ   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

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

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

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

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

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

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


 




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


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

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