Форум АНТИЧАТ

Форум АНТИЧАТ (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
Чё? Если честно, то это даже не скомпилится

zl0y 20.05.2008 22:30
На форму кидаем одну кнопку и один мемо.
Цитата:
procedure TForm1.Button1Click(Sender: TObject);
var myFile : TextFile; Temp : string;
begin
Memo1.Clear;
AssignFile(myFile,'mails.txt'); //назначим имя файла.
Reset(myFile); //Открываем файл только для чтения.
while not eof(myFile) do //Пока не кончиться файл,читаем построчно.
begin
ReadLn(myFile,Temp);//Читаем построчно в строку с именем "Temp".
Temp:=LowerCase(Temp);//все буквы в нижний регистр
if Pos('@mail.ru',Temp<>0 then Memo1.Lines.Add(Temp);
end;
CloseFile(myFile);//Закроем файл.
end;

De-visible 20.05.2008 23:14
Вопрос решен....closed
/Boom\, если надо будет открыть пиши в ПМ!


Время: 08:49