QTP对象库文件转换为XML文件格式

前端之家收集整理的这篇文章主要介绍了QTP对象库文件转换为XML文件格式前端之家小编觉得挺不错的,现在分享给大家,也给大家做个参考。

QTP中除了有AOM自动化测试对象让我们来 通过外部的程序来操控 QTP 来实现自动化, 其实QTP的核心也提供了一个 ORAOM对象来供我们通过代码来操控对象库。 以下的代码是把 对象库文件 转换为 xml 格式



'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
''目的 : 将对象库转化为XML文件的格式
' sourceFile  :   对象库tsr 文件绝对路径
' targetFilePath : 输出xml的绝对路径     
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Function ExportToXML (sourceFile,targetFilePath) 
		Dim  objectRepository
		Set objectRepository =  CreateObject("Mercury.ObjectRepositoryUtil")
		objectRepository.ExportToXML sourceFile,targetFilePath
		set objectRepository = nothing
End Function


filePath = "c:\or\test2.tsr"
targetFilePath = "c:\or\yy1.xml"
ExportToXML  filePath,targetFilePath
 
  'Create By Eric_1991

猜你在找的XML相关文章