Разработка Web-приложения средствами C++ Builder
Отчет по практике - Компьютеры, программирование
Другие отчеты по практике по предмету Компьютеры, программирование
?ильными email!");
}
{.OlePropertyGet("WorkBooks").OleProcedure("Open", name.c_str());
// получение параметров таблицы: кол-во строк, столбцов
int iFirstRow = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Row");iFirstCol = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Column");iRowsCount = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");iColsCount = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Columns").OlePropertyGet("Count");vCells = MyExcel.OlePropertyGet("Cells");(int i=iFirstRow-1; i<iRowsCount; i++)
{(int j=iFirstCol; j<iFirstCol+iColsCount; j++ )
Add(vCells.OlePropertyGet("Item",i+1,j));>ProcessMessages();">{>Add(vCells.OlePropertyGet("Item", i+1,j));>ProcessMessages();
}
}->Items->AddStrings(s);Strok=s->Count;stroki= Strok;("Кол-во неправильных email: " + String(stroki));=1;.OleProcedure("Quit");
}
}
//---------------------------------------------------------------------------__fastcall TForm1::Button3Click(TObject *Sender)
Count==0)">{MyExcel = CreateOleObject("Excel.Application"); (ListBox1->Count==0)
{
ShowMessage("Вы еще не выбрали файл с неправильными email");
}
else
{
if (name2=="")
{
ShowMessage("Вы не выбрали файл с правильными email!");
}
{(SaveDialog1->Execute()) name=SaveDialog1->FileName+".xls";
{
if (name=="")
{
ShowMessage("Вы не выбрали куда сохранить новый файл!");
}
{(!CopyFile(OpenDialog1->FileName.c_str(), name.c_str(), true))
{("Невозможно скопировать" + OpenDialog1->FileName + ".");
ItemIndex;++;=MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");->Position=0;->Max=iRowsCount;">}.OlePropertyGet("WorkBooks").OleProcedure("Open", name.c_str());vCells = MyExcel.OlePropertyGet("Cells");vVarSheet = MyExcel.OlePropertyGet("Worksheets").OlePropertyGet("Item",1);iFirstRow = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Row");iRowsCount;q=iFirstRow;w=ComboBox1->ItemIndex;++;= MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");->Position = 0;->Max = iRowsCount;
//Кол-во email до проверки <<<
Position=0;->Max=iRowsCount;(ListBox1->Count>0)">int yRowsCount = MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");emaildel = 0;=iFirstRow;->Position = 0;->Max = iRowsCount;(ListBox1->Count>0)
ProcessMessages();str=vCells.OlePropertyGet("Item",q,w);(CheckBox1->Checked)">{>ProcessMessages();str= vCells.OlePropertyGet("Item", q,w);(CheckBox1->Checked)
ProcessMessages();str=vCells.OlePropertyGet("Item",q,w);(str=="")">{>ProcessMessages();str= vCells.OlePropertyGet("Item", q,w);(str == "")
{ch = q;.OlePropertyGet("Rows",ch.c_str()).OleProcedure("Select");.OlePropertyGet("Selection").OleProcedure("Delete");
}
{(ListBox1->Items->IndexOf(str) == -1)
{++;
}(ListBox1->Items->IndexOf(str) != -1)
{i = ListBox1->Items->IndexOf(str);->Items->Delete(i);++;ch = q;.OlePropertyGet("Rows",ch.c_str()).OleProcedure("Select");.OlePropertyGet("Selection").OleProcedure("Delete");
}= MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");
}(q>iRowsCount)
{->Items->Clear();
Position++;">}= MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");->Position++;
}
{(ListBox1->Items->IndexOf(str) == -1 || str == "" )
{++;
}(ListBox1->Items->IndexOf(str) != -1)
{i = ListBox1->Items->IndexOf(str);->Items->Delete(i);++;ch = q;.OlePropertyGet("Rows",ch.c_str()).OleProcedure("Select");.OlePropertyGet("Selection").OleProcedure("Delete");
Position++;(q>iRowsCount)">}= MyExcel.OlePropertyGet("ActiveSheet").OlePropertyGet("UsedRange").OlePropertyGet("Rows").OlePropertyGet("Count");->Position++;(q>iRowsCount)
{->Items->Clear();
}
}
}Rowsa=yRowsCount-1;Rowsb=iRowsCount-1;("Кол-во удаленных email:" + String(emaildel) + "\nКол-во email до проверки: " + String(Rowsa)+ "\nКол-во email после проверки: " + String(Rowsb));.OlePropertySet("Visible",true);=0;="";="";(ListBox1->Count==0)
{
LPCSTR Text = "Хотите выбрать еще один файл с правильными email ?";
LPCSTR Caption = "ExcelFind";
LPCSTR Text2 = "Восстановить список с неправильными email ?";
if (MessageBox(Handle,Text,Caption,MB_YESNO) == IDYES)
{(MessageBox(Handle,Text2,Caption,MB_YESNO) == IDNO)
{ ShowMessage("Выберите файл с неправильными email");
Button2->Click();(ListBox1->Count>0)
{
ShowMessage("Выберите файл с правильными email");
Button1->Click();
}
else
{
ShowMessage("Вы не выбрали файл с неправильными email \n выберите его еще раз");
}
}
{->Items->AddStrings(s);("Выберите файл с правильными email");
Button1->Click();
}
}
}
}
}
}
}
}
//---------------------------------------------------------------------------