Пиши прогу которая вытаскивает email адреса из файла.

#include <vcl.h>
#include <ctype.h>
#pragma hdrstop
 
 
#pragma argsused
 
 
// посмотрим сколько растояние  до конца слова
int  pos_next(const char* str) {
    int len = 0;
    do {
         if(! isalnum(*str) && *str != '.' && *str != '-')
              break;
         else
              len++;
    } while(*str++ != '\0');
    str -= 1;
    return (*str == '.' || *str == '-') ? len - 1 : len;
}
 
// продвигаемся назад до  начала слова
int  pos_prev(const char* str, int pos) {
    int len = pos;
    --str;
    while(pos--) {
         if(! isalnum(*str) && *str != '.' && *str != '-')
                break;
         else
                len--;
         --str;
    }
    return len;
}
 
// анализирующея функция
bool  analyzer(const char* str) {
  int  abc = 0, dot = 0;
 
  if(! isalpha(*str) )
        return false;
 
  while(*str != '@' && *str != '\0') {
        if(isalnum(*str))
             abc++;
       if( *str == '.' || *str == '-')
             dot++;
        *str++;
  }
 
  if( dot > 2 || ! abc)
        return false;
 
  dot = abc = 0;
  *str++;
 
  do {
        if(isalpha(*str))
             abc++;
        if( *str == '.')
             dot++;
  } while( *str++ != '\0' );
 
  if( dot > 2 || abc < 2 )
        return false;
 
  return true;
}
 
 
 
 
int main(int argc, char* argv[]) {
 
       AnsiString  text = "";
 
       TStringList*  fp  = new TStringList();
       fp->LoadFromFile("X:\\src.txt");  // открываем файл для парсирования
       text = fp->GetText();
       fp->Clear();
       delete fp;
       fp = NULL;
 
       fp = new TStringList();
 
       const char* str = text.c_str();
       int   pos           = 0;
       do {
 
             if( *str == '@' ) {
                  int first   = pos_prev(str, pos);
                  int last   = pos_next(str + 1);
                  AnsiString test = text.SubString(first + 1, pos - first + last + 1);
                  if(analyzer(test.c_str()))
                        fp->Add(test);
             }
             pos++;
 
       } while( *str++ != '\0' );
 
       fp->SaveToFile("X:\\email.txt");  // сохраняем email в файл, в виде списка
       fp->Clear();
       delete fp;
       fp = NULL;
 
       system("pause");
 
    return 0;
}

[BCC32 Error] Project1.cpp(3): E2209 Unable to open include file 'vcl.h'

#include <iostream>
#include <string>
#include <fstream>
#include <iterator>
#include <algorithm>
#include <boost/regex.hpp>
 
void PrintValue(std::string str)
{
    std::cout << str << std::endl;
}
 
int main()
{
    boost::regex RegString("[a-zA-Z0-9_\\.]+@([a-zA-Z0-9]+\\.)+[a-zA-Z]{2,4}");
    std::string text;
    std::ifstream input("input.txt");
    std::istream_iterator <std::string> eof;
    std::istream_iterator <std::string> ptr(input);
 
    if (!input.is_open())
    {
        std::cout << "Can't open file" << std::endl;
        std::cin.get();
    }
 
    while (ptr != eof)
    {
        text += *ptr++;
        text.insert(text.size(), " ");
    }
 
    std::string::const_iterator startIt = text.begin();
    std::string::const_iterator endIt = text.end();
    boost::smatch results;
    std::vector <std::string> resultsEmail;
 
    while (boost::regex_search(startIt, endIt, results, RegString))
    {
        resultsEmail.push_back(results[0]);
        startIt = results[0].second;
    }
 
    std::for_each(resultsEmail.begin(), resultsEmail.end(), PrintValue);
 
    std::cin.get();
    return 0;
}