В том случае, если у вас имеется текстовый файл с майлами и Вам необходимо из него вытянуть исключительно логины, посмотрим как с этой задачей можно справится на Дельфи…

procedure TForm1.Button1Click(Sender: TObject);

var

StringList: TStringList;

LoginList: TextFile;

Email, I: Integer;

MLogin{, MServer}: String;

begin

StringList := TStringList.Create; // Создаем сам лист

StringList.LoadFromFile('C:\email.txt'); // Загружаем данный лист

AssignFile(LoginList, 'C:\LoginList.txt'); // Создаем нужный файл

ReWrite(LoginList); // Делаем права на запись

for I := 0 to (StringList.Count - 1) do

begin

Application.ProcessMessages;

Email := Pos('@', StringList.Strings[i]); // Пробуем найти '@'

MLogin := Copy(StringList.Strings[i], 1, Email - 1); // Вытягиваем уже логин

//MServer := Copy(StringList.Strings[i], Email{ + 1}, Length(StringList.Strings[i])); // Вытягиваем сам сервер

//Записываем те данные, которые мы вытянули

//ListBox1.Items.Add(MLogin); // Добовляем логин в наш список

//ListBox2.Items.Add(MServer); // Добовляем сервер в наш список

WriteLn(LoginList, MLogin); // Записываем все логины

end;

CloseFile(LoginList); // Закрываем наш дескриптор

StringList.Free; // Удаляем весь лист

end;

Показанный выше пример, довольно полезен будет в случае разделения наших данных на части и поледующей запись их в текстовый файл. Данный пример с легкостью можно переделать и для иных извлечений данных из взятого нами листа.

Спонсор поста: красочные обои для рабочего стола предлагает gandex.ru. На нашем сайте представлены не только высочайшего качества заставки для рабочего стола, но и также очень красивые фото,  картинки и скринсейверы.