51Testing软件测试论坛

标题: ROBOT怎样实现换行 [打印本页]

作者: godflesh81 时间: 2006-5-10 11:34
标题: ROBOT怎样实现换行
例如：msgbox "this is line1\n This is line2"
能不能不通过添加空字符的方式实现换行？？

作者: ilovejolly 时间: 2006-5-10 11:53
MsgBox "haha" & vbCrLf & "hehe" & vbCrLf & "xixi"

试试

作者: godflesh81 时间: 2006-5-10 12:20
Error: Variable vbCrLf undefined
提示vbCrLf没有定义。。是不是需要加载什么文件阿？？

作者: caesarqth 时间: 2006-5-10 12:33
用Chr把ASCII的10或者13转换成回车符就可以了

Chr(10)或者Chr(13)就表示回车

msgbox "this is line1 " & chr(10) & "This is line2"
msgbox "this is line1 " & chr(13) & "This is line2"

[ 本帖最后由 caesarqth 于 2006-5-10 12:42 编辑 ]

作者: godflesh81 时间: 2006-5-10 12:38
因为需要做字符串验证所以如果用chr(10)来代替的话字符串会发生变化从而导致验证失败。。。

作者: caesarqth 时间: 2006-5-10 12:47
你要验证哪个字符串啊？
可不可以用Instr指定要验证的字符串的位置来进行啊

作者: godflesh81 时间: 2006-5-10 12:50
例如我想验证：
hello
world

验证的字符串是分2行显示的。。那么如何来实现呢？

作者: caesarqth 时间: 2006-5-10 14:06
1.不知道你把该字符串输出到哪里，如果在记事本或word里，可以用逐项查找的方法来验证，使用windowVP验证

2.如果能够抓取字符串的话，可以用clipboardVP抓取需要验证的进行验证

3.下面我是用Instr函数实现的
Sub main
Dim undertest as String
   Dim position1 as Integer
Dim position2 as Integer

'需要验证的两行字符
undertest = "hello" & chr(10) & "word"
msgbox undertest
position1=InStr(undertest,"hello")
position2=InStr(undertest,"wod")
If position1 AND position2 then
      SQALogMessage sqaPass, "找到字符串", ""
      msgbox "success"
Else
      SQALogMessage sqaFail, "未找到字符串", ""
      msgbox "fail"
End If
End Sub

如果以上都不行，那我就不知道了，不好意思

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)