實訓外部數據讀寫操作

1、軟件測試技術實訓外部數據讀寫操作一、實訓目標掌握外部文本文件讀寫操作方法能夠使用外部文件中的數據作為數據驅動測試的數據源二、任務描述使用外部文本文件中的數據作為用戶登錄Flight飛機訂票系統(tǒng)的用戶名和密碼三、覆蓋的知識點VBS對文本文件的追加、修改、刪除、讀取操作四、實訓參考步驟I*'函數功能：檢查文件是否存在'輸入參數：'pathway-文件全路徑返回值：'如果文件存在，返回True,否則返回False'示例調用：'MsgBoxCheckFileExists("D:test.txt"),*FunctionCheckFile

2、Exists(FilePath)dimoFSOSetoFSO=CreateObject("Scripting.FileSystemObject")CheckFileExists=oFSO.FileExists(FilePath)SetoFSO=NothingEndFunctionI*'函數功能：如果文件夾不存在則創(chuàng)建文件夾'輸入參數：'fldr-文件夾全路徑返回值：無'示例調用:'CallCreatFolderIfNotExist("D:test"),*FunctionCreatFolderlfNotExist(f

3、ldr)Dimfso,msgSetfso=CreateObject("Scripting.FileSystemObject")IfNot(fso.FolderExists(fldr)ThenSetf=fso.CreateFolder(fldr)EndIfEndFunction*'函數功能：讀取指定行內容'輸入參數：'pathway-文件全路徑'rowcount-行數返回值：該行內容'示例調用：'MsgBoxReadLine("c:c.txt",2)*FunctionReadLine(pathway,rowc

4、ount)Dimfso,myfile,i,flagflag=1Setfso=CreateObject("scripting.FileSystemObject")Iffso.FileExists(pathway)ThenSetmyfile=fso.openTextFile(pathway,1,False)Elseflag=0EndIfFori=1torowcount-1IfNotmyfile.AtEndOfLineThenmyfile.SkipLineEndIfNextIfflag=1ThenWkp 4FW4MUI Tkul4U軟件測試技術IfNotmyfile.AtEndO

5、fLineThenReadLine=myfile.ReadLineElseReadLine="越界"EndIfmyfile.closeElseReadLine="文件不存在"EndIfEndFunction,*函數功能：計算文本文件總行數'輸入參數：'FileName-文件全路徑返回值：'該文本文件總行數'示例調用：'MsgBoxNumberOfLines("c:c.txt")*FunctionNumberOfLines(FileName)DimlineCountlineCount=0Setob

6、jFSO=CreateObject("Scripting.FileSystemObject")SetobjTextFile=objFSO.OpenTextFile(FileName,1)DoUntilobjTextFile.AtEndOfStreamRedimPreservearrFileLines(lineCount)arrFileLines(lineCount)=objTextFile.ReadLinelineCount=lineCount+1LoopNumberOfLines=UBound(arrFileLines)objTextFile.CloseEnd Funct

7、ion軟件測試技術I*函數功能：向文本文件追加行'輸入參數：'pathway-文件全路徑'words-新行內容返回值：無'示例調用：'callWriteFile_Append("D:test.txt","HelloWorld"),*PublicFunctionWriteFile_Append(pathway,words)DimfileSystemObj,fileSpec,logFile,waySetfileSystemObj=CreateObject("Scripting.FileSystemObject

8、")fileSpec=pathwaySetlogFile=fileSystemObj.OpenTextFile(fileSpec,8,true)logFile.WriteLine(CStr(words)logFile.CloseSetlogFile=NothingEndFunction*'函數功能：改寫文本文件所有內容'輸入參數：'pathway-文件全路徑'words-文本內容返回值：無'示例調用：'callWriteFile_Change("D:test.txt","HelloWorld")*

9、PublicFunctionWriteFile_Change(pathway,words)DimfileSystemObj,fileSpec,logFile,waySetfileSystemObj=CreateObject("Scripting.FileSystemObject")fileSpec=pathway軟件測試技術SetlogFile=fileSystemObj.OpenTextFile(fileSpec,2,True)logFile.WriteLine(CStr(words)logFile.CloseSetlogFile=NothingEndFunction,*

10、函數功能：全部替換文本文件中指定字符串'輸入參數：'filepath-文件全路徑'from-被改寫字符串'too-目標字符串返回值：無'示例調用：'callfileReplace("c:source.txt","2008114","test")*FunctionfileReplace(filepath,from,too)Dimfso,myfileSetfso=CreateObject("scripting.FileSystemObject")Setmyfile=fso

11、.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

12、.CloseSetlogFile=NothingEndFunction'函數功能：在指定行之間插入一行'輸入參數：'fileFullPath-文件全路徑'lineFrom/lineTo指定行'content-插入文本內容返回值：無'示例調用：'callinsertLineBetween("c:bsmain_runtime.txt”,3,4,"TestLine"),*FunctioninsertLineBetween(fileFullPath,lineFrom,lineTo,content)DimtempBef

13、ore(),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

14、)-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)Endi

15、fNextEndFunctionI*軟件測試技術函數功能：替換文本文件指定行'輸入參數：'fileFullPath-文件全路徑'line-行數'content-替換為返回值：無'示例調用：'callReplaceLineWith("c:bsmain_runtime.txt",5,"TestLine"),*FunctionReplaceLineWith(fileFullPath,line,content)DimtempBefore(),tempAfter(),lineCount,ilineCount=Numb

16、erOfLines(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=2T

17、oCInt(line)-1CallWriteFile_Append(fileFullPath,tempBefore(i-1)NextCallWriteFile_Append(fileFullPath,content)Fori=0ToCInt(lineCount)-CInt(line)IftempAfter(i)<>"越界"thenCallWriteFile_Append(fileFullPath,tempAfter(i)EndifNextEndFunctionI*函數功能：判斷文本文件是否包含指定字符串'輸入參數：'fileFullPath-文件全路徑'StringValue-指定字符串返回值：若包含則返回True,否則返回False'示例調用：'msgboxstringInFile("c:bsmain_runtime.txt","TestLine&qu