Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Быстрый способ нахождения строки в файле [D5, D6, D7, Win95/98, WinME, NT4, Win2k, WinXP]

QuickFinder © (2006-03-18 02:10:00)
Имеется бинарный файл (с текстовыми и нетекстовыми символами).
Требуется найти количество вхождений строки XYZ и позиции этих вхождений.

Пока единственное, что приходит в голову, - это открыть файл через TFileStream и читать каждый байт. Но это очень медленно, если файл большой.
Есть ли более быстрый способ?

Когда открываю файл в FAR-е и начинаю поиск этой строки, то он работает довольно шустро.

QuickFinder (2006-03-18 13:19:00) [1]

> Джо © (18.03.06 03:12) [5]
> Несмотря на возмущенные крики истца со своего места, все-
> же, посоветую еще кой-чего :)
> Спроецируй файл в память (ключевый слова для поиска File
> mapping), затем производи поиск при помощи функции ComareMem.
> Скорости, для большОго числа прикладных задач, должно хватить.
>

Мне тоже кажется, что нужно смотреть в этом направлении.
Открываю довольно большой файл в UltraEdit-е, мигом открыл и все отобразил (в текстовом и шестнадцатиричном виде).

Плохиш (2006-03-18 11:57:00) [2]
> QuickFinder (18.03.06 11:07) [9]
> Плохиш, а в каком модуле искать PosEx? В Delphi 5 его по
> ходу нет.

В Д7 она есть. Зачем Д7 в списке указывал?

> QuickFinder (18.03.06 11:23) [10]
> Плохиш, будь ласка,

Ой, я сейчас покраснею..
function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer; var I,X: Integer; Len, LenSubStr: Integer; begin if Offset = 1 then Result := Pos(SubStr, S) else begin I := Offset; LenSubStr := Length(SubStr); Len := Length(S) - LenSubStr + 1; while I <= Len do begin if S[I] = SubStr[1] then begin X := 1; while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do Inc(X); if (X = LenSubStr) then begin Result := I; exit; end; end; Inc(I); end; Result := 0; end; end;

QuickFinder (2006-03-18 11:23:00) [3]
Плохиш, будь ласка, запости сюда рутину PosEx.

QuickFinder (2006-03-18 11:07:00) [4]
Плохиш, а в каком модуле искать PosEx? В Delphi 5 его по ходу нет.

Плохиш (2006-03-18 10:59:00) [5]
PosEx

QuickFinder (2006-03-18 10:19:00) [6]

> Джо © (18.03.06 03:04) [3]
> > То есть простым Pos(Subst, Str) здесь НЕ обойтись.
>
> Почему?

Я пробовал определить количество вхождений таким образом:

function SubStrCount(Substr, Str: string): Integer;
var
I: Integer;
begin
Result := 0;
if (Substr = '') or (Str = '') then
Exit;

I := Pos(Substr, Str);
while I > 0 do
begin
Inc(Result);
Str := Copy(Str, I + Length(Substr), Length(Str));
I := Pos(Substr, Str);
end;
end;

Первое вхождение он находит, но не больше (а их точно больше). Дело в Copy?

TUser (2006-03-18 05:25:00) [7]
Для строки XYZ не надобен Бойер-Мур, а нужен алгоритм Shift-And.

Джо (2006-03-18 03:12:00) [8]
Несмотря на возмущенные крики истца со своего места, все-же, посоветую еще кой-чего :)
Спроецируй файл в память (ключевый слова для поиска File mapping), затем производи поиск при помощи функции ComareMem. Скорости, для большОго числа прикладных задач, должно хватить. Если ее все-же не хватит, тогда уже и ищи "хитрые" алгоритмы.

Германн (2006-03-18 03:06:00) [9]

> uickFinder (18.03.06 02:58) [2]
>
> Повторяю:
> Имеется бинарный файл (с текстовыми и нетекстовыми символами).
>
>
> То есть простым Pos(Subst, Str) здесь НЕ обойтись.
>

Ну если тебе не лень, то повторяй.

Джо (2006-03-18 03:04:00) [10]
>
> [2] QuickFinder (18.03.06 02:58)
> Повторяю:
> Имеется бинарный файл (с текстовыми и нетекстовыми символами)
> То есть простым Pos(Subst, Str) здесь НЕ обойтись.

Почему?

QuickFinder (2006-03-18 02:58:00) [11]
Повторяю:
Имеется бинарный файл (с текстовыми и нетекстовымисимволами).

То есть простым Pos(Subst, Str) здесь НЕобойтись.

Германн (2006-03-18 02:38:00) [12]

> QuickFinder (18.03.06 02:10)
>
> Имеется бинарный файл (с текстовыми и нетекстовыми символами).
>
> Требуется найти количество вхождений строки XYZ и позиции
> этих вхождений.

Для поиска вхождений есть много алгоритмов, например:
"Boyer-Moore-Horspool pattern searching
algorithm".
А применить алгоритм для вычисления количества вхождений и определения позиций этих вхождений - это гораздо менее сложная задача, чем "пятничные задачи от MBO".

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »