Обработка html кода

[Черничный]

Мне нужно вытащить код с некой html-странички и взять текст
от тега <!--text begin-->
до тега <!--text end-->
и поместить его в memo к примеру.

Как обработать???

[Voody]

Copy , Pos

[Черничный]

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

Copy , Pos

Я знаю что нужно использовать. Мог бы "скодить" не написал бы. Мне примерчик нужно! Самый простенький!

[Stilet]

Простенький консольный пример:

   var e,s:string;i:integer;
begin
 s:='Мне нужно вытащить код с некой html-странички и взять текст от тега <!--text begin-->'+
 'до тега <!--text end--> и поместить его в memo к примеру.';
 i:=pos('<!--text begin-->',s);
 if i>0  then begin
   i:=i+length('<!--text begin-->');
   delete(s,1,i-1);
   i:=pos('<!--text end-->',s);
   if i>0  then begin
     e:=copy(s,1,i-1);
     write(e);
   end;
 end;
readln;
end.

Смысл ясен?

[Черничный]

Что-то не очень дошло. Я со строковыми вообще никогда не работал. и Моя строка... я ее не собираю из "некого текста + мой тег + текст... " это исходный код html странички

[Квэнди]

temp:=copy(instr,pos('<!--text begin-->',instr)+length('<!--text begin-->'),length(instr)-(pos('<!--text begin-->',instr)+length('<!--text begin-->')-1);
result:=copy(temp,1,pos('<!--text end-->',temp)-1);

[Usov]

function GetSubStr(InputStr, BeginStr, EndStr: String): String;
var
  s: String;
  sp, ep: Integer;
begin
  Result := '';
  if pos(BeginStr, InputStr) <> 0 then begin
    sp := pos(BeginStr, InputStr)+length(BeginStr);
    s := copy(InputStr,sp,length(InputStr));
    ep := pos(EndStr,s)-1;
    Result := copy(s,1,ep);
  end;
end;

[Stilet]

это исходный код html странички

Ну и ради бога. Он же и есть "строка".

[Черничный]

Ну все, работает) Спасибо