怎么会获取price 字符串中的数字呢？

小丫头amy

怎么获取price 字符串中的数字呢？

黑羽祭

回复 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

回复 2# 黑羽祭
为什么我用tickets*price时 结果只保留一个小数点
Num=clng(Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text"))
total=num*price

黑羽祭

回复 3# 小丫头amy


    我做了个去掉最左边的"$"符号的动作的。
你也照着我的脚本，再试一下看看呢。

小丫头amy

回复 4# 黑羽祭


    我是按着这个 脚本做的，就是把取得的price去掉左边$,然后把这个price乘以tickets数，比如price是159.47，乘以tickets=1后，就变成了159.5

黑羽祭

回复 5# 小丫头amy


刚刚写的脚本有点问题，现在重写，这次是把你后面的那段也加上了：

1. Dim Price
   
2. Price = Window("Flight Reservation").WinEdit("Price:").GetROProperty("text")
   
3. Price = mid(Price,2)
   
4. Price = cdbl(Price)
   
5. 
   
6. Dim Num
   
7. Num = Window("Flight Reservation").WinEdit("Tickets:").GetROProperty("text")
   
8. 
   
9. Dim Total
   
10. Total = Price * Num
    
11. 
    
12. msgbox Total

复制代码