任务十描述性编程的使用.doc

软件测试技术 实训 外部数据读写操作 一、实训目标 掌握外部文本文件读写操作方法 能够使用外部文件中的数据作为数据驱动测试的数据源 二、任务描述 使用外部文本文件中的数据作为用户登录Flight飞机订票系统的用户名和密码 三、覆盖的知识点 VBS对文本文件的追加、修改、删除、读取操作 四、实训参考步骤 ************************************ 函数功能：检查文件是否存在 输入参数： pathway - 文件全路径 返回值： 如果文件存在，返回True，否则返回False 示例调用： MsgBox CheckFileExists(D:\test.txt) ************************************* Function CheckFileExists (FilePath) dim oFSO Set oFSO = CreateObject (Scripting.FileSystemObject) CheckFileExists = oFSO.FileExists(FilePath) Set oFSO = Nothing End Function ************************************ ??数功能：如果文件夹不存在则创建文件夹 输入参数： fldr - 文件夹全路径 返回值： 无 示例调用： Call CreatFolderIfNotExist(D:\test) ************************************* Function CreatFolderIfNotExist(fldr) Dim fso, msg Set fso = CreateObject(Scripting.FileSystemObject) If Not (fso.FolderExists(fldr)) Then Set f = fso.CreateFolder(fldr) End If End Function ************************************ 函数功能：读取指定行内容 输入参数： pathway - 文件全路径 rowcount - 行数 返回值： 该行内容 示例调用： MsgBox ReadLine(c:\c.txt, 2) ************************************* Function ReadLine(pathway, rowcount) Dim fso,myfile,i,flag flag = 1 Set fso=CreateObject(scripting.FileSystemObject) If fso.FileExists(pathway) Then Set myfile = fso.openTextFile(pathway,1,False) Else flag = 0 End If For i=1 to rowcount-1 If Not myfile.AtEndOfLine Then myfile.SkipLine End If Next If flag = 1 Then If Not myfile.AtEndOfLine Then ReadLine = myfile.ReadLine Else ReadLine = 越界 End If myfile.close Else ReadLine = 文件不存在 End If End Function ************************************ 函数功能：计算文本文件总行数 输入参数： FileName - 文件全路径 返回值： 该文本文件总行数 示例调用： MsgBox NumberOfLines(c:\c.txt) ************************************* Function NumberOfLines(FileName) Dim lineCount lineCount = 0 Set objFSO = CreateObject(Scripting.FileSystemObject) Set objTextFile = objFSO.OpenTextFile(FileName, 1) Do Until objTextFile.AtEndOfStream Redim Preserve a