Скачать: CL | DM;

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

← →
Delon   (2007-06-17 17:37) [0]

Очень прошу помочь возникла вот такая проблемка. Заранее огромное спасибо!!!
   Как из мемо вытащить слова содержащие символ @ и записать выбранные слова в другое memo

---

← →
ferr ©   (2007-06-17 17:49) [1]

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

---

← →
Delon   (2007-06-17 17:51) [2]

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

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

---

← →
Johnmen ©   (2007-06-17 18:00) [3]

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

---

← →
Delon   (2007-06-17 18:03) [4]

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

нет

---

← →
Anatoly Podgoretsky ©   (2007-06-17 18:11) [5]

> Delon  (17.06.2007 18:03:04)  [4]

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

---

← →
Delon   (2007-06-17 18:15) [6]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-06-17 18:18) [7]

> Delon  (17.06.2007 18:15:06)  [6]

CommaText + Delete

---

← →
Delon   (2007-06-17 18:21) [8]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-06-17 18:22) [9]

> Delon  (17.06.2007 18:21:08)  [8]

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

---

← →
Delon   (2007-06-17 18:51) [10]

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;

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

---

← →
ppcumax ©   (2007-06-17 22:44) [11]

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;

---

← →
ferr ©   (2007-06-17 22:45) [12]

А вдруг он спамер, молодой.. =)

---

← →
ppcumax ©   (2007-06-17 23:53) [13]

Сейчас нет толку спамить мыла, это вчерашний день

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.014 c