实训外部数据读写操作

 

实训外部数据读写操作

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图纸等内容。


TOP最近更新内容

    长城小学关爱留守儿童工作制度
    园林史名词解释
  • 上一篇:深圳市龙岗区2014—2015学年第二学期七年级语文第一单元测试题
  • 下一篇:《基础教育课程改革纲要》简答题