自己模仿写脚本，老是提示语句未结束，求助

cabrite 发表于 2010-7-26 19:08:52

Function checkCommand(aaa,bbb,ccc)
set flag=aaa
If flag Then
reporter.ReportEvent micPass, "bbb", "bbb"
else
reporter.ReportEvent micFail, "ccc", "ccc"
End If
End Function
Browser("Browser").Page("Page").Frame("header").Link("铁矿系统管理").Click
Browser("Browser").Page("Page").Frame("leftmenu").Image("plusbottom").Click
Browser("Browser").Page("Page").Frame("leftmenu").Image("plus").Click
Browser("Browser").Page("Page").Frame("leftmenu").Image("plus_2").Click
Browser("Browser").Page("Page").Frame("leftmenu").Link("报盘登记").Click
Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check CheckPoint("采购报盘登记")
checkCommand "Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check(CheckPoint("采购报盘登记"))" ,"pass","shibai"

我觉得大概是引号的问题，但是不会改，求助:Q

[ 本帖最后由 cabrite 于 2010-7-26 19:19 编辑 ]

cabrite 发表于 2010-7-26 23:12:42

:L 没人理我，郁闷

skyzhu 发表于 2010-7-27 10:22:20

checkCommand "Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check(CheckPoint("采购报盘登记"))" ,"pass","shibai"

字符串里的双引号要转义，用 2个代表一个
就算引号对了，传进去字符串赋给对象一样报错

cabrite 发表于 2010-7-27 10:42:46

原帖由 skyzhu 于 2010-7-27 10:22 发表 http://bbs.51testing.com/images/common/back.gif
checkCommand "Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check(CheckPoint("采购报盘登记"))" ,"pass","shibai"

字符串里的双引号要转义，用 2个代表一个
就算引号对了，传 ...
咋改啊？
我试过转义，好像也不成，百度Google快一天了，崩溃

skyzhu 发表于 2010-7-27 11:40:08

checkCommand "Browser(""Browser"").Page(""Page"").Frame(""content"").WebElement(""采购报盘登记"").Check(CheckPoint(""采购报盘登记""))" ,"pass","shibai"

PS 传进去还是错的，只是换个错误而已

topor 发表于 2010-7-27 14:47:23

checkCommand "Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check(CheckPoint("采购报盘登记"))" ,"pass","shibai"

LZ脚本的最后一句话是什么意思呀？看不懂:(

feiyunkai 发表于 2010-7-27 14:54:30

两种解决方法

原帖由 cabrite 于 2010-7-26 19:08 发表 http://bbs.51testing.com/images/common/back.gif
Function checkCommand(aaa,bbb,ccc)
set flag=aaa
If flag Then
   reporter.ReportEvent micPass, "bbb", "bbb"
else
   reporter.ReportEvent micFail, "ccc", "ccc"
End If
End Functio ...
两种解决方法：个人认为第2种方法比较好
方法一：
在调用函数前先set aaa=Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check CheckPoint("采购报盘登记")
原因：传参前如果没有先set aaa，那么aaa只能被当作变量而不是对象，所以你代码中set flat=aaa会报错。
缺点：每次调用函数前都要set一下对象
方法二：
把set flag=aaa修改为：
Execute "flag="&aaa
原理：将aaa作为字符串传进函数，然后用Execute将"flag="&aaa当作命令执行，效果相当于
flag=Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check CheckPoint("采购报盘登记")

修改后代码如下：
Function checkCommand(aaa,bbb,ccc)
Execute "flag="&aaa
If flag Then
   reporter.ReportEvent micPass, "bbb", "bbb"
else
   reporter.ReportEvent micFail, "ccc", "ccc"
End If
End Function
Browser("Browser").Page(";Page").Frame("header").Link("铁矿系统管理").Click
Browser("Browser").Page(";Page").Frame("leftmenu").Image("plusbottom").Click
Browser("Browser").Page(";Page").Frame("leftmenu").Image("plus").Click
Browser("Browser").Page("Page").Frame("leftmenu").Image("plus_2").Click
Browser("Browser").Page("Page").Frame("leftmenu").Link("报盘登记").Click
Browser("Browser").Page("Page").Frame("content").WebElement("采购报盘登记").Check CheckPoint("采购报盘登记")
checkCommand "Browser(""Browser"").Page(""Page"").Frame(""content"").WebElement(""采购报盘登记"").Check(CheckPoint(""采购报盘登记""))" ,"pass","shibai"

[ 本帖最后由 feiyunkai 于 2010-7-27 15:03 编辑 ]

页: [1]

51Testing软件测试论坛 's Archiver

自己模仿写脚本，老是提示语句未结束，求助

两种解决方法