Поиск текста в строке

[CoDeR]

Нужно сделать так:
Если текст в определённой строке найден, то происходит одно действие. Если не найден то другое.
Можно таким методом:
ss:=copy(s,pos('text',s),length(s)-pos('text',s));
и там уже писать дальше...
Но мне кажется что он не слишком рациональный и есть какой-то способ проще!
Подскажите этот способ или скажите что его нет, если его действительно нет.

[mutabor]

Pos возвращает индекс символа с которого начинается искомая подстрока, если она не найдена возвращается ноль. Что непонятно?

var 
  source: string;
  text: string;
begin
if Pos(text, source) = 0 then {}
else {};
end;

[CoDeR]

Всё понятно! Спасибо!

[CoDeR]

Ещё один вопрос по строкам:
Есть строка "http://site/213/4563" или "http://site/1074/3242". Вместо этих чисел могут быть другие.
Как найти и записать в отдельные переменные 213 или 1074, 4563 или 3242?

Вот так нахожу 213 или 1024:

  p1:=copy(i1,13,length(i1)-pos('/',i1));
  p1:=copy(p1,1,pos('/',p1));
  p1:=copy(p1,1,length(p1)-1);

А как наиболее рационально найти 4563 или 3242? Не знаю как выбрать начало для новой строки.

[mutabor]

Можно по разному, кто как привык, мне например так проще.

Копирует текст от нужного слеша до следующего или если его нет, то до конца строки

var
adress,s: string;
n,i,nom: integer;
begin
nom:=4; //с четвертого слеша
adress:='http://site/213/4563';
n:=0;
for i:=1 to Length(adress) do
  begin
  if adress[i]='/' then
    begin
    Inc(n);
    if n = nom then
      begin
      s:=Copy(adress,i+1,Length(adress)-i);
      if Pos('/',s) <> 0 then s:=Copy(s,1,Pos('/',s)-1);
      Break;
      end;
    end;
  end;
ShowMessage(s);
end;

[PROGR]

Сообщение от CoDeR

Нужно сделать так:
Если текст в определённой строке найден, то происходит одно действие. Если не найден то другое.
Можно таким методом:
ss:=copy(s,pos('text',s),length(s)-pos('text',s));
и там уже писать дальше...
Но мне кажется что он не слишком рациональный и есть какой-то способ проще!
Подскажите этот способ или скажите что его нет, если его действительно нет.

А цикл не проще организовать?
for i:=1 to length( строка ) do
итд

[Alar]

http://delphibasics.ru/AnsiPos.php - в последней проге, по обработке текстовых данных юзаю это. + это http://delphibasics.ru/Delete.php

Как мало нужно для счастья

[CoDeR]

Спасибо!

Alar, не понятно куда помещать

function AnsiPos ( const Needle, HayStack : string ) : Integer;

поместил в public, пишет ошибку:
Unsatisfied forward or external declaration: 'TForm1.AnsiPos'

И ещё как сделать поиск строки по всему тексту? Чтобы после того как искомый текст встретиться в тексте, искать до конца документа и записывать в другие переменные?

[Alar]

CoDeR AnsiPos - передаёт адрес первого символа в строке, я его использую ещё и так

if AnsiPos(текст, большая длинная строка) <>0 then текст есть в большой длинной строке;

Потом я удаляю часть текста, допустим так -

Delete(S,1,AnsiPos('?',S));

И опять прогоняю по строке S

Впринципе, есть инструменты, а как использовать их придумай сам

P.S. Когда я учился в школе, у меня был хирургический скальпель, очень удобно было карандаши точить