在HPE UFT / VBscript中替换URL的一部分

Posted 2021-05-04

因此，我正在尝试使用一个脚本来获取打开选项卡的当前URL，替换URL的一部分，然后输入/导航到具有替换文本的新URL。

我正在努力使用替换功能以及如何在当前选项卡中启动已编辑的URL。

这里概括了我认为应该如何看待。如果这项工作有效，它将打开一个带有新URL的新浏览器，但我希望它在我目前所在的选项卡上。

我是否需要为替换功能的结果创建一个对象？

如果我现在在

abc123.UZ.com/xaxsxa

我想去看看页面

xyz789.UZ.com/xaxsxa

码：

 Browser("Edge").Page("Loan#").WebButton("LoanConditions").Click
 Browser("Edge").Page("Loan#).GetROProperty("url") 
 Result = Browser("Edge").Page("Loan#").GetROProperty("url")
 replace (Result,"abc123","xyz789")
 Systemutil.Run "Chrome.exe", "Result"

答案

使用Browser对象的Navigate方法。

您只需要用以下内容替换最后两行：

Result = replace(Result,"abc123","xyz789")
Browser("Edge").Navigate Result

更新（根据评论中提到的问题）：

试试这个代码。这仍然是我未经测试的。所以，让我知道它是否适合你。

set odesc = Description.create
odesc("micclass").value = "Browser"
intBefore = Desktop.Childobjects(odesc).count
Browser("Edge").Page("Loan#").WebButton("LoanConditions").Click
Browser("Edge").Page("Loan#").Sync
intAfter = Desktop.Childobjects(odesc).count
if intAfter = intBefore + 1 then
    intIndex = intAfter-1
    set objBro = Desktop.Childobjects(odesc).item(intIndex)
    Result = objBro.getRoProperty("url")
    Result = replace(Result,"abc123","xyz789")
    objBro.Navigate Result
end if