学习心得：控件之List复制、导出数据（粘贴、导出到EXCEL）

说明：这里所列举的复制是指在LIST里选中一列或几列，然后右键菜单里有个复制选项，点击之后而做的工作。

粘贴当然是Ctrl+C，因为数据是保存在剪切版中的。导出就是保存啦。

一、复制、粘贴

首先，用GetSelectedCount()获取所选中的行，然后GetNextItem（）遍历所选中列，遍历中用GetItemText（）获取你所需要的数据，最后把数据导入到剪切版上。下面是代码：

void CCacheList::OnListCopy()
{
// TODO: Add your command handler code here
UINT i = 0;
UINT uSelectedCount = this->GetSelectedCount(); //获取所选中的行数
int nItem = -1;
CString strTemp;
if (uSelectedCount > 0)
{
for (i=0;i < uSelectedCount;i++)
{
nItem = this->GetNextItem(nItem, LVNI_SELECTED);
ASSERT(nItem != -1);
this->Update(nItem);
for (int nSubItem = 0; nSubItem < MyCol; nSubItem++) //Mycol指我的总列数
{
strTemp = strTemp + GetItemText(nItem, nSubItem) + "/t";
}//这里加个“/t”就是为了数据粘贴到Excel跟list对应，Excel遇到“/t”换一个单元格
strTemp = strTemp + "/r/n";
}
}

//两个版本，下面的注释是用SDK，这里Ole

COleDataSource* pSource = new COleDataSource();
CSharedFile sf(GMEM_MOVEABLE|GMEM_DDESHARE|GMEM_ZEROINIT);

sf.Write(strTemp, strTemp.GetLength()); //写入数据

HGLOBAL hMem = sf.Detach();
if (!hMem)
return;
pSource->CacheGlobalData(CF_TEXT, hMem);
pSource->SetClipboard();
/*
HGLOBAL hMem;
LPTSTR pStr;
hMem = GlobalAlloc(GHND | GMEM_SHARE, strTemp.GetLength() + 1);// 分配内存空间
pStr = (LPTSTR)GlobalLock(hMem);
lstrcpy(pStr, strTemp);
GlobalUnlock(hMem);
::OpenClipboard(NULL);
::EmptyClipboard();
::SetClipboardData(CF_TEXT, hMem);// 设置剪贴板文本
CloseClipboard();
GlobalFree(hMem);// 释放内存空间*/
}

二、导出（转载）

CListCtrl获得列的属性可以使用BOOL CListCtrl::GetColumn( int nCol, LVCOLUMN* pColumn )，nCol为需要获得获得属性值的列序号，pColumn 为 LVCOLUMN 结构体的指针。LVCOLUMN结构体中的 UINT mask 作为输入，决定返回哪些属性的值，如果 mask 的值包含 LVCF_TEXT ，则需要将字符串缓存的首地址指针置入结构体中的 LPTSTR pszText; 变量，缓存大小置入 int cchTextMax; 变量。
　　使用这个函数的主要问题是主要问题期望返回 LVCF_TEXT ，设置了 pszText 却没有设置 cchTextMax 变量，并且通常都在分配 LVCOLUMN 结构体空间时将所分配的内存清0，因此总是不能返回列名。反而是没有清0所分配空间，直接设置 mask 为 LVCF_TEXT ，那么可能可以获得列名的值。当然只要正确设置 pszText 和 cchTextMax 就不会有这些问题。
　　还有一个问题是列的数量。没有直接的函数可以获得列的数量，只能从0开始不断自增 nCol 的值，判断 GetColumn( nCol,pColumn ) 的返回值是否为 False 以计算列的数量。

一封装好的导出CListCtrl数据函数如下：




/**////////////////////////////////////////////////////////////////////////////////


// void GetExcelDriver(CListCtrl* pList, CString strTitle)


// 参数：


// pList 需要导出的List控件指针


// strTitle 导出的数据表标题


// 说明:


// 导出CListCtrl控件的全部数据到Excel文件。Excel文件名由用户通过“另存为”


// 对话框输入指定。创建名为strTitle的工作表，将List控件内的所有数据（包括


// 列名和数据项）以文本的形式保存到Excel工作表中。保持行列关系。


//


// edit by [r]@dotlive.cnblogs.com




/**////////////////////////////////////////////////////////////////////////////////


void ExportListToExcel(CListCtrl* pList, CString strTitle)




...{


CString warningStr;




if (pList->GetItemCount ()>0) ...{


CDatabase database;


CString sDriver;


CString sExcelFile;


CString sSql;


CString tableName = strTitle;




// 检索是否安装有Excel驱动 "Microsoft Excel Driver (*.xls)"


sDriver = GetExcelDriver();


if (sDriver.IsEmpty())




...{


// 没有发现Excel驱动


AfxMessageBox("没有安装Excel! 请先安装Excel软件才能使用导出功能!");


return;


}






/**////默认文件名


if (!GetDefaultXlsFileName(sExcelFile))


return;




// 创建进行存取的字符串


sSql.Format("DRIVER={%s};DSN='''';FIRSTROWHASNAMES=1;READONLY=FALSE;CREATE_DB="%s";DBQ=%s",sDriver,


sExcelFile, sExcelFile);




// 创建数据库 (既Excel表格文件)


if( database.OpenEx(sSql,CDatabase::noOdbcDialog) )




...{


// 创建表结构


int i;


LVCOLUMN columnData;


CString columnName;


int columnNum = 0;


CString strH;


CString strV;




sSql = "";


strH = "";


columnData.mask = LVCF_TEXT;


columnData.cchTextMax =100;


columnData.pszText = columnName.GetBuffer (100);


for(i=0;pList->GetColumn(i,&columnData);i++)




...{


if (i!=0)




...{


sSql = sSql + ", " ;


strH = strH + ", " ;


}


sSql = sSql + " " + columnData.pszText +" TEXT";


strH = strH + " " + columnData.pszText +" ";


}


columnName.ReleaseBuffer ();


columnNum = i;




sSql = "CREATE TABLE " + tableName + " ( " + sSql + " ) ";


database.ExecuteSQL(sSql);




// 插入数据项


int nItemIndex;




for (nItemIndex=0;nItemIndexGetItemCount ();nItemIndex++)...{


strV = "";


for(i=0;iGetItemText(nItemIndex,i) +"'' ";


}




sSql = "INSERT INTO "+ tableName


+" ("+ strH + ")"


+" VALUES("+ strV + ")";


database.ExecuteSQL(sSql);


}




}




// 关闭数据库


database.Close();




warningStr.Format("导出文件保存于%s!",sExcelFile);


AfxMessageBox(warningStr);


}


}