根据我们遵循的命名约定,我们需要将每个对象重命名为其标准名称。 其中一个惯例是用'_'
替换空格例如。对象名称 - > Object_name
有没有办法使用代码行动态执行它。?
答案 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