实训外部数据读写操作
1.1实训目标
掌握外部文本文件读写操作方法
能够使用外部文件中的数据作为数据驱动测试的数据源
1.2任务描述
使用外部文本文件中的数据作为用户登录Flight飞机订票系统的用户名和密码
1.3覆盖的知识点
VBS对文本文件的追加、修改、删除、读取操作
1.4实训参考步骤
'************************************
'函数功能:检查文件是否存在
'输入参数:
' 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
'************************************
'函数功能:读取指定行内容
www.99jianzhu.com/包含内容:建筑图纸、PDF/word/ppt 流程,表格,案例,最新,免费下载,施工方案、工程书籍、建筑论文、合同表格、标准规范、CAD图纸等内容。