问个很简单的问题

wangpai555

问个很简单的问题，比如说某一行出错，直接结束循环的第一行变量，开始进入循环第2次变量
我用的
Browser("我的地盘我做主").Page("七禧音乐_2").Sync

Dim a
Set a=Browser("我的地盘我做主").Page("七禧音乐_2").GetROProperty("text")
If a="错误信息对不起，您输入的用户名已经被注册，请重新输入。“  Then
exit
End If

但是提示不行

yn303

exit?
能这样子写么？
第二行把set去掉
搂主试一试

xiaonan

一种方法不行,可以换种方法嘛,我看很好解决.就用if...else...判断一下.如果正确走那几句,不正确的话走那几句.
Set a=Browser("我的地盘我做主").Page("七禧音乐_2").GetROProperty("text")
If a="错误信息对不起，您输入的用户名已经被注册，请重新输入。“  Then
.....
else
........
End If

wangpai555

我的意思就是走那几句，比如说如果a= 是ture，那么转到line第几句去，但是这个语句写不出来

xiaonan

vb没有像c语言的的goto语句,所以你要换个思路,不能总停留在那里.

wangpai555

我之前也想过用ACTION调用的方式解决，但是ACTION的设置不太懂

hiyizhiyu

呵呵
可以考虑一下用select case控制出错

wangpai555

请参照代码具体形容一下？好吗。。

xiaonan

Select Case 语句也是判断,只不过是多条件判断


Select Case testexpression
[Case expressionlist-n
[statements-n]] . . .
[Case Else expressionlist-n
[elsestatements-n]]
End Select
参数
testexpression
任意数值或字符串表达式。
expressionlist-n
如 Case 出现则必选项。一个或多个表达式的分界列表。
statements-n
当 testexpression 与 expressionlist-n 中的任意部分匹配时，执行的一条或多条语句。
elsestatements-n
当 testexpression 与 Case 子句的任何部分不匹配时，执行的一条或多条语句。


下面例子举例说明如何使用 Select Case 语句:

Dim Color, MyVar
Sub ChangeBackground (Color)
   MyVar = lcase (Color)
   Select Case MyVar
      Case "red"     document.bgColor = "red"
      Case "green"   document.bgColor = "green"
      Case "blue"    document.bgColor = "blue"
      Case Else      MsgBox "选择另一种颜色"
   End Select
End Sub


你现在的问题是走不出goto的影子,先考虑一下怎么来通过其他方法来实现你想实现的

kissing

ding
有学到很多东西,问一下sub是啥意思??定义一个方法,好像是...lcase(color)是为了取得他的颜色吗??
好像是...

xiaonan

sub是一个过程