Разработка Web-приложения средствами C++ Builder
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
Страница обратной связи:
@import url(assets/css/contact.css);
@import url(assets/css/lay.css);
.style1 {color: #FFFFFF}
">
Здравствуйте,
">
Программный код программы
//---------------------------------------------------------------------------
#include
">#include
#include
#pragma hdrstop
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"*Form1;*s=new TStringList;ech=0;name;name2;nep=0;prav=0;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
}
//---------------------------------------------------------------------------__fastcall TForm1::Button1Click(TObject *Sender)
Items->Clear();->Text="";MyExcel=CreateOleObject("Excel.Application");(ListBox1->Count==0)">{->Items->Clear();->Text="";MyExcel = CreateOleObject("Excel.Application"); (ListBox1->Count==0)
{
ShowMessage("Вы еще не выбрали файл с неправильными email");
}
{(OpenDialog1->Execute()) name2=OpenDialog1->FileName; (name2=="")
{
ShowMessage("Вы не выбрали файл с правильными email!");
}
{.OlePropertyGet("WorkBooks").OleProcedure("Open", name2.c_str());vCells = MyExcel.OlePropertyGet("Cells");vVarSheet = MyExcel.OlePropertyGet("Worksheets").OlePropertyGet("Item",1);iFirstRow = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Row");iColumnCount = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");iFirstCol = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Column");mail;(int i=0; i<iColumnCount; i++)
Items->Add(mail);++;">{= vCells.OlePropertyGet("Item",iFirstRow,iFirstCol);->Items->Add(mail);++;
}w = 1;str= vCells.OlePropertyGet("Item", 2,w);str2= vCells.OlePropertyGet("Item", 3,w);(((str.Pos("@")==0)&&(str2.Pos("@")==0))&&(w<=iColumnCount))
{++;= vCells.OlePropertyGet("Item", 2,w);= vCells.OlePropertyGet("Item", 3,w);
}-;(str.Pos("@")||str2.Pos("@"))
{->ItemIndex = w;
}
{->ItemIndex = -1;("Пожалуйста выберите колонку с email вручную");
}++;.OleProcedure("Quit");
}
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button2Click(TObject *Sender)
Clear();->Clear();(OpenDialog1->Execute())name=OpenDialog1->FileName;(name=="")">{name;MyExcel = CreateOleObject("Excel.Application");>Clear();->Clear();(OpenDialog1->Execute()) name=OpenDialog1->FileName; (name=="")
{
ShowMessage("Вы не выбрали файл с непра?/p>