使用QTP對報表中的webtable內容進行正確性驗證 軟件測試
使用QTP對報表中的webtable內容進行正確性驗證。
基本思路是：
一：使用getcelldata（i，j）的方法遍歷webtable把表格內容存入一個數組中，一般為二維數組
二：使用數據庫連接組件ADODB連接后臺數據庫，使用數據結果集對象保存select查詢結果，也是一個二維數組
三：此時區分是否需要驗證排列順序，如果需要，直接對兩個二維數組進行一對一遍歷比較
四：不需要驗證排列順序，或者順序無法控制的情況下，我們需要對顯示內容和查詢預期內容進行比較，這時候牽涉到兩個結果集的數據順序問題，如果采用單對多遍歷的情況，效率會十分低。
這時候我們換一種思路考慮，既然是驗證內容，那我們就可以把二維數組的驗證轉換成排序一維數組比較，實現方式是，采用join方法將二維數組的每一行轉換成一個字符串（內容沒有變化，只加入拼接符），兩個二維數組進行相同轉換，成為兩個一維的字符串數組。
然后使用快速排序法對兩個一維數組進行一次排序，同樣的機制下，如果原本內容相同，那么排序出的內容也應該相同。然后直接進行一維數組一對一比較。
下面是vbs的快速排序代碼，合適數字和字符串數組：
Public Function QSort(ByRef ReArr, ByVal head, ByVal tail)
'ReArr 是待排序數組， head和tail是該數組的最小下標和最大下標
Dim lef, rig
Dim pivot
If head < tail Then
lef=head
rig=tail
pivot=ReArr(lef)
While (lef <> rig)
While (lef < rig and ReArr(rig) >= pivot)
rig = rig-1
Wend
If lef <rig Then
ReArr(lef) = ReArr(rig)
lef = lef+1
End If
While (lef < rig and ReArr(lef) <= pivot)
lef = lef+1
Wend
If lef <rig Then
ReArr(rig) = ReArr(lef)
rig = rig-1
End If
Wend
ReArr(lef) = pivot
call QSort(ReArr, head, lef-1)
call QSort(ReArr, lef+1, tail)
End If
End Function
文章來源于領測軟件測試網 http://www.kjueaiud.com/
