动态重命名共享OR对象名称

时间:2015-06-23 10:46:39

标签: vbscript qtp hp-uft

根据我们遵循的命名约定,我们需要将每个对象重命名为其标准名称。 其中一个惯例是用'_'

替换空格

例如。对象名称 - > Object_name

有没有办法使用代码行动态执行它。?

2 个答案:

答案 0 :(得分:0)

您可以做什么,将存储库导出到XML。然后使用XML dom对象,您可以导航到每个Node.Each节点将具有名称属性。然后您可以检查是否有空格如果它是您可以更改它的逻辑名称。这将更改对象存储库名称。

但你需要在你的QTPscript中做类似的改变之王才能得到反映。

答案 1 :(得分:0)

将OR导出到xml文件并使用以下代码行。 并使用生成的xml导入或返回QTP。 这是特定于SAP GUI

Function  ModifyORXML(inputFilepath,outputFilepath)
Set xmlDoc =  CreateObject("Microsoft.XMLDOM")
xmlDoc.Async = "False"
xmlDoc.Load(inputFilepath)
Set xmlNodeList = xmlDoc.getElementsByTagName("qtpRep:Object")
num = xmlNodeList.length

For each x in xmlNodeList
    AttName=x.getattribute("Name")
    If x.getattribute("Class")="SAPGuiButton" Then
        tmp=Split(AttName," ",-1,1)
        AttName=tmp(0)
    End If
    AttName=Replace(AttName,Chr(34)," ")
    AttName=Replace(AttName,")"," ")
    AttName=Trim(AttName)           
    oldAttName=AttName
    AttName=Replace(AttName,":"," ")                
    AttName=Trim(AttName)
    AttName=Replace(AttName," ","_")    
    AttName=Replace(AttName," __","_",1,-1,1)   
    x.Attributes.getNamedItem("Name").Text = AttName
Next    
xmlDoc.Save outputFilepath  
End Function