2011年2月26日
摘要：
Const ForReading = 1Dim messageDim fs, tsset fs = CreateObject("Scripting.FileSystemObject")set ts = fs.OpenTextFile("1.txt", ForReading)Do Until ts.AtEndOfStream message = ts.ReadLine '即使是空行，也会被读一次 if message <> "" Then MsgBox message End ifLoopts.Closeset ts 阅读全文
摘要：
Function ShowDriveType(drvpath) Dim fso, d, t Set fso = CreateObject("Scripting.FileSystemObject") Set d = fso.GetDrive(fso.GetDriveName(drvpath)) Select Case d.DriveType Case 0 t = "Unknown" Case 1 t = "Removable" '移动硬盘 Case 2 t = "Fixed" '硬盘 Case 3 t 阅读全文
摘要：
Dim messagemessage = "I love you baby, what can I do for you。我一定要找到你！" '经调试，发现不支持中文CreateObject("SAPI.SpVoice").speak message把上面的文件存到a.vbs文件，再双击运行看看，你就知道了。 阅读全文
摘要：
主文件：/* 功能：主要是实现字符串分割，并选择了三种不同的方式来保存结果。 最终证明：可能最方便的还是第一种方法(方便、快捷，不用自己做太多的工作，可以自己维护内存空间)*/#include <iostream>#include <vector>#include "z_string.h"using namespace std;void Spliter(char* pSrc, char* spliter, vector<string>& v){ char* token = NULL; char* temp = new char[s 阅读全文
摘要：
/*功能：删除nDays天及之前的日志文件@nDays: 0-不删除日志，3-删除3天及之前的日志(保留今天、昨天、前天的日志) ...void CRecordLog::ClearLog(UINT nDays)// 删除N天前的日志{if (nDays > 0){WIN32_FIND_DATA FindFileData;CString sAllFile = m_sLogFolder + "\\*.log";HANDLE hFind = ::FindFirstFile(sAllFile, &FindFileData);if(INVALID_HANDLE_VALU 阅读全文
