正文内容加载中...
posted @ 2012-03-19 10:41 Sirrah 阅读 (1524) 评论 (0) 编辑
摘要:'参数1: txt文件'参数2: 在第几行后插入数据'参数3: 插入数据内容Call AddLine("C:\test.txt",2,"2")Function AddLine(strPath,IntLine,strInput) Dim Fso,MyFile Set Fso = CreateObject("Scripting.FileSystemObject") '以只读的方式打开文件 Set ReadFile = Fso.OpenTextFile(strPath,1,true) '以只写的方式打 阅读全文
posted @ 2012-03-08 14:14 Sirrah 阅读 (3449) 评论 (0) 编辑
摘要:There are several ways to return multiple values from functions. In this topic, we’re going to look over the 5 most common techniques to pass 2 or more values from functions. The 5 techniques are: 1、Returning variables in Global scope 2、Returning a Collection 3、Returning Arrays 4、Using Concate... 阅读全文
posted @ 2012-02-28 10:48 Sirrah 阅读 (434) 评论 (0) 编辑
摘要:为了方便QC导出含测试步骤的测试用例,利用闲余时间使用VBS写了一个小程序,方便导出数据目前仍存在Bug,但是可以正常使用界面预览如下: 阅读全文
posted @ 2012-02-27 14:57 Sirrah 阅读 (834) 评论 (0) 编辑
摘要:本例子已sql2000数据库为实例对象1、使用sql查询分析器执行sql语句,将会看到你想要的数据;sql语句如下:Select TS_TEST_ID,TS_NAME,TS_DESCRIPTION,TS_STEPS, DS_STEP_NAME,DS_DESCRIPTION,DS_EXPECTED, TS_STATUS,TS_CREATION_DATE,TS_RESPONSIBLEfrom td.TEST,td.DESSTEPS Where td.TEST.TS_TEST_ID = td.DESSTEPS.DS_TEST_ID ORDER BY td.TEST... 阅读全文
posted @ 2012-02-27 14:44 Sirrah 阅读 (3908) 评论 (0) 编辑