实训外部数据读写操作

《实训外部数据读写操作》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、实训外部数据读写操作一、实训目标掌握外部文本文件读写操作方法能够使用外部文件中的数据作为数据驱动测试的数据源二、任务描述使用外部文本文件中的数据作为用户登录Flight飞机订票系统的用户名和密码三、覆盖的知识点VBS对文本文件的追加、修改、删除、读取操作四、实训参考步骤'************************************'函数功能：检查文件是否存在'输入参数：'pathway-文件全路径'返回值：'如果文件存在，返回True，否则返回False'示例调用：'MsgBoxCheckFileEx

2、ists("D:test.txt")'*************************************FunctionCheckFileExists(FilePath)dimoFSOSetoFSO=CreateObject("Scripting.FileSystemObject")CheckFileExists=oFSO.FileExists(FilePath)SetoFSO=NothingEndFunction'************************************'函数功能：如果

3、文件夹不存在则创建文件夹'输入参数：'fldr-文件夹全路径'返回值：'无'示例调用：'CallCreatFolderIfNotExist("D:test")'*************************************FunctionCreatFolderIfNotExist(fldr)Dimfso,msgSetfso=CreateObject("Scripting.FileSystemObject")IfNot(fso.FolderExists(fldr))ThenSetf=fso.Creat

4、eFolder(fldr)EndIfEndFunction'************************************'函数功能：读取指定行内容'输入参数：'pathway-文件全路径'rowcount-行数'返回值：'该行内容'示例调用：'MsgBoxReadLine("c:c.txt",2)'*************************************FunctionReadLine(pathway,rowcount)Dimfso,myfile,i,flagflag=1Setfs

5、o=CreateObject("scripting.FileSystemObject")Iffso.FileExists(pathway)ThenSetmyfile=fso.openTextFile(pathway,1,False)Elseflag=0EndIfFori=1torowcount-1IfNotmyfile.AtEndOfLineThenmyfile.SkipLineEndIfNextIfflag=1ThenIfNotmyfile.AtEndOfLineThenReadLine=myfile.Read

6、LineElseReadLine="越界"EndIfmyfile.closeElseReadLine="文件不存在"EndIfEndFunction'************************************'函数功能：计算文本文件总行数'输入参数：'FileName-文件全路径'返回值：'该文本文件总行数'示例调用：'MsgBoxNumberOfLines("c:c.txt")'*************************************FunctionNumberOfLines(

7、FileName)DimlineCountlineCount=0SetobjFSO=CreateObject("Scripting.FileSystemObject")SetobjTextFile=objFSO.OpenTextFile(FileName,1)DoUntilobjTextFile.AtEndOfStreamRedimPreservearrFileLines(lineCount)arrFileLines(lineCount)=objTextFile.ReadLinelineCount=lineCou

8、nt+1LoopNumberOfLines=UBound(arrFileLines)objTextFile.CloseEndFunction'************************************'函数功能：向文本文件追加行'输入参数：'pathway-文件全路径'words-新行内容'返回值：'无'示例调用：'callWriteFile_Append(