0

我创建了一个相当简单的函数，但我一定忽略了一些东西，因为我在保存时遇到了 3 个错误：

  1. 预期的 '）'
  2. 预期的语句结束
  3. 预期的 End Sub 或 End 函数或 End 属性

这是代码：

Function ReportCheck(sParent, sReport, sTitle)

        oParentWindow = "My_Reports," & sParent

        BuildAndRunObject "My_Reports" , sReport,"LINK", "CLICK","","", "ABORT","","","","" 
        BuildAndRunObject oParentWindow ,sTitle,"WEBELEMENT", "EXIST","","", "","","","","" 
        'BuildAndRunObject oParentWindow ,"select","WEBELEMENT", "SELECT","2009 - 2013","SELECT_VALUE", "ABORT","","","","" 
        BuildAndRunObject oParentWindow ,"Create","WEBBUTTON", "CLICK","","", "ABORT","","","",""   
        Wait(20)
            If BuildAndReportObject(oParentWindow, "Checkmark", "WEBELEMENT","VERIFY PROPERTY VALUE".TRUE. "VISIBLE","","","","","")  and BuildAndReportObject(oParentWindow, "Report_Ready", "WEBELEMENT","VERIFY PROPERTY VALUE". TRUE. "VISIBLE","","","","","") Then
                Reporter.ReportEvent micPass, "Credit Summary", "Report Generated Successfully"
            Else
                Reporter.ReportEvent micFail, sTitle, "Report Failed to Generate"
            End if
End Function

第一个错误是针对 IF 线的。第二个错误是针对 Else。最后一个是 End If 行。

我错过了什么？我很欣赏第二次看。我是我公司唯一一个使用 VB Script 的人，所以我没有人看...

谢谢，

杰米

4

2 回答 2

2

似乎您尝试将字符串与.- 连接起来，这在 PHP 中是有效的，例如，VBS 使用&（注意 . 周围需要空格&）。

于 2013-04-26T19:42:26.467 回答
0

虽然我不确定到底是什么问题......

我重新输入了上面的代码。我认为 QTP 不喜欢我的复制/粘贴中的某些内容，并且可能有一个我看不到的空格或字符导致了问题。当我重新输入代码时 - 与上面显示的相同 - 然后删除了以前的代码，它通过了语法检查。更重要的是 - 它运行没有问题。

因此，如果有疑问，请在进行时逐行重新输入代码检查语法。学过的知识。

感谢所有花时间阅读并感谢 KekuSemau 的回复！

杰米

于 2013-04-29T13:57:06.377 回答