`
ktc7000
  • 浏览: 34980 次
  • 性别: Icon_minigender_1
  • 来自: 南京
社区版块
存档分类
最新评论

QTP中对用户自定义环境变量的XML操作的几个函数

阅读更多
原文地址http://blog.csdn.net/tulituqi/article/details/5441121

大家可能都知道怎么在一个Test里的多个action之间传递参数,可以用DataTable也可以用Parameter。
那么在多个Test之间如何传递参数呢,一般常用的有excel,这个方法应该比较普遍了。这里介绍一下我自己设计的方法。
就是用环境变量来传递参数,我们都知道有个Environment环境变量(在File-Test Setting下),其中有一个是user-define,用户自定义的变量,而且这里还可以使用调用外部文件的方式来使用。那么我的方法就是基于此。
这里面我自己写了4个函数,
addVar(filepath,varname,varvalue)  给指定地址的xml添加一个变量。
delVar(filepath,varname)  删除xml里的变量
GetVars(filepath)  获得xml里的所有变量,以dictionary对象返回
updateVar(filepath,varname,varvalue)  更新xml里的变量的值。
我自己写的函数都不是很完善,没有过多考虑异常处理,大部分还是以正常通过为主写的,希望大家见谅。
这里的XML文件是QTP支持的格式,具体格式大家可以自己先创建几个环境变量,然后导出到外部文件,再看看那个xml的结构就行了。
大体上是这样的结构:
<Environment>
<Variable>
  <Name>upload</Name>
  <Value>T:/TestData/产险测试组/自动化公共库/upload.gif</Value>
</Variable>
<Variable>
  <Name>newVar</Name>
  <Value>ssdfff</Value>
</Variable>
</Environment>

所以我写的代码只能用于QTP这个环境变量的xml文件,对于其他的xml很可能不支持了。

再谈谈具体的用法,我这里的Test每一个都是独立的案例,其内部可以再调用其他可重用的action,也就是之前大家常用的方式,而我写这些函数的用途是为了能让多个独立的案例串连起来执行,在QC中通过执行流依次调用。
首先,在Test里开头使用
Environment.LoadFromFile(Path)
这个方法来读取环境变量文件。
使用的时候只要知道变量名即可了,直接使用Environment("upload")就可以了。
如果这个案例最后有需要传递出去的参数,就可以用addVar的方法。
另外需要考虑的问题就是在使用环境变量前,xml文件里如果没有那个变量就会报错。这里需要慎重一些。

这样使用的好处,每一个案例都是独立的,方便传递参数,同时,如果提出一个新的概念就是Test重用。我在做的一个项目就完整的使用我这套设计,把很长的案例都细化分解成一个个独立的案例,我就是为了Test之间传递参数方便使用的这个方法。而且在使用中发现有很多关键环节的Test可以重用,这比action的重用范围大了一些。不过我这些案例并没有什么特殊的,本身也会用到action重用,比如登录退出。

关于Test重用的话题,改天我拿几个例子来说比较好。可惜手头没有QC环境,不然可以截图配合QC使用来详细说明。

[vb] view plaincopyprint?
filepath="C:/UserDedinedEnvironment.xml" 
 
Set dics = GetVars(filepath) 
 
addVar filepath,"tttt","aaaa" 
Set dics = GetVars(filepath) 
updateVar filepath,"tttt","55555555" 
Set dics = GetVars(filepath) 
delVar filepath,"tttt" 
Set dics = GetVars(filepath) 
xx=1 
 
Function GetVars(filepath)    '已完成 
    Set objxml= CreateObject("MSXML.DOMDocument") 
    objxml.load filepath 
    Set Environ = objxml.lastChild    '获得<Environment>节点 
    Set dic = CreateObject("Scripting.Dictionary") 
    allVar = Environ.childNodes.length    '获得<Environment>节点的子节点数量,即变量个数。 
     
    For i=0 To allVar-1 
        Set vars=Environ.childNodes.item(i)    '获得<Variable>节点 
        var_name=vars.childNodes.item(0).nodeTypedValue 
         
        var_value=vars.childNodes.item(1).nodeTypedValue 
         
        dic.Add var_name,var_value 
    Next 
    Set GetVars = dic    '返回dictionary的环境变量列表 
    Set dic = Nothing 
End Function 
 
 
Function addVar(filepath,varname,varvalue)    '已完成 
    Set objxml= CreateObject("MSXML.DOMDocument") 
    objxml.load filepath 
    Set Environ = objxml.lastChild    '获得<Environment>节点 
 
    Set dic = CreateObject("Scripting.Dictionary") 
    allVar = Environ.childNodes.length    '获得<Environment>节点的子节点数量,即变量个数。 
     
    For i=0 To allVar-1 
        Set vars=Environ.childNodes.item(i)    '获得<Variable>节点 
        var_name=vars.childNodes.item(0).nodeTypedValue 
        var_value=vars.childNodes.item(1).nodeTypedValue 
        dic.Add var_name,var_value 
    Next 
    If dic.Exists(varname) Then 
        updateVar filepath,varname,varvalue 
        Exit Function 
    End If 
     
    Set vars =Environ.childNodes.item(0) 
    Set newVar= vars.cloneNode(1)    '复制<Variable>节点 
    '修改子节点的值 
    newVar.childNodes.item(0).nodeTypedValue = varname 
    newVar.childNodes.item(1).nodeTypedValue = varvalue 
    '添加节点 
    Set newEnv= Environ.appendChild(newVar) 
    '保存xml 
    objxml.save filepath 
End Function 
 
 
Function updateVar(filepath,varname,varvalue)  '已完成 
    Set objxml= CreateObject("MSXML.DOMDocument") 
    objxml.load filepath 
    Set Environ = objxml.lastChild    '获得<Environment>节点 
    allVar = Environ.childNodes.length    '获得<Environment>节点的子节点数量,即变量个数。 
     
'   Set dic = CreateObject("Scripting.Dictionary") 
'   For i=0 To allVar-1 
'       Set vars=Environ.childNodes.item(i)    '获得<Variable>节点 
'       var_name=vars.childNodes.item(0).nodeTypedValue 
'       var_value=vars.childNodes.item(1).nodeTypedValue 
'       dic.Add var_name,var_value 
'   Next 
'   If Not dic.Exists(varname) Then 
'       addVar filepath,varname,varvalue 
'       Exit Function 
'   End If 
 
    For i=0 To allVar-1 
        Set vars=Environ.childNodes.item(i)    '获得<Variable>节点 
        var_name=vars.childNodes.item(0).nodeTypedValue 
        If var_name=varname Then 
            vars.childNodes.item(1).nodeTypedValue = varvalue    '更新变量值 
            Exit For 
        End If 
    Next 
 
    '保存xml 
    objxml.save filepath 
End Function 
 
 
Function delVar(filepath,varname)    '已完成 
    Set objxml= CreateObject("MSXML.DOMDocument") 
    objxml.load filepath 
    Set Environ = objxml.lastChild    '获得<Environment>节点 
     
    allVar = Environ.childNodes.length    '获得<Environment>节点的子节点数量,即变量个数。 
    If allVar=1 Then 
        Exit Function 
    End If 
    For i=0 To allVar-1 
        Set vars=Environ.childNodes.item(i)    '获得<Variable>节点 
        var_name=vars.childNodes.item(0).nodeTypedValue 
        If var_name=varname Then 
            Environ.removeChild(vars)     '删除节点 
            Exit For 
        End If 
    Next 
 
    '保存xml 
    objxml.save filepath 
End Function
分享到:
评论

相关推荐

    QTP中自定义的,常用函数

    在这个主题中,我们将深入探讨QTP中自定义的常用函数,特别是与FTP操作和测试报告相关的部分。 首先,FTP(File Transfer Protocol)是网络上用于传输文件的标准协议。在QTP中,我们可能需要自定义函数来执行FTP...

    精通QTP——自动化测试技术领航

    2.4 环境变量 2.5 常用保留对象(Utility Objects) 2.6 QuickTest自动化模型对象(AOM) 2.7 无人值守测试的守护神—场景恢复(Recovery Scenarios) 3.1正则表达式 3.2 HTML DOM测试应用 3.2.1 了解DOM在QTP中应用...

    QTP中自定义的常用函数,包括FTP,测试报告等

    本文将深入探讨QTP中自定义的常用函数,特别是涉及到FTP操作以及测试报告的生成。 首先,FTP(File Transfer Protocol)是网络上文件传输的标准协议,常用于在服务器之间或服务器与客户端之间上传和下载文件。在QTP...

    QTP调用XML函数

    QTP调用XML的方法大全,所有函数都应有尽有

    QTP操作xml文件方法

    在QTP中,XML文件被视为一个特殊的文件对象,可以通过File对象来操作。要读取或写入XML文件,可以使用File对象的OpenAsTextStream和WriteText/ReadAll方法。例如: ```vbscript Dim fileObj Set fileObj = ...

    qtp小知识几个简单函数及应用

    ### QTP小知识几个简单函数及应用 QTP(Quick Test Professional)是一种自动化测试工具,...以上就是关于QTP中几个常用函数及其应用的基本介绍。通过灵活运用这些函数,可以显著提高自动化测试脚本的功能性和效率。

    常用QTP函数合集

    本文将对一份QTP函数合集进行详细解析,这份合集包含了一系列实用的函数,覆盖了文件操作、数据操作、Web操作、Windows操作以及错误处理等多个方面。虽然原作者提到部分函数可能显得冗长或不太实用,但它们却为我们...

    QTP 中文版用户指南

    【QTP 中文版用户指南】是一份专为初学者设计的详尽教程,旨在帮助用户快速掌握QuickTest Professional(QTP,现已被更名为HP Unified Functional Testing)的基本操作和高级功能。QTP是一款自动化测试工具,由HP...

    QTP的XML结果文件中读取数据,汇总写入EXCEL

    在给定的描述中,我们看到如何从 QTP 的 XML 结果文件中提取数据,并将这些数据汇总到一个 Excel 文件中。 首先,我们需要了解如何读取 XML 文件。在示例代码中,使用了 `GetXmlAttribute` 函数来获取特定 XML 路径...

    第23篇-QTP环境变量

    【QTP环境变量】在软件测试领域中是一个重要的概念,特别是在自动化测试中,它允许测试者灵活地管理和控制测试执行的环境配置。QuickTest Professional(QTP),现已被命名为Unified Functional Testing(UFT),是...

    QTP常用函数.docx

    文档"QTP常用函数.docx"列举了一些QTP中常用的自定义函数,这些函数不仅适用于QTP,还适用于Robot,后者是HP Unified Functional Testing(UFT)的一部分。以下是对这些函数的详细说明: 1. **Get_Data()**:这是一...

    QTP函数说明(中文)

    【QTP函数说明(中文)】QT学习中涉及的函数包括了对Web浏览器窗口的操作、截图功能以及页面内容的检查和处理。以下是对这些函数的详细说明: 1. **SelectWin** 方法:此方法用于在多窗口环境中选择一个特定的...

    通过自定义对象来操作一些QTP录制脚本无法驱动的对象

    在QTP中,自定义对象是指用户根据特定需求手动创建的对象,这些对象可以帮助我们识别和操作那些QTP默认不支持或难以识别的元素。通过自定义对象,我们可以更加灵活地控制测试过程中的各种复杂情况。 #### 二、为...

    QTP中常用的VB函数

    在自动化测试领域,QuickTest Professional(QTP)是一款广受欢迎的工具,它允许用户通过录制、脚本和自定义函数来实现对应用程序的功能测试。在QTP中,常常需要使用到Visual Basic(VB)的内置函数来处理字符串、...

    QTP对象库XML文件

    QTP对象库XML文件 XML QTP

    QTP中文版用户手册.7z

    《QTP中文版用户手册》是一份详尽的资源,为使用QuickTest Professional(QTP)进行自动化测试的用户提供全面指导。...手册中的每个章节都是精心设计,旨在帮助用户从理论到实践,全面掌握QTP的各种功能和技巧。

Global site tag (gtag.js) - Google Analytics