摘要： VC MFC程序，列举浏览器“历史”记录并记录到文件中：void CMy111Dlg::OnButton1() { HRESULT hr; IUrlHistoryStg2 *puhs; IEnumSTATURL *pesu; STATURL su; ULONG celt; _bstr_t bstr; hr = ::CoCreateInstance(CLSID_CUrlHistory, NULL, CLSCTX_INPROC_SERVER, IID_IUrlHistoryStg, (LPVOID*)&puhs); if(SUCCEEDED(hr)) { hr = puhs-> En 阅读全文

摘要： VC++中，CTime 与 CString转换CTime m_StartTime1 = CTime::GetCurrentTime();CString csStartTime = m_StartTime1.Format( "%Y%m%d%H%M%S" );使用sprintf及sscanf函数进行CString与CTime之间的转换 一.将CString转为CTime的几种方法CString timestr = "2000年04月05日"; int a,b,c ; sscanf(timestr.GetBuffer(timestr.GetLength()), 阅读全文

摘要： 在实际的项目开发中我们需要通过vb(或其他语言工具)调用oracle程序包内的存储过程返回结果集.这里以短信运营平台中的一个调用为例来说明这个过程,希望对你有所帮助.--一.使用sql*plus创建以下项目:--1.建表("ow_smp"为方案名称,下同)create table "ow_smp"."sm_send_sm_list"( serialno int primary key, --序列号 serviceid varchar(50), --服务id（业务类型） smcontent varchar(1000), --短信内容 s 阅读全文

摘要： 经过今天尝试MFC解析XML串，也算有了不少收获，总结一下。我是使用的CMarkup类对XML进行操作。CMarkup好象都是先从一个xml文件里面把内容读出来，再进行解析，搞得我恨不得要把我的CString写到xml文件里面再取出来了。如果需要直接读取CString，可以直接用 CMarkup::SetDoc方法。最后其他的方法转载别人的使用例子，写得很全。来自http://hi.baidu.com/yxifu/blog/item/fa1569225bda52a44623e8f0.html(一)先讲一下XML中的物殊字符，手动填写时注意一下。字符字符实体&&或& 阅读全文

摘要： 实用的oracle备份实例：如oracle登录名/密码：x1/x2,　Oracle服务名：orcle，则备份orcl到当前目录下的代码：exp x1/x2@orcl file=./x1%date:~11,6%.dmp log=./x1%date:~11,6%.log owner=x1 阅读全文

摘要： ed2k://|file|MSDN_Oct_2001.iso|1558814720|df9843995248f3f88a273f3458f5c4f3|/ 阅读全文

摘要： mu_Choose = "3"Dim i, sMethodif IsNumeric(mu_Choose) Then i = CInt(mu_Choose) if i < 1 or i > 4 Then i = 0 end ifelse i = 0end ifsMethod = Array("hh", "addition", "subtract", "multiply", "division")'sMethod(0) = "hh"' 阅读全文

摘要： 具体调用的代码：'向指定的文件写入文本, 并指定是否是添加内容Function Z_WriteFile(sFileName, sText, bAppend) Dim fs, fso, iomode if bAppend = True Then iomode = 8 'ForAppending else iomode = 2 'ForWriting end if set fs = CreateObject("Scripting.FileSystemObject") set fso = fs.OpenTextFile(sFileName, iomode, 阅读全文

摘要： vbs过程参数--byref(默认)和byval请看例子：On error resume NextSub A1(byval s) s = s & "125"End SubFunction A2(byval s) s = s & "125" A2 = sEnd FunctionDim p1, p2, p3p1 = "what1"p2 = "what2"A1 p1p3 = A2(p2)MsgBox p1 & " : " & p2 & " : &quo 阅读全文

摘要： '向指定的文件写字符串，第三个参数指定是否删除原来的内容Function Z_WriteLog(sFileName, sText) Dim fs, fso, sLog sLog = Now() & ": " & sText set fs = CreateObject("Scripting.FileSystemObject") set fso = fs.OpenTextFile(sFileName, 8, True) '第三个参数表明文件不存在，则新建文件 fso.WriteLine sLog fso.Close set f 阅读全文