Форум АНТИЧАТ - работа с txt в delphi

Страница 1 из 2

Форум АНТИЧАТ (https://forum.antichat.xyz/index.php)

- С/С++, C#, Delphi, .NET, Asm (https://forum.antichat.xyz/forumdisplay.php?f=24)

- - работа с txt в delphi (https://forum.antichat.xyz/showthread.php?t=70969)

/Boom\

20.05.2008 22:09

работа с txt в delphi

Я гуружу текст в memo1, как сделать так чтоб с memo1 выдергивался текст в memo2 по маске.
Подскожите плз
или стукните 775474

.:KeepeR:.

20.05.2008 22:12

Напиши маску,а я код соображу....

/Boom\

20.05.2008 22:13

@mail.ru

.:KeepeR:.

20.05.2008 22:14

Тебе просто парсер мыл нужен?

De-visible

20.05.2008 22:14

Каждая запись с новой строки или все в смешку?!

pos(искомая_строка,обрабатыв аемая_строка) - Или это не в моде? ;)

/Boom\

20.05.2008 22:15

каждая в новой строке

.:KeepeR:.

20.05.2008 22:18

для перехода на новую строку используй

Цитата:

#13

De-visible

20.05.2008 22:19

k,i:integer; ;)

Код:

For i:=1 to Memo1.lines.count Do

    Begin

       k:=pos('@mail.ru',Memo1.Lines[i])

       If k<>0 then Memo2.Lines.add(Memo1.lines[i]);

    End.

Будет что-то в этом роде!
Пока ни Делфи ни паскаля!

.:KeepeR:.

20.05.2008 22:23

Код:

i:=1;

while not eof do

Begin

search:= pos("@mail.ru",i);

masiv[i]:= search;

i:=i+1;

End;

В итоге у тебя будут все отпарсиные мыла в масиве - masiv

De-visible: Теги [code]

desTiny

20.05.2008 22:28

Цитата:

Сообщение от .:KeepeR:.

Код:

i:=1;

while not eof do

Begin

search:= pos("@mail.ru",i);

masiv[i]:= search;

i:=i+1;

End;

В итоге у тебя будут все отпарсиные мыла в масиве - masiv

Чё? Если честно, то это даже не скомпилится

Время: 06:02

Страница 1 из 2