14.11.2005, 22:45
|
|
наркоман с медалью
Регистрация: 07.05.2005
Сообщений: 3,704
С нами:
11058146
Репутация:
4536
|
|
Выдергивание слов
На делфи.
Вот, например, мне надо из текстого файлы выдернуть все слова, которые содержат символ @...
... как это реализовать?
|
|
|
14.11.2005, 22:58
|
|
Banned
Регистрация: 20.06.2005
Сообщений: 880
С нами:
10994966
Репутация:
1332
|
|
смотря что понимать под словом. если это просто последовательность символов без пробелов то я вообще не понимаю сложности задачи - опиши конкретней условие
|
|
|
|
14.11.2005, 23:08
|
|
наркоман с медалью
Регистрация: 07.05.2005
Сообщений: 3,704
С нами:
11058146
Репутация:
4536
|
|
ну есть текст, нужно в отдельный файл записать все слова, в которых есть знак @
не сложно тем кто знает, а тем кто его не знает ето сложно =((
|
|
|
|
14.11.2005, 23:19
|
|
Познающий
Регистрация: 08.04.2005
Сообщений: 69
С нами:
11099906
Репутация:
59
|
|
ну если считать слова ето части разделённые пробелом, то:
procedure TForm1.SubClick(Sender: TObject);
var f:textfile;
i,j,l,r:integer;
s,s1:string;
begin
AssignFile(f,'c:\x.txt');
reset(f);
while not Eof(f) do
begin
readln(f,s);
l:=1;
for i:=1 to length(s) do
begin
r:=pos(' ',s);
s1:=copy(s,l,r);
delete(s,l,r);
if length(s1)>1 then
if (pos('@',s1)>0) then memo1.Lines.Add('['+s1+']');
end;
if (pos('@',s1)>0) then memo1.Lines.Add('['+s+']');
end;
end;
...а так намного проще ето сделать в Пёрле ... имхо ....
___ ввод (x.txt)
re@v vas here+qwe
and s@m time
@aga asd
___ вывод (memo1.text)
|
|
|
|
14.11.2005, 23:22
|
|
наркоман с медалью
Регистрация: 07.05.2005
Сообщений: 3,704
С нами:
11058146
Репутация:
4536
|
|
Спасибо большое, спас!
|
|
|
|
21.11.2005, 17:54
|
|
Участник форума
Регистрация: 13.10.2005
Сообщений: 210
С нами:
10828531
Репутация:
14
|
|
Это что б из баз уинов выдергивать только мыла?
|
|
|
|
|
 |
|
Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
|
|
|
|
Комбинированный вид
