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

Вниз

Как сделать функцию PosN   Найти похожие ветки 

← →
vitnt ©   (2002-12-02 13:37) [0]

Подскажите пожалуйста как написать функцию, анало pos, но чтобы можно было находить позицию N-ного вхождения подстроки.

---

← →
Song ©   (2002-12-02 13:40) [1]

Цикл+Pos()

---

← →
Skier ©   (2002-12-02 13:43) [2]

>vitnt

RX Library StrUtils.pas;


NPos searches for a N-th position of substring C in a given string.

function NPos(const C: string; S: string; N: Integer): Integer;

---

← →
Skier ©   (2002-12-02 13:46) [3]

"Папы этого ответ помещаю в книжке..." :)


function NPos(const C: string; S: string; N: Integer): Integer;
var
I, P, K: Integer;
begin
Result := 0;
K := 0;
for I := 1 to N do begin
P := Pos(C, S);
Inc(K, P);
if (I = N) and (P > 0) then begin
Result := K;
Exit;
end;
if P > 0 then Delete(S, 1, P)
else Exit;
end;
end;


---

← →
vitnt ©   (2002-12-02 13:47) [4]

> Skier

А исходник функции NPos есть?
а то неохото RX ставить

---

← →
vitnt ©   (2002-12-02 13:49) [5]

I>
> Skier ©

спасибо!<

---

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

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

Наверх

Память: 0.47 MB
Время: 0.013 c