实训外部数据读写操作

实训外部数据读写操作1.1实训目标掌握外部文本文件读写操作方法能够使用外部文件中的数据作为数据驱动测试的数据源1.2任务描述使用外部文本文件中的数据作为用户登录Flight飞机订票系统的用户名和密码1.3覆盖的知识点VBS对文本文件的追加、修改、删除、读取操作1.4实训参考步骤'************************************'函数功能：检查文件是否存在'输入参数：'pathway-文件全路径'返回值：'如果文件存在，返回True，否则返回False'示例调用：'MsgBoxCheckFileExists(D:\test.txt)'*************************************FunctionCheckFileExists(FilePath)dimoFSOSetoFSO=CreateObject(Scripting.FileSystemObject)CheckFileExists=oFSO.FileExists(FilePath)SetoFSO=NothingEndFunction'************************************'函数功能：如果文件夹不存在则创建文件夹'输入参数：'fldr-文件夹全路径'返回值：'无'示例调用：'CallCreatFolderIfNotExist(D:\test)'*************************************FunctionCreatFolderIfNotExist(fldr)Dimfso,msgSetfso=CreateObject(Scripting.FileSystemObject)IfNot(fso.FolderExists(fldr))ThenSetf=fso.CreateFolder(fldr)EndIfEndFunction'************************************'函数功能：读取指定行内容'输入参数：'pathway-文件全路径'rowcount-行数'返回值：'该行内容'示例调用：'MsgBoxReadLine(c:\c.txt,2)'*************************************FunctionReadLine(pathway,rowcount)Dimfso,myfile,i,flagflag=1Setfso=CreateObject(scripting.FileSystemObject)Iffso.FileExists(pathway)ThenSetmyfile=fso.openTextFile(pathway,1,False)Elseflag=0EndIfFori=1torowcount-1IfNotmyfile.AtEndOfLineThenmyfile.SkipLineEndIfNextIfflag=1ThenIfNotmyfile.AtEndOfLineThenReadLine=myfile.ReadLineElseReadLine=越界EndIfmyfile.closeElseReadLine=文件不存在EndIfEndFunction'************************************'函数功能：计算文本文件总行数'输入参数：'FileName-文件全路径'返回值：'该文本文件总行数'示例调用：'MsgBoxNumberOfLines(c:\c.txt)'*************************************FunctionNumberOfLines(FileName)DimlineCountlineCount=0SetobjFSO=CreateObject(Scripting.FileSystemObject)SetobjTextFile=objFSO.OpenTextFile(FileName,1)DoUntilobjTextFile.AtEndOfStreamRedimPreservearrFileLines(lineCount)arrFileLines(lineCount)=objTextFile.ReadLinelineCount=lineCount+1LoopNumberOfLines=UBound(arrFileLines)objTextFile.CloseEndFunction'************************************'函数功能：向文本文件追加行'输入参数：'pathway-文件全路径'words-新行内容'返回值：'无'示例调用：'callWriteFile_Append(D:\test.txt,HelloWorld)'*************************************PublicFunctionWriteFile_Append(pathway,words)DimfileSystemObj,fileSpec,logFile,waySetfileSystemObj=CreateObject(Scripting.FileSystemObject)fileSpec=pathwaySetlogFile=fileSystemObj.OpenTextFile(fileSpec,8,true)logFile.WriteLine(CStr(words))logFile.CloseSetlogFile=NothingEndFunction'************************************'函数功能：改写文本文件所有内容'输入参数：'pathway-文件全路径'words-文本内容'返回值：'无'示例调用：'callWriteFile_Change(D:\test.txt,HelloWorld)'*************************************PublicFunctionWriteFile_Change(pathway,words)DimfileSystemObj,fileSpec,logFile,waySetfileSystemObj=CreateObject(Scripting.FileSystemObject)fileSpec=pathwaySetlogFile=fileSystemObj.OpenTextFile(fileSpec,2,True)logFile.WriteLine(CStr(words))logFile.CloseSetlogFile=NothingEndFunction'************************************'函数功能：全部替换文本文件中指定字符串'输入参数：'filepath-文件全路径'from-被改写字符串'too-目标字符串'返回值：'无'示例调用：'callfileReplace(c:\source.txt,2008114,test)'*************************************FunctionfileReplace(filepath,from,too)Dimfso,myfileSetfso=CreateObject(scripting.FileSystemObject)Setmyfile=fso.openTextFile(filePath,1,false)cc=myfile.ReadAllmyfile.Closetemper=Replace(cc,from,too)DimfileSystemObj,fileSpec,logFile,waySetfileSystemObj=CreateObject(Scripting.FileSystemObject)fileSpec=pathwaySetlogFile=fileSystemObj.OpenTextFile(filePath,2,true)logFile.WriteLine(CStr(temper))logFile.CloseSetlogFile=NothingEndFunction'************************************'函数功能：在指定行之间插入一行'输入参数：'fileFullPath-文件全路径'lineFrom/lineTo指定行'content-插入文本内容'返回值：'无'示例调用：'callinsertLineBetween(c:\bsmain_runtime.txt,3,4,TestLine)'*************************************FunctioninsertLineBetween(fileFullPath,lineFrom,lineTo,content)DimtempBefore(),tempAfter(),lineCount,ilineCount=NumberOfLines(fileFullPath)ReDimtempBefore(CInt(lineFrom)-1)ReDimtempAfter(CInt(lineCount)-CInt(lineTo)+1)Fori=1ToCInt(lineFrom)tempBefore(i-1)=ReadLine(fileFullPath,i)NextFori=1ToCInt(lineCount)-CInt(lineTo)+1tempAfter(i-1)=ReadLine(fileFullPath,(i+CInt(lineTo)-1))NextCallWriteFile_Change(fileFullPath,tempBefore(0))Fori=2ToCInt(lineFrom)CallWriteFile_Append(fileFullPath,tempBefore(i-1))NextCallWriteFile_Append(fileFullPath,content)Fori=0ToCInt(lineCount)-CInt(lineTo)+1IftempAfter(i)越界thenCallWriteFile_Append(fileFullPath,tempAfter(i))EndifNextEndFunction'*************************************'函数功能：替换文本文件指定行'输入参数：'fileFullPath-文件全路径'line-行数'content-替换为'返回值：'无'示例调用：'callReplaceLineWith(c:\bsmain_runtime.txt,5,TestLine)'*************************************FunctionReplaceLineWith(fileFullPath,line,content)DimtempBefore(),tempAfter(),lineCount,ilineCount=NumberOfLines(fileFullPath)ReDimtempBefore(CInt(line)-1)ReDimtempAfter(CInt(lineCount)-CInt(line))Fori=1ToCInt(line)-1tempBefore(i-1)=ReadLine(fileFullPath,i)NextFori=0ToCInt(lineCount)-CInt(line)tempAfter(i)=ReadLine(fileFullPath,(i+CInt(line)+1))NextCallWriteFile_Change(fileFullPath,tempBefore(0))Fori=2ToCInt(line)-1CallWriteFile_Append(fileFullPath,tempBefore(i-1))NextCallWriteFi