说明:这里所列举的复制是指在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);
}
}
本文详细介绍了如何在List控件中实现数据的复制和粘贴,以及导出到Excel的方法。通过GetSelectedCount()获取选中行,遍历并获取所需数据,再利用COleDataSource和CSharedFile实现数据复制到剪贴板。同时,文章探讨了导出到Excel的技巧,包括获取CListCtrl的列属性和计算列数量的问题。
2563

被折叠的 条评论
为什么被折叠?



