Удалить символы из строки

[Аватар]

если делать stringreplace то уберутся все пробелы,а в самой то новости их надо оставить

Ну почему же? Например следующая команда просто удалит все вхождения <div>

s:=StringReplace(s,'<div>','',[rfReplaceAll, rfIgnoreCase]);

[develsnik]

ну эту проблему мы уже решили)
осталось только убрать неизвестные символы=)

[Stilet]

Какие это символы? Покажи скрин.

[develsnik]

попробовал поменять шрифт ,не помогает....

[Kix.IV]

Это вроде бы спец. символы (0-21 если не ошибаюсь). Вряд ли они были в тексте, скорей всего у тебя неправильная обработка в коде.

[develsnik]

и как это исправить?

[Kix.IV]

Может быть использовать готовый парсер?)
Проблема с кодом который ты выкладывал ранее?

[develsnik]

а есть ли он,этот готовый парсер??))

попробовал через embarcadero (мне в принципе через него и нужно),там тоже самое(

[develsnik]

убрал пробелы с правой частью с помощью trimright,проблему с квадратами решил,но строки перемешались(

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

Вам же только Roshen'овский алфавит нужен?
Ну тогда так:

var
 i,j:Integer;
 c:Char;
begin
 for c in ['а'..'я','А'..'Я' {и ещё кучка цифр, знаков препинания и д.р. символов текста, кот. сам напишешь},#10,#13] do
begin
  for j:=Memo1.Lines.Count -1 downto 0 do
  begin
    for i:=Length(Memo1.Lines[j]) -1 downto 0 do
    begin
    if (Memo1.Lines[j][i] <> c) then
    Memo1.Lines[j][i]:='';
    end;
  Memo1.Lines[j]:=Trim(Memo1.Lines[j]);
  end;
end;
end;

как-то так, должно все вырезать кроме рашеновских букв.