Форум: "Основная";
Текущий архив: 2005.06.14;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.52 MB
Время: 0.037 c