[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

16.09.2009, 12:32

slesh

Reservists Of Antichat - Level 6

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

2 iGlass самый быстры способ, но небудет пахать на кривой реализации или на очень сложной системе где есть хитрые JS но и то можно сделать проверку на это а так алгоритм такой примерно:

Код:

var
  x,y:integer;
  s1,s2:string;
  tagflag:boolean;
begin
  s1 :=  '<b>big</b> <a href="http://site.com/">link</a>';
  s2 := '';
  y := length(s1);
  tagflag := false;

  for x:=1 to y do
  begin
    if s1[x] = '<' then
    begin
      tagflag := true
    end
    else if s1[x] = '>' then
    begin
      tagflag := false
    end
    else if tagflag = false then s2:=s2+s1[x];
  end;

  showmessage(s2);

end;

в этоге в s2 бадет код без тегов. приметивный очень алгоритм.

Последний раз редактировалось slesh; 16.09.2009 в 12:35..