酷熊

摘要： 读取二进制格式的STL模型文件 std::ifstream fin;fin.open(stlFilePath, std::ios::in | std::ios::binary);bool isBinary=true;//判断stl是否是二进制流文件fin.seekg(0, std::ios::end 阅读全文

摘要： 在命令行窗口中输入：for /f %i in (f:\mydata.txt) do echo %i如果要是写成批处理文件run.batfor /f %%i in (f:\mydata.txt) do echo %%ipause 阅读全文

摘要： //关于文件（夹）操作，可以参考下SHFileOperation这个外壳函数，貌似可以显示进度条。以下没有使用SHFileOperation//删除一个文件夹下的所有内容void myDeleteDirectory(CString directory_path) { CFileFind finder; CString path; path.Format("%s/*.*",directory_path); BOOL bWorking = finder.FindFile(path); while(bWorking){ bWorking = finder.FindNextFile 阅读全文

摘要： //如果涉及到大文件的遍历（大于4GB），可以将以下代码_finddata_t换成__finddata64_t，_findfirst换成_findfirst64，_findnext换成_findnext64void dfsFolder(CString dirPath){_finddata_t FileInfo;CString tmp=dirPath;if (tmp.Right(1) != "\\")tmp += "\\";CString strfind = tmp + "*";long Handle = _findfirst(strf 阅读全文

摘要： //选择文件CFileDialog dlg(TRUE, 0, 0, OFN_HIDEREADONLY, "文本文件|*.txt|所有文件|*.*)||",0);if (dlg.DoModal()){CString filePath=dlg.GetPathName();CString fileNameWithNoExt=dlg.GetFileTitle();}//选择文件夹版本1void CMyTestDlg::OnBnClickedButton1(){TCHAR chPath[255]; //用来存储路径的字符串CString strPath;BROWSEINFO bInf 阅读全文

摘要： COLORREF color=RGB(0,255,0);unsigned char r=GetRValue(color);unsigned char g=GetGValue(color);unsigned char b=GetBValue(color);-------------------------------------CColorDialog colorDialog;COLORREF color;if( colorDialog.DoModal() == IDOK ){ color = colorDialog.GetColor();}--------------------------- 阅读全文

摘要： 下例使用这些函数来获得一个二进制文件的大小：// obtaining file size#include #include const char * filename = "example.txt";int main () {long l,m;ifstream file (filename,ios::in|ios::binary);l = file.tellg();file.seekg (0, ios::end);m = file.tellg();file.close();cout << "size of " << filenam 阅读全文

摘要： //新开一个线程去处理新的工作，可以传一个参数class MyClass//自定义一个类{void fun(){}...}MyClass* myObject=newMyClass;AfxBeginThread(myThread, myObject);//新线程工作UINT __cdecl myThread(LPVOID p){MyClass* obj= (MyClass*)p; obj->fun(); ...AfxEndThread(0);//结束线程return 0;} 阅读全文

摘要： Sub 合并一个文件夹下全部xls文件中sheet到一个xls的sheet()workDir = ThisWorkbook.Path '当前xls文件所在的目录绝对路径'MsgBox workDir, 0, "workDir"bookname = ThisWorkbook.Name '当前xls文件名'MsgBox bookname, 0, "bookname"file = Dir(workDir & "\*.xls") 'workDir目录下第一个文件名'MsgBox file 阅读全文

摘要： 内容来自ExcelHome网站一、题目： 要求编写一段代码，运用Dir函数返回一个文件夹的文件列表。二、代码：Sub 示例_1_12() Dim wjm wjm = Dir("C:\WINDOWS\WIN.ini") MsgBox wjm wjm = Dir("C:\WINDOWS\*.ini") wjm = DirEnd Sub三、代码详解1、Sub 示例_1_12()：宏程序的开始语句。宏名为示例_1_12。2、Dim wjm ：变量wjm声明为可变型数据类型。3、wjm = Dir("C:\WINDOWS\WIN.ini")： 阅读全文