Алгоритм удаления html тега

[monrus]

Привет всем. Вот делаю программу для себя, которая удаляет тег <script ... /script> и все, что находится м/у ними. Думаю, нужная вещь в хозяйстве . Написал типа функцию, но она какая-то корявая.  Где можно ее соптимизировать. Жду Ваших предложений. 

[Алексей++]

вообще то, если "работает коряво", то надо типа исправлять, а не оптимизировать

[monrus]

не - работает то нормально. но код корявый

[zubr]

Код:

procedure TForm1.BitBtn1Click(Sender: TObject);
var
  s: string;
  k, k1: Integer;
begin
 s := M1.Lines.Text;
 While True do
 begin
  k := Pos('<script', s);
  If k = 0 then
  exit;
  k1 := Pos('/script', s);
  If k1 = 0 then
  exit;
  k1 := PosEx('>', s, k1);
  If k1 = 0 then
  exit;
  If k1 < k then
  exit;
  Delete(s, k, k1-k+1)
 end;
 M1.Lines.Text:=s;
end;

З.Ы. За goto по рукам надо бить.

[monrus]

так и думал, что за гото наедут
В любом случае. zubr, ты гигант!!!
А если я хочу использовать консольное приложение, как лучше организовать чтение/запись файла (ч/з EOF или еще что-нить?)

[McZim]

monrus, это как тебе будет угодно. Почитай о принципах работы с файлами, вопросы отпадут.

[monrus]

в коде у меня не попадает на  M1.Lines.Text:=s; я поставил его сразу после делет.
А так - тема закрыта Спасибо еще раз.

[zubr]

А если я хочу использовать консольное приложение, как лучше организовать чтение/запись файла (ч/з EOF или еще что-нить?)

Если ты хочешь по аналогии с memo, то можно использовать класс TStringList
методы те же и тип тот же как у memo.Lines

Код:

.LoadFromFile
.SaveToFile
.Text

[monrus]

спасибо, zubr, за ответы во всех темах!!
Насчет чтения/записи - использую TFileStream.