0

かなり単純な関数を作成しましたが、保存時に 3 つのエラーが発生したため、何かを見落としていたに違いありません。

  1. 期待される '）'
  2. 予想されるステートメントの終わり
  3. 予期される End Sub または End Function または 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 行に関するものです。2 番目のエラーは、Else に関するものです。最後は End If 行です。

私は何を取りこぼしたか？2回目の閲覧に感謝します。会社で VB Script を使っているのは私だけなので、見てくれる人がいません...

ありがとう、

ジェイミー

4

2 に答える 2

2

It seems you try to concatenate strings with the . - that is valid in PHP e.g., VBS uses & (take care that spaces are required around the &).

于 2013-04-26T19:42:26.467 に答える
0

問題が何であったかは正確にはわかりませんが...

上記のコードを再入力しました。QTP がコピー/貼り付けの何かを気に入らなかったと思います。おそらく、問題の原因となった、認識できないスペースまたは文字があったのでしょう。上記と同じようにコードを再入力し、前のコードを削除すると、構文チェックに合格しました。さらに重要なことに、問題なく実行されました。

したがって、疑わしい場合は、構文を確認しながらコードを 1 行ずつ再入力してください。学んだ教訓。

時間を割いて読んでくれた皆さん、そして返信してくれた KekuSemau に感謝します!

ジェイミー

于 2013-04-29T13:57:06.377 に答える