Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как из мемо вытащить слова содержащие символ @

Delon © (2007-06-17 17:37:00)
Очень прошу помочь возникла вот такая проблемка. Заранее огромное спасибо!!!
Как из мемо вытащить слова содержащие символ @ и записать выбранные слова в другое memo

ppcumax (2007-06-17 23:53:00) [1]
Сейчас нет толку спамить мыла, это вчерашний день

ferr (2007-06-17 22:45:00) [2]
А вдруг он спамер, молодой.. =)

ppcumax (2007-06-17 22:44:00) [3]
var
i,pos1:integer;
sobaki:TStrings;
begin
try
sobaki := TStringList.Create;
except
end;
Memo1.text := AnsireplaceStr(Memo1.text,' ',#13#10);
for i:=0 to Memo1.Lines.Count-1 do
begin
pos1 := pos('@',Memo1.lines[i]);
if pos1<>0 then
begin
sobaki.add(Memo1.lines[i]);
end;
end;
end;

Delon (2007-06-17 18:51:00) [4]
i:=1; //начинаем с 1
while i<=Length(s) do //i может равняться последнему символу
begin
if s[i]='*' then
begin
inc(k);
if k mod 2<>0 then
begin
st:=copy(s,i-1,1); //копировали
delete(s,i,1); //удалили
insert(st,s,i); //вставили, теперь значение i тут монижать не надо
end;
end;
inc(i); //изменяем i только здесь
end;

так наверное на большее не способен

Anatoly Podgoretsky (2007-06-17 18:22:00) [5]
> Delon (17.06.2007 18:21:08) [8]

Надо понимать, что ты уже посмотрел справку и что то в ней не понял, а что именно?

Delon (2007-06-17 18:21:00) [6]

> Anatoly Podgoretsky © (17.06.07 18:18) [7]

очень прошу покажи как это делается поподробнее

Anatoly Podgoretsky (2007-06-17 18:18:00) [7]
> Delon (17.06.2007 18:15:06) [6]

CommaText + Delete

Delon (2007-06-17 18:15:00) [8]

> Заодно дай определение, что такое слово, иначе не получится.

нужно вытащить набор символов разделяющимися друг от друга пробелом и содержащие символ @

Anatoly Podgoretsky (2007-06-17 18:11:00) [9]
> Delon (17.06.2007 18:03:04) [4]

Вот с этого и начни, а @ это уже мелкие буквы.
Заодно дай определение, что такое слово, иначе не получится.

Delon (2007-06-17 18:03:00) [10]

> А как просто слова вытащить знаешь?

нет

Johnmen (2007-06-17 18:00:00) [11]
А как просто слова вытащить знаешь?

Delon (2007-06-17 17:51:00) [12]

> такие вещи обычно делаются регулярными выражениями

какими скажи пожалуйста поподробнее

ferr (2007-06-17 17:49:00) [13]
такие вещи обычно делаются регулярными выражениями

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »