Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2005.06.14;
Скачать: CL | DM;

Вниз

Поиск по файлу   Найти похожие ветки 

 
lmz ©   (2005-05-24 18:07) [40]


> в файле 1Г

Почему 1Г, размер файла может быть от 2 метров до 50 метров...


 
Viktop   (2005-05-24 20:23) [41]

to Defunct
Пост 31

P.S.: Я, кажется простое решение нашёл:
function InStr(index: integer; str1: string; str2: string): integer;
var
 i,len, pos: integer;
begin
 pos:=0;
 len:=length(str2);
 for i:=index to length(str1) do begin
   if copy(str1,i,len)=str2 then begin
     pos:=i;
     break; // здесь можно писать свои условия
   end;
 end;
 result:=pos;
end;


Параметры функции:
номер символа, с которго ищем, в какой строке ищем, что ищем


 
Defunct ©   (2005-05-24 20:55) [42]

Viktop   (24.05.05 20:23) [41]

Функция ищет не количество подстрок, а позицию подстроки в файле. При этом в отличие от Pos поиск не приостанавливается на служебных символах #0 и т.п. Изначально функция [22] была предназначена для поиска подстрок в бинарном файле.


 
Viktop   (2005-05-25 04:50) [43]

Ну ведь можно добавить:
For i:=index to length(str1) do begin
  if copy(str1,i,len)=str2 then begin
    pos:=i;
    Inc(numder)
  end;

А зачем поиск должен приостанавливаться?



Страницы: 1 2 вся ветка

Текущий архив: 2005.06.14;
Скачать: CL | DM;

Наверх




Память: 0.53 MB
Время: 0.038 c
3-1115819862
_e_u_
2005-05-11 17:57
2005.06.14
добавить запись в поле типа текст


1-1117192435
Jupiter
2005-05-27 15:13
2005.06.14
Копирование по маске


14-1117005548
stone
2005-05-25 11:19
2005.06.14
Стих


4-1114245891
dron-s
2005-04-23 12:44
2005.06.14
Куда установлена система


4-1114001856
Medved
2005-04-20 16:57
2005.06.14
Отслеживание запуска программ.