2011 年 3月 1 日随笔档案 - 清清飞扬

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)

vbs调用WebService -- 使用xmlhttp

摘要：具体调用的代码：'向指定的文件写入文本, 并指定是否是添加内容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 清清飞扬阅读(3853) 评论(3) 推荐(0)

vbs过程参数--byref和byval

摘要： 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)