[Drongo]

Заготовка написана на коленке, С++

Код:

//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
   AnsiString fName, lName, nTelefon, NameFile;
   TSysCharSet chSpace;
   chSpace<<' ';
   TStringList *TokenSpace = new TStringList();
   Memo2->Clear();

   for(int i = 0; i < Memo1->Lines->Count; i++){
	  ExtractStrings(chSpace, chSpace, Memo1->Lines->Strings[i].c_str(), TokenSpace);
	  // Здесь можно поставить проверку на то что
	  // все три необходимые записи (имя, фамилия, телефон) - есть.
	  fName = TokenSpace->Strings[0];
	  lName = TokenSpace->Strings[1];
	  nTelefon = TokenSpace->Strings[2];
	  Memo2->Lines->Add("BEGIN:VCARD");
	  Memo2->Lines->Add("VERSION:2.1");
	  Memo2->Lines->Add("N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:" + fName + " " + lName);
	  Memo2->Lines->Add("TEL;WORK:" + nTelefon);
	  Memo2->Lines->Add("END:VCARD");
	  NameFile = String(FormatFloat("000", i) + ".txt");
	  Memo2->Lines->SaveToFile(NameFile);
	  TokenSpace->Clear();
	  Memo2->Clear();
	 }
}
//---------------------------------------------------------------------------

[PhilB]

Могу предложить такое решение.

Код:

awk '{print "BEGIN:VCARD\nVERSION:2.1\nN;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:",$1$2,"\nTEL;WORK:"$3"END:VCARD" ;}' input_file | split -l 5

Если вы под виндой, то необходимо установить awk и split.

[Drongo]

Автор походу даже не озвучил, на каком языке ему нужна реализация.

[kirillgoogle]

Как раз тут-то и кроется загвоздка: я знаю только batch, который едва ли можно языком назвать) Теорию знаю, но в деталях... Borland C++ Builder 6 для оного сойдёт?

[ferget]

Код Drongo как раз для C++ Builder, вроде должен работать в 6 версии

[Drongo]

как раз для C++ Builder, вроде должен работать в 6 версии »

Будет работать и в шестёрке. Единственное, пробелами разделять слова не идеальный вариант, вдруг в имени или фамилии будет пробел? лучле выбрать другой разделитель, например звёздочку * и исправить здесь

Код:

...
  chSpace<<'*';
...

[kirillgoogle]

Я так понимаю, нужно всё содержимое этого документа скопировать в поле MEMO1, да? Только при этом у меня вся кириллица заменяется вопросительными знаками, какую нужно использовать кодировку?

[Drongo]

У формы свойство Charset поставьте Russian_Charset или добавьте вот такие строки, при нажатии на кнопку выскочит диалоговое окно добавления файла, добавьте компонент OpenDialog на форму.

Код:

//---------------------------------------------------------------------------

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   AnsiString fName, lName, nTelefon, NameFile;
   TSysCharSet chSpace;
   chSpace<<' ';
   TStringList *TokenSpace = new TStringList();
   Memo2->Clear();
   if(OpenDialog1->Execute()){
   Memo1->Lines->LoadFromFile(OpenDialog->FileName);
      for(int i = 0; i < Memo1->Lines->Count; i++){
         ExtractStrings(chSpace, chSpace, Memo1->Lines->Strings[i].c_str(), TokenSpace);
        // Здесь можно поставить проверку на то что
        // все три необходимые записи (имя, фамилия, телефон) - есть.
        fName = TokenSpace->Strings[0];
        lName = TokenSpace->Strings[1];
        nTelefon = TokenSpace->Strings[2];
        Memo2->Lines->Add("BEGIN:VCARD");
        Memo2->Lines->Add("VERSION:2.1");
        Memo2->Lines->Add("N;ENCODING=QUOTED-PRINTABLE;CHARSET=UTF-8:" + fName + " " + lName);
        Memo2->Lines->Add("TEL;WORK:" + nTelefon);
        Memo2->Lines->Add("END:VCARD");
        NameFile = String(FormatFloat("000", i) + ".txt");
        Memo2->Lines->SaveToFile(NameFile);
        TokenSpace->Clear();
        Memo2->Clear();
      }
   }
}
//---------------------------------------------------------------------------

[kirillgoogle]

Ошибка, хотя OpenDialog благополучно стоит