51Testing软件测试论坛

标题: 使用QTP读取的Excel中的数值的格式与windows计算器计算出来的数值的格式是不是不同 [打印本页]

---

作者: 玩命格式化    时间: 2015-6-18 16:21
标题: 使用QTP读取的Excel中的数值的格式与windows计算器计算出来的数值的格式是不是不同


刚开始接触QTP，使用QTP调试读取、写入Excel函数时，发现将读取的Excel中的数值与windows计算器计算出来的数值进行比较时，结果显示两者是不同的，部分代码如下。请指教该如何设置，是不是该设置EXCEL中单元格的格式。

1. SystemUtil.Run "calc.exe"
   
2. Dim firstnum,secondnum,op,eque,path,sheet,row,col,text
   
3. path="c:\test.xls"
   
4. sheet="sheet1"
   
5. 
   
6. For row=2  to GetRow (path,sheet)
   
7. ''读取firstnumber并操作
   
8. firstnum=ReadFromExcel (path,sheet,row,1)
   
9. Set obutton=Description.Create
   
10. For i=1 to len(firstnum)
    
11.           temp=mid(firstnum,i,1)
    
12.           If temp="." Then
    
13.                   temp="\" &temp
    
14.           End If
    
15.       obutton("text").value=temp
    
16.        Window("计算器").WinButton(obutton).Click
    
17. Next
    
18. 
    
19. ''执行操作符op
    
20. op=ReadFromExcel (path,sheet,row,2)
    
21. Set obutton=Description.Create
    
22. obutton("text").value="\"&op
    
23. Window("计算器").WinButton(obutton).Click
    
24. 
    
25. ''读取secondnum并操作
    
26. secondnum=ReadFromExcel (path,sheet,row,3)
    
27. Set obutton=Description.Create
    
28. For i=1 to len(secondnum)
    
29.           temp=mid(secondnum,i,1)
    
30.           If temp="." Then
    
31.                   temp="\" &temp
    
32.           End If
    
33.       obutton("text").value=temp
    
34.        Window("计算器").WinButton(obutton).Click
    
35. Next
    
36. 
    
37. ''进行计算
    
38. Window("计算器").WinButton("=").Click
    
39. 
    
40. '' 将计算结果写入actual
    
41. Set actual=Window("计算器").WinEdit("Edit")
    
42. x=actual.GetROProperty ("text")
    
43. x=Rtrim (x)
    
44. icount=len (x)-1
    
45. If right (x ,1)="."  Then
    
46.         x=left (x ,icount)
    
47. End If
    
48. 
    
49. WriteToExcel  path,sheet,row,4,x
    
50. print x
    
51. 
    
52. 
    
53. ''向result写入测试结果p或f
    
54. expected=ReadFromExcel (path,sheet,row,5)
    
55. print expected
    
56. If expected=x Then
    
57.             WriteToExcel  path,sheet,row,6,"p"
    
58. else
    
59.             WriteToExcel  path,sheet,row,6,"f"
    
60. End If
    
61. 
    
62. Next
    
63. 
    
64. 
    
65. Window("计算器").Close
    

复制代码

执行结果，在Excel中写入的计算结果是正确的，判断则表明两者不一致，写入了f。
[attach]95837[/attach]

---

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

Powered by Discuz! X3.2