Заменить кусок текста из мемо на свой текст

← →
WebSQLNeederr (2008-02-14 22:44) [0]

Я понимаю, что вопрос тривиальный, но прошу совета как это сделать ... то есть существует текст в мемо и нужно сделать парсер, который бы прошелся по тексту и заменил все искомые куски текста на те что мне нужно.

← →
KilkennyCat © (2008-02-14 23:48) [1]

Сopy?
Pos?
AnsiTextReplace?

← →
WebSQLNeederr (2008-02-15 00:35) [2]

copy & pos явно не подходят ...

А что за AnsiTextReplace, что он делает?

← →
Германн © (2008-02-15 01:45) [3]

> А что за AnsiTextReplace, что он делает?
>

Может Константин имел в виду StringReplace?

← →
KilkennyCat © (2008-02-15 02:58) [4]

хе... точно. а мне казалось, и анситекст есть... бредю...

← →
ASoft (2008-02-15 03:13) [5]

AnsiReplaceText(const AText, AFromText, AToText: string): string;
есть так же
AnsiReplaceStr(const AText, AFromText, AToText: string): string;

← →
Германн © (2008-02-15 03:14) [6]

> KilkennyCat © (15.02.08 02:58) [4]
>
> хе... точно. а мне казалось, и анситекст есть... бредю..
> .
>

Один светлый луч в тёмном питерском царстве был. Но он был очень давно. :)

← →
Германн © (2008-02-15 03:19) [7]

> ASoft (15.02.08 03:13) [5]

А. Ну да. В BDS есть такое. Значит Косте пока ещё рано "ловить чёртиков зелёных" :)

← →
KilkennyCat © (2008-02-16 01:27) [8]

> [7] Германн © (15.02.08 03:19)

Ну, почти угадал: абсент, который я сейчас пью - зеленый! :)

← →
Германн © (2008-02-16 01:34) [9]

> KilkennyCat © (16.02.08 01:27) [8]

Скорее всего это не настоящий абсент. Если ты только не делал его сам.

← →
KilkennyCat © (2008-02-16 01:38) [10]

> [9] Германн © (16.02.08 01:34)

действует, как настоящий... из Чехии, вроде. "Фея Гипно". "Черная дырка" закончился уже давно :(

← →
Германн © (2008-02-16 02:01) [11]

> KilkennyCat © (16.02.08 01:38) [10]
>
> > [9] Германн © (16.02.08 01:34)
>
> действует, как настоящий...

Враньё. Настоящий запрещен ещё в начале прошлого века.

← →
KilkennyCat © (2008-02-16 02:33) [12]

> [11] Германн © (16.02.08 02:01)

Только в Европе, и только к продаже. Но если ненастоящий немнооожечко настоять на полыни... :) Кстати, на моем написано, что туйон присутствует.Не помню, сколько, ща до дому доеду и посмотрю...

> KilkennyCat © (16.02.08 02:33) [12]
>
> > [11] Германн © (16.02.08 02:01)
>
> Только в Европе, и только к продаже. Но если ненастоящий
> немнооожечко настоять на полыни... :)

А где ты найдёшь ту полынь? В наших краях она не произрастает, или не дозревает, имхо.

Нашли о чем поговорить :)

> [2] WebSQLNeederr (15.02.08 00:35)
> copy & pos явно не подходят ...

А если Copy и PosEx ? :)

можно с помощью проверки копи, а потом удалить если надо и вставить!
тоесть примерно так:
if copy(r,i,6)="$NAME$" then
begin
delete(r,i,6);
insert(edit1.Text,r,i);
inc(i);
end
else
inc(i);
end;

вот и все!

← →
ASoft (2008-02-16 16:14) [16]

> WebSQLNeederr (14.02.08 22:44)

TMemo:
SelStart
SelLength
SetSelTextBuf();
Остается только "пробежаться" по мемо и найти что заменить

> В наших краях она не произрастает, или не дозревает

Artemisia absentium произрастает (и дозревает) в южных областях.

Заменить кусок текста из мемо на свой текст Найти похожие ветки