Удаление с переменной.

[celovec]

Подскажите пожалуйста каким образом если в переменной есть <dsflj>, то все что в <> и сами эти стрелочки необходимо удалить.

[Человек_Борща]

эмм, по понятней нельзя было?

я предпологаю это так:

procedure dosmth;
var
   p:integer;
   s:string;
begin
p:=AnsiPos('<dsflj>',s);
   if p > 0 then
   begin
   Delete(s,p,Length('<dsflj>'));
   ShowMessage(s);
   end;
end;

[veniside]

const
  c_str_to_remove = '<dsflj>';
var
  p: integer;
  s: string;
begin
  repeat
    //
    p := Pos(c_str_to_remove, s);
    if (1 <= p) then
      Delete(s, p, length(c_str_to_remove));
    else
      break;
    //
  until (false);
end;

[celovec]

dsflj - это может менятся. там могут быть разные символы. Я помню как-то это в одну строчку делал... Но не могу вспомнить как именно.

Пример: Андрей <b> Зайцев.

в данном случае <b> нужно удалить.

[Человек_Борща]

Проще простого:

procedure TMainForm.Button1Click(Sender: TObject);
const
  s = 'This is <B4564fhfghdfgdfg> String';
  O = '<';
  C = '>';
var
  startP, endP: Integer;
  ts, ts1: string;
begin
  //ищем откр. ковычку
  startP := AnsiPos(o, s);
  //Ищем закр. ковычку
  endP := AnsiPos(c, s);
  //Копируем от начала строки до позиции откр. ковычки - сама коваычка
  ts := Copy(s, 0, startP - 1);
  //Копируем с позиции закр. ковычки+сама ковычка на всю длинну строки
  ts1 := Copy(s, endP + 1, Length(s));
  //показываем результат
  ShowMessage(ts + ts1);
end;

veniside, почему исп. repeat until?

[W0LF]

var
  s: string;

  s := 'Андрей <b> Зайцев';

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

Удалит все "<>" и текст внутри них.

[celovec]

Всем спасибо.

[celovec]

Воспользовался примером от W0LF,

var
  s: string;

  s := 'Андрей <b> Зайцев';

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

Но что странно. Иногда насколько я понял когда в <*> слишком много текста программа грузит ЦПУ на 80% в таком состояние проводит все оставшееся время, пока не выключишь.

в "s" переменной может быть до 300 символов. Сейчас заметил иногда конец переменной может заканчиваться так "текст < другой текст" то есть нет ">". Возможно из за этого глючит? Помогите пожалуйста разобраться.

[evg_m]

Сейчас заметил иногда конец переменной может заканчиваться так "текст < другой текст" то есть нет ">". Возможно из за этого глючит?

ИМЕННО.
если нет закр скобки. Мы ничего не удаляем и все время находим ОДНУ и ту же октр. скобку. т.е. имеем бесконечный цикл.

k:=pos('<',s);
while K>0 do begin
  kk:=pos('>',s);
  if kk<=0 then kk:=length(s);//удалить все до конца
  if kk<=0 then break; //отавить и закончить
  delete(s, k, kk-k+1);
  k:=pos('<',s);
end;

а еще мы МОЖЕМ найти закр. скобку ДО откр. скобки.
текст > новый текст < code >