VPF::Удаление с переменной всего что находится в <*>

Dima85

Дата 20.3.2008, 15:57 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет

Есть:
s: string;

В ней хранится текст до 5500 символов.
Необходимо все символы которые находится в <тут> удалить, вместе с <>.
Помогите пожалуйста.

Rrader

Дата 20.3.2008, 16:07 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Код


Function PreprocessStr(AOrig: String): String;
Var
  NextToken: Char;
  P: Integer;

  Procedure RemoveTag;
  Begin
    Repeat
      NextToken := AOrig[P];    
      Delete(AOrig, P, 1);    
    Until NextToken = '>';
  End;

Begin
  Result := '';
  P := Pos('<', AOrig);
  While P <> 0 Do
  Begin
    RemoveTag;
    P := Pos('<', AOrig);
  End;
  Result := AOrig;
End;

Использование:

Код


ShowMessage(PreprocessStr('1<1235>4'));

Вернет '14'

--------------------

Let's do this quickly!
Rest in peace, Vit!

Dima85

Дата 20.3.2008, 16:13 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет

Как все сложно. А неужели проще решениев нет?

Rrader

Дата 20.3.2008, 16:15 (ссылка)

(нет голосов)

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

Репутация: 70
Всего: 191

Цитата

Как все сложно. А неужели проще решениев нет?

Парсинг строки. Все очень просто smile

--------------------

Let's do this quickly!
Rest in peace, Vit!

Alix

Дата 20.3.2008, 16:29 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

имхо, это не оптимально, удалять по одному символу, особенно для больших строк. Я бы сделал так:

Код

Function PreprocessStr(const AOrig: String): String;
var
  i       : integer;
  lastPos : integer;
  len     : integer;

Begin
  i   := 1;
  len := length(AOrig);
  lastPos := 1;

  while i <= len do begin
    if AOrig[i] = '<' then begin
        Result := Result + copy(AOrig, lastPos, i - lastPos);

        while (i <= len) and (AOrig[i] <> '>') do inc(i);
        lastPos := i+1;
    end;

    inc(i);
  end;

  // copy the rest
  if lastPos <= len then
    Result := Result + copy(AOrig, lastPos, len - lastPos + 1);
end;

Это сообщение отредактировал(а) Alix - 20.3.2008, 17:18

--------------------

Знание только тогда знание, когда оно приобретено усилиями своей мысли, а не памятью (с) Л. Толстой
High tech. Low live. (с) Gardner Dozois

MetalFan

Дата 20.3.2008, 16:29 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

можно с пом.регулярки в 1 строку

Добавлено через 3 минуты и 43 секунды
качаешь TRegExpr
подключаешь uses RegExpr
и пишешь

Код


lResultStr := ReplaceRegExpr( '<.*?>', lSourceStr, '' );

--------------------

There are always someone smarter than you...

Poseidon

Дата 20.3.2008, 16:34 (ссылка)

(голосов:1)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(Dima85 @ 20.3.2008, 15:57

)

Есть:s: string;В ней хранится текст до 5500 символов.

Мне вот интересно стало, как можно в string запихнуть строку длинее 255 символов???

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Alix

Дата 20.3.2008, 16:35 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

Цитата(Poseidon @ 20.3.2008, 16:34

)

Мне вот интересно стало, как можно в string запихнуть строку длинее 255 символов???

если это AnsiString, а в дельфе так по-умолчанию и есть, то почему бы нет?

Добавлено через 1 минуту и 54 секунды

Цитата

можно с пом.регулярки в 1 строку

не стоит их юзать там, где можно без них легко обойтись

--------------------

Poseidon

Дата 20.3.2008, 17:00 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Воть, мой вариант smile

Код

Function PreprocessStr(AOrig: String): String;
var
SPos, FPos: integer;
tmp: string;
begin
while True do
  begin
  SPos:= Pos('<',AOrig);
  FPos:= Pos('>',AOrig);
  tmp:= copy(AOrig, SPos, FPos-SPos+1);
  if (SPos=0)or(FPos=0) then break;
  AOrig:= StringReplace(AOrig, tmp, '', []);
  end;
  Result:= AOrig;
end;

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Dima85

Дата 20.3.2008, 17:02 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 396
Регистрация: 19.7.2007

Репутация: нет
Всего: нет

Я знаю вот таким способом можно удалять символы с строчки

Код


Delete(s, Pos('-', s), Length(S));

Так может есть какое-то аналогичное решение, что-то наподобие:

Код


Delete(s, Pos('<.*?>', s), Length(S));

м?

Это сообщение отредактировал(а) Dima85 - 20.3.2008, 17:03

Poseidon

Дата 20.3.2008, 17:07 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Хех, точно! Что-то я подзабыл про Delete.

Код

Function PreprocessStr(AOrig: String): String;
var
SPos, FPos: integer;
begin
while True do
  begin
  SPos:= Pos('<',AOrig);
  FPos:= Pos('>',AOrig);
  if (SPos=0)or(FPos=0) then break;
  Delete(AOrig, SPos, FPos-SPos+1);
  end;
  Result:= AOrig;
end;

Это сообщение отредактировал(а) Poseidon - 20.3.2008, 17:08

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

MetalFan

Дата 20.3.2008, 17:12 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Цитата(Alix @ 20.3.2008, 16:35

)

не стоит их юзать там, где можно без них легко обойтись

обоснуй. разве что если критично быстродействие

--------------------

There are always someone smarter than you...

ama_kid

Дата 20.3.2008, 17:17 (ссылка)

(нет голосов)

Загрузка ...

АСУТП-кодер

Профиль
Группа: Комодератор
Сообщений: 1460
Регистрация: 5.3.2007
Где: Москва

Репутация: 15
Всего: 95

Цитата(Dima85 @ 20.3.2008, 15:57

)

Необходимо все символы которые находится в <тут> удалить, вместе с <>.

Я бы сделал как-то так:

Код

procedure TForm1.Button1Click(Sender: TObject);
var
 SourceStr,TmpStr:string;
 EndPos:integer;
begin
 SourceStr:='1231<4234>6<4345>785<adffg>68';
 repeat
  TmpStr:=SourceStr;
  Delete(SourceStr,Pos('<',SourceStr),Pos('>',SourceStr)-Pos('<',SourceStr)+1);
 until (TmpStr=SourceStr);
 ShowMessage(SourceStr);
end;

--------------------

самурай без меча подобен самураю с мечом, но только без меча

Poseidon

Дата 20.3.2008, 17:24 (ссылка)

(нет голосов)

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133

Цитата(ama_kid @ 20.3.2008, 17:17

)

Я бы сделал как-то так:

Ну, во-первых не вижу особой разницы с моим кодом. Разве что вместо результата функций подставил сами функции (так, кстати, никто не делает т.к. читать код сложно становится). А еще не понятно зачем EndPos объявлять smile

А вообще "вопрос решен" нужно делать уже. Примеров достаточно

--------------------

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Alix

Дата 20.3.2008, 17:28 (ссылка)

(нет голосов)

Загрузка ...

L45

Профиль
Группа: Участник
Сообщений: 581
Регистрация: 4.5.2005
Где: Pskov/Spb

Репутация: 7
Всего: 23

Цитата(MetalFan @ 20.3.2008, 17:12

)

обоснуй. разве что если критично быстродействие

Да, именно из этих соображений. Всему есть предел и иногда удобство программирования не оправдывает потерь скорости.

Имхо, мое решение для больших строк лучше. Попробую объяснить. Например, у Rrader - слишком много удалений по одному символу. У
Poseidon, это исправлено, но мне кажется неверным способ, когда происходят постоянные удаления из середины строки. В его способе, как и в моем, происходит постоянная работа с памятью, но у меня она только растет (за счет append'a к result), а у него еще и копирование неслабого кол-ва символов. (Да, 5кб копирнуть - это фигня по нынешним временам, но мало ли что...) Если бы не было ключевых слов о том, что строки будут длинными, я бы и не заморачивался.

--------------------

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »