上一页 1 ··· 32 33 34 35 36 37 38 39 40 ··· 49 下一页
  2011年3月6日
摘要: 实用的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 阅读全文
posted @ 2011-03-06 23:05 清清飞扬 阅读(613) 评论(0) 推荐(0)
  2011年3月2日
摘要: ed2k://|file|MSDN_Oct_2001.iso|1558814720|df9843995248f3f88a273f3458f5c4f3|/ 阅读全文
posted @ 2011-03-02 09:01 清清飞扬 阅读(773) 评论(0) 推荐(0)
  2011年3月1日
摘要: 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"' 阅读全文
posted @ 2011-03-01 22:39 清清飞扬 阅读(1341) 评论(0) 推荐(1)
摘要: 具体调用的代码:'向指定的文件写入文本, 并指定是否是添加内容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, 阅读全文
posted @ 2011-03-01 10:51 清清飞扬 阅读(3854) 评论(3) 推荐(0)
摘要: 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 阅读全文
posted @ 2011-03-01 09:15 清清飞扬 阅读(1116) 评论(0) 推荐(0)
  2011年2月28日
摘要: '向指定的文件写字符串,第三个参数指定是否删除原来的内容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 阅读全文
posted @ 2011-02-28 18:16 清清飞扬 阅读(1739) 评论(0) 推荐(0)
摘要: '向指定的文件写字符串,第三个参数指定是否删除原来的内容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, Tr 阅读全文
posted @ 2011-02-28 17:59 清清飞扬 阅读(821) 评论(0) 推荐(0)
摘要: On error resume Next'删除字符串最右边的字符chsFunction MyRTrim(src, chs) '删除字符串最右边的字符chs(可多个) Dim pos, sLeft src = Trim(src) pos = InStrRev(src, chs) '查找最后一个字符chs if(pos > 0 and Len(Mid(src, pos+1)) = 0) Then sLeft = Left(src, pos - 1) '去除最后一个chs MyRTrim = MyRTrim(sLeft, chs) '去除尾部的chs e 阅读全文
posted @ 2011-02-28 14:54 清清飞扬 阅读(1450) 评论(0) 推荐(0)
  2011年2月27日
摘要: #if defined (_MSC_VER)#pragma warning(disable: 4786)#endif#include <iostream>#include <map>#include <algorithm>#include <conio.h>int main(int argc, char *argv[]){ /* define a map */ std::map<int, float> _map; /* insert */ _map.insert( std::map<int,float>::value_ty 阅读全文
posted @ 2011-02-27 23:15 清清飞扬 阅读(2998) 评论(0) 推荐(0)
摘要: #include <iostream>#include <map>using namespace std;int main(){ map<int, string> m; m[0] = "h1"; m[3] = "what"; m.insert(pair<int, string>(4, "love you")); cout<<m[0].c_str()<<endl; cout<<m[3].c_str()<<endl; cout<<m 阅读全文
posted @ 2011-02-27 23:04 清清飞扬 阅读(11377) 评论(0) 推荐(0)
上一页 1 ··· 32 33 34 35 36 37 38 39 40 ··· 49 下一页