Удаление тегов в файле html

[W0LF]

Здравствуйте, помогите пожалуйста чем сможете..
Есть файл html, надо удалить из него все теги с "<" по ">" по всему файлу.
Пытался циклом

while Pos('<',s)<>0 do begin
  Delete(s,Pos('<',s),Pos('>',s));
end;

но нечего нормального из этого не вышло...

[Ntlegend]

сомни про PosEx.. будет шото типа такого

i:=Pos('<',s);
while i>0 do begin
  j:=PosEx('<',s, i);
  Delete(s,i,j-i);
  i:=Pos('<',s);
end;

[s.Creator]

Может так ?

while Pos('<',s)<>0 do begin
  Delete(s,Pos('<',s),Pos('>',s) - Pos('<',s) + 1);
end;

procedure Delete(var S: string; Index, Count:Integer);

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

сомни про PosEx.. будет шото типа такого

i:=Pos('<',s);
while i>0 do begin
  j:=PosEx('<',s, i);
  Delete(s,i,j-i);
  i:=Pos('<',s);
end;

Что у тебя сегодня много опечаток ( в том числе и в коде )

i:=Pos('<',s);
while i>0 do begin
  j:=Pos('>',s);
  Delete(s,i,j - i + 1);
  i:=Pos('<',s);
end;

[Ntlegend]

s.Creator врое не новичок на форуме.. а кнопку "правка" досихпор не намацал..

в той строке именно PosEx нада.. если делфи ругается на эту функцыю - это изза тупости того кто пишет.. т.к. нада подключить модуль StrUtils..

[s.Creator]

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

s.Creator врое не новичок на форуме.. а кнопку "правка" досихпор не намацал..

в той строке именно PosEx нада.. если делфи ругается на эту функцыю - это изза тупости того кто пишет.. т.к. нада подключить модуль StrUtils..

Ну если предположить, что знак ">" в html может появиться до знака "<" то можно и

j:=PosEx('>',s, i);

Только в Вашем коде вообще ни одного закрывающего знака ">" нет - хотя врое не новичок.

( Кстати, в той строке хотел выделить именно '>' - но эти символы почему-то жирным шрифтом не пишутся )

[Kotofff]

Немного теории о сути проблемы ...
Автор, а ты уверен, что все теги непарные ? Если учесть теорию HTML: есть например одинарные теги - "а"

PHP код:

<a href="http://ya.ru/"><img src="images/logo.gif"></a> 


Вот тут получается что если удалять все между "<" и ">", то удалится и нужная информация (ссылка). Или ничего такого нет в обрабатываемом файле ?
И все будет прекрасно, например, с тегом "р" потому как он парный:

PHP код:

<p style="text-align: left;">О программе.</p> 


[SportPuma]

Пожалуйста дайте рабочий пример где есть переменная с текстом из которой удаляются теги а то я так ничего не понимаю. заранее благодарен

[fate]

я делал так:
прохожу циклом по коду из которого нужно удалить теги, в цикле условие
если встретился символ < то переменная флаг = истина если > то = ложь
ниже еще условие если флаг = истина удалять символы.
Работает норм.