Html, как вырезать тэги? Опции

[$ad!st]

есть текстовый файл, в нём всякая муть включая ХТМЛ тэги, вот мне надо в другой файл переписать всё кроме тэгов т.е. то что в <> скобках...
я незнаю как поставить условие...
for i=0 to 99999 do //читаю строки
readln(F, S);
if S=<*> then...(вот как написать что всё кроме <*> тэгов зписывать незнаю).

[volvo]

Ну, так тебе надо из строки удалить все, что между "<" и ">", а потом записывать всю строку в другой файл... Делается точно так же, как и в Паскале (хочешь, я тему туда перенесу?)

...
Readln(f, s);
repeat
  p_start := Pos('<', s);
  if p_start > 0 then begin
    p_end := pos('>', s);
    delete(s, p_start, p_end - p_start);
  end;
until p_start = 0;
writeln(f_2, s);
...

Только посмотри внимательнее, я мог где-нибудь с индексами ошибиться... Поздно уже Но алгоритм такой...

[$ad!st]

Только посмотри внимательнее, я мог где-нибудь с индексами ошибиться... Поздно уже  Но алгоритм такой...

ага...ошибся...вт как надо

  repeat
    p_start := Pos('<', s);
    if p_start > 0 then begin
    p_end := pos('>', s);
    delete(s, p_start, p_end - p_start+1);
  end;
  until p_start = 0;
    writeln(F2, s);