| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Поиск подстроки в строке

Brat-2 ©   (2003-01-02 15:47:00) 

Читаю в buf: [0..512] of char данные из двоичного файла. Нужно найти в buf подстроку. Стандартная POS не находит (видимо обрабатывает только строку до символа #0 или #13), ибо StrLen(buf) также не определяет ее как 512 (гораздо меньше). Примечание: файл > 512. Подскажите, пожайлуста, как быть?

---

Brat-2   (2003-01-02 21:28:00) [1]

Ok. Всем спасибо. Сделал свой цикл.

---

Sha   (2003-01-02 16:32:00) [2]

2 Brat-2 (02.01.03 15:47)

Упреждая твой следующий вопрос:

function PosFromTo(Find, Source: string; QChar: char= "?";
StartPos: integer= 1; StopPos: integer= 0): integer;
var
LenFind, LenSource: integer;
Mask, StopMask, Cur, Start, Stop: PChar;
ch: char;
label
NextPos;
begin;
Result:=0;
LenFind:=length(Find);
LenSource:=length(Source);
if (StartPos<=0) then StartPos:=1;
if (StopPos<=0) or (StopPos>LenSource) then StopPos:=LenSource;
StopPos:=StopPos+1-LenFind;
if (LenFind=0) or (StartPos>StopPos) then exit;

Start:=@Source[StartPos];
Stop:=@Source[StopPos];
StopMask:=@Find[LenFind+1];
NextPos:
Cur:=Start; if Cur=Stop then exit;
Mask:=pointer(Find);
repeat;
ch:=Mask^;
if (ch<>QChar) and (ch<>Cur^) then begin;
Inc(Start);
goto NextPos;
end;
Inc(Cur);
Inc(Mask);
until Mask=StopMask;
Result:=integer(Start)-integer(pointer(Source))+1;
end;


---

Song   (2003-01-02 16:19:00) [3]

Ищи своим циклом

---

ION T   (2003-01-02 16:18:00) [4]

Я не понял шо в двоичном файле делает строка?

---

Ru   (2003-01-02 16:03:00) [5]

попробуй написать свою функцию и читать не в буфер символов а в массив целых чисел

---

Наверх