51Testing软件测试论坛

标题: 怎么会获取price 字符串中的数字呢？ [打印本页]
作者: 小丫头amy    时间: 2012-12-19 17:46
标题: 怎么会获取price 字符串中的数字呢？
怎么获取price 字符串中的数字呢？
作者: 黑羽祭    时间: 2012-12-20 09:17
本帖最后由 黑羽祭 于 2012-12-20 15:09 编辑

回复 1# 小丫头amy


   
  1. Dim Price
  2. '''获取控件中内容
  3. Price = Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
  4. '''去掉最前面符号
  5. Price = mid(Price,2)
  6. '''转换为double型
  7. PriceNum = cdbl(Price)
复制代码
作者: 小丫头amy    时间: 2012-12-20 13:37
回复 2# 黑羽祭
为什么我用tickets*price时 结果只保留一个小数点
Num=clng(Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text"))
total=num*price
作者: 黑羽祭    时间: 2012-12-20 14:34
回复 3# 小丫头amy


    我做了个去掉最左边的"$"符号的动作的。
你也照着我的脚本，再试一下看看呢。
作者: 小丫头amy    时间: 2012-12-20 14:59
回复 4# 黑羽祭


    我是按着这个 脚本做的，就是把取得的price去掉左边$,然后把这个price乘以tickets数，比如price是159.47，乘以tickets=1后，就变成了159.5
作者: 黑羽祭    时间: 2012-12-20 15:06
本帖最后由 黑羽祭 于 2012-12-20 15:08 编辑

回复 5# 小丫头amy


刚刚写的脚本有点问题，现在重写，这次是把你后面的那段也加上了：
  1. Dim Price
  2. Price = Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
  3. Price = mid(Price,2)
  4. Price = cdbl(Price)

  6. Dim Num
  7. Num = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")

  9. Dim Total
  10. Total = Price * Num

  12. msgbox Total
复制代码




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2