QTP操作QC组件常用函数

5na0CX*[h|2v/p)G]0这一篇文章用来描述QTP操作QC组件的常用函数，平时对QC的操作中可能会用到这些常用功能（比较长，慢慢看，要达到理解的目的）：51Testing软件测试网:K%DG'iWl8BRbc

*d)Rp*x(F4J:`.E0'*****************************************************************************************　　

4s!q)^ q0I#d;~I.g0'名称：GetAttachmentFromQC51Testing软件测试网"Ps;y.u\Z

(~8?dG$p+R.NT0　　'说明：从QC服务器上的指定对象(Test、TestSet或者Defect)中找到指定名称的附件，下载到指定目录

51Testing软件测试网9v)x1I7FcW_,~
　　'输入：

 51Testing软件测试网'J6ffN'U,Z

　　' TestObject - QC上的对象：Test、TestSet或Defect

^ T,e#AvS3@0Ch3z051Testing软件测试网9pt0T G@9Z.g
　　' FileName - 下载目标文件名(附件)51Testing软件测试网i6G%N
Ye C
v)T~Z%n

 51Testing软件测试网s})P? yew

.N]7y'q%Q
H'd m"H6Ic0　　' DstFolder - 下载目标文件夹

　　'返回：

W1d/P?V4s&|0　　' Bool类型，True代表取附件成功，False代表取附件失败51Testing软件测试网n,ef4C/Se/Ib

　　'示例：GetAttachmentOnQC QCUtil.CurrentTest, "data_file_attached.xls", "d:/temp"51Testing软件测试网6S*ZV4^P

$dU u*A%|+_/\E-l;S#j!_r051Testing软件测试网 ^zW3{"i;G!H&zmA:ou
　　'***************************************************************************************　　Public Function GetAttachmentOnQC(TestObject, FileName, DstFolder)51Testing软件测试网`s+rQ*xj'r

Bu Rp~.`t0
%zT2Aj!D0　　On Error Resume Next

 51Testing软件测试网l:m%LceV

　　'初始化函数返回值51Testing软件测试网tEa ^z5w'V

z4N-l m6EM0 51Testing软件测试网3f$^r2tEN0s

? wD@&POM0　　GetAttachmentOnQC = False

4f+}i8k5n
S0 51Testing软件测试网qH8md Cl-X

　　'为DstFolder变量添加路径斜杠"/"51Testing软件测试网ee)M6O6H8o

B/^Gis!@,f0　　If Right(DstFolder, 1) <> "/" Then51Testing软件测试网"u"ma%K#u(F)g _ |w

&^&l_5oCl)A0 

　　DstFolder = DstFolder & "/"51Testing软件测试网xz qEH;{8?C*t

`)k,[B Z E n#x5D051Testing软件测试网W)Y
F&g_v(]G0`,C
　　End If51Testing软件测试网 [4kB e~l|G~w

t| n3[`W4dUt]0 51Testing软件测试网bB1a(kM }^

uW-f^3P(X
T+i"ol0　　'取得AttachmentList对象，即TestObject的所有附件51Testing软件测试网Tt4zwm$h&a3?\a

　　Set AttachmentFactory = TestObject.Attachments51Testing软件测试网N6K4o_p|

%fK;G#Ca zd}m051Testing软件测试网(jSi%Iq;Wq-T
　　Set AttachmentList = AttachmentFactory.NewList("SELECT * FROM CROS_REF")51Testing软件测试网 | n+zHKqjBi

　　'先删除本地的文件.

F gorgii6n0　　Set fso = CreateObject("Scripting.FileSystemObject")

!P4Id.qd1q?Q0 

　　If fso.FileExists(DstFolder & Filename) then

　　fso.DeleteFile DstFolder & Filename '删除文件

O
Lz7g,EK4d0　　End if

8u G]
KZ'TOb0 51Testing软件测试网#m F([DRuU

　　Set fso = Nothing

51Testing软件测试网QRX%f*YR%gD4h"^
　　'遍历TestObject对象的所有附件，找到名称为FileName的附件。附件51Testing软件测试网x~\n&~R6x

　　For Each Attachment in AttachmentList

_9Y.i"H"tW0Ft9D3{0　　If InStr(1,Attachment.Name, FileName, 1) >= 1 Then51Testing软件测试网
B1R3\&G,vl4H

A_:R NF$U?0a+T8B0XrX0　　Set AttachmentStorage = Attachment.AttachmentStorage51Testing软件测试网?Gyv\.F*mg&I,W

　　AttachmentStorage.ClientPath=DstFolder

　　AttachmentStorage.Load Attachment.Name,True

　　'下载后重命名，去掉QC附件前缀。类似Test_#_Filename51Testing软件测试网dP^J#\'N?+Z fA,d3P

k7jGXnc.g6F%f p0 51Testing软件测试网6OO0Ur_^#@%T8OrK

RA:Rzu/i#yTMx0　　RenameFile DstFolder & Attachment.Name, DstFolder & Filename51Testing软件测试网Q K6K#d[ G"\k z

Q5m3~U}zfg0　　GetAttachmentOnQC = True51Testing软件测试网.z$H3c(ttF@Hti8H

+A&h,B$Y#l;Aj0　　Exit Function51Testing软件测试网%j:[GV/rWL

R|;t`F0　　End If51Testing软件测试网 M;E*DMF&VVXu

YA'ci(p/YCNy0　　Next51Testing软件测试网*\I)~6A? i3ah!vx

3o!M"P{6hM0H{0　　'错误情况处理51Testing软件测试网)Fm6S2S,b'{X

　　If Err.Number <> 0 Then

J*Z2en+H%fp*U0
ZuKry2]0　　Err.Clear

%`!p9Me\q*H%b a0　　GetAttachmentOnQC = False51Testing软件测试网v:l/Y B-d }$b&H+v(N

"F_5g3y NlU I0　　On Error GoTo 0

z(cr#G,]3V0 

　　End If51Testing软件测试网yWB(U,i)\W!x/Q!J

　　End Function51Testing软件测试网"]!f"x&C AUo&S

(NmMA2[g.|2B0　　'***************************************************************************************　　

#FW+gy0o2CLo0'名称：AddAttachmentOnQC

　　'说明：向QC服务器上的指定对象(Test、TestSet或者Defect)中添加附件

　　'输入：51Testing软件测试网J
e8N#C0Md:S/r

p%C+Z-eDrN?0　　' TestObject - QC上的对象：Test、TestSet或Defect51Testing软件测试网&g |&Bg#m'NL[:L7cv

　　' FileName - 上传目标文件名(完全路径文件名，Full Path Name)51Testing软件测试网"H"_.c$?&N
n

1Y-t.`e a-| X0M0 51Testing软件测试网k mES7O8[)A*O

　　'返回：

Oo9\L;pI%e TT|0 51Testing软件测试网8H V!Ur8{-\%w7z

　　' Bool类型，True代表上传附件成功，False代表上传附件失败

　　'示例：AddAttachmentOnQC QCUtil.CurrentTest, "d:/temp/data_file_attached.xls"

3]klpT[8o%Z#@051Testing软件测试网 o{B(r~k,m"M
　　'***************************************************************************************

　　Public Function AddAttachmentOnQC(TestObject, FileName)

　　On Error Resume Next

　　'初始化函数返回值51Testing软件测试网e,OT2ue2E6P)U$D Z

CS+oZ-~5Y3O0
|:C&AU$i3Jx0　　AddAttachmentOnQC = False

5K*n.vC-@.mu(b0　　'通过AddItem(Null)方法取得Attachment对象

 51Testing软件测试网.i!dO XN+w

　　Set AttachmentFactory = TestObject.Attachments51Testing软件测试网F2u9S,j6D2t
_ P \6m

l&u)uB
_B*?,^;a,w0　　Set Attachment = AttachmentFactory.AddItem(Null)

M4U6\ENS0　　'上传文件并更新51Testing软件测试网DK+hc'djE$g

C8q@2NIT{/N4R0　　Attachment.FileName = FileName51Testing软件测试网!p#mb|0I {9]1Z)m

V$QGy!B:Ts0 

M8s.G}"r9R n0　　Attachment.Type = 151Testing软件测试网)bx
`i+O9dv

!U9A;q&m.t0^Nb#a7J:p"|0　　Attachment.Post

6LpG@ p:WO0　　Attachment.Refresh

　　AddAttachmentOnQC = True51Testing软件测试网,dZ}6DO!PW\

　　'错误情况处理

7X:s*w5^5b.`%s$hTx0
ko v?DBg0　　If Err.Number <> 0 Then

&U4zX5T0Y051Testing软件测试网;t(gqOk{3YI
　　Err.Clear51Testing软件测试网x~?*|4U(B2Y

?&\z:dM$N0　　GetAttachmentOnQC = False

　　On Error GoTo 051Testing软件测试网.D_?\ywBJ

X1c/^8p [#Q9d8f0　　End If

0i P!PGC b5Z9V0　　End Function

7l N*r/k,A:a#tF0　　'***************************************************************************************
2a9I#f{%?0　　'名称：ReplaceAttachmentOnQC51Testing软件测试网l#|9x2qm0d"t

v$R dC n0\0　　'说明：替换QC服务器上指定对象(Test、TestSet或者Defect)的附件

　　'输入：51Testing软件测试网 Z_cn-jq2T|~2i

51Testing软件测试网-FgF3v+M7~
　　' TestObject - QC上的对象：Test、TestSet或Defect51Testing软件测试网?D5A%qy:l

.Vpaa],aSS0　　' OldFileName - 待删除文件名51Testing软件测试网NU(J0AB4Vt.Q

qmn+k a"I-G0　　' NewFileName - 待上传文件名(完全路径文件名，Full Path Name)
_
`p/ff*Kd0　'返回：51Testing软件测试网$z-{+Wn@T

P7mjYs&}+yb0　　' Bool类型，True代表替换附件成功，False代表替换附件失败51Testing软件测试网^4b GY%Q!c/b

'E,S
zM?U0　　'示例：ReplaceAttachmentOnQC QCUtil.CurrentTest, "data_file_attached.xls", "d:/temp/data_file_attached.xls"51Testing软件测试网Hs4A yT c

;R/c2Xd3w2b0 

6C p5_%F(iq0　　'***************************************************************************************51Testing软件测试网%aMwQ*Ve

t:|B"w*z.b0 51Testing软件测试网M#s`5|7g-Z%{,V

9^{,Y{*@{0　　Public Function ReplaceAttachmentOnQC(TestObject, OldFileName, NewFileName)

\O2~3?bplwJ.\0　　On Error Resume Next

51Testing软件测试网T7V? RD7D']
　　'初始化函数返回值51Testing软件测试网au$GZx6`&{

3t
{.Fwc5gj:h0 51Testing软件测试网$d7^]-|]/~#}s

z;N/t;|2E8z%r,k8~"U}8h0　　ReplaceAttachmentOnQC = False

 51Testing软件测试网7PGU`'[q:N&E

6eT4@T"a~N"`DG0　　'用Filter取得TestObject中符合FileName条件的附件

as'eZb3N(r/\0 

6m"d#f V&M`0　　Set AttachmentFactory = TestObject.Attachments

C4g| u8Bp0 51Testing软件测试网-y&M.w+Yn$U%?H

K|v:g@a:a0　　Set AttachmentFilter = AttachmentFactory.Filter

W)|2[5vUI{*T/O0　　'由于QC中保存的附件名称前都添加了如Test_#_的前缀51Testing软件测试网P,l
d^J

"@/[i]%m$W0　　'需要对OldFileName进行处理，使Filter中使用的条件包含*51Testing软件测试网h \Pe tl$N

9f5ob1K2TxF:^*`0　　OldFileName = Trim(OldFileName)

+Z.N:I6eCY0　　If InStr(1, OldFileName, "*") = 1 Then51Testing软件测试网zKN+tOB

#PN"U]}n.\f0　　AttachmentFilter.Filter("CR_REFERENCE") = OldFileName

　　Else

m[Z9D,O0
f(jr!iad1@0　　AttachmentFilter.Filter("CR_REFERENCE") = "*" & OldFileName51Testing软件测试网-QB3Ko H%r$m+kg

i(b%n.MS.d g,R0 

　　End If

R*]/U\?9v }0　　'从经过搜索的附件List中删除附件

%oXl,[Pb0　　Set AttachmentList = AttachmentFactory.NewList(AttachmentFilter.Text)

 51Testing软件测试网3C3KP(vyG

)_"~q$Rqf0　　'如果找到一个或一个以上附件，取第一个附件删除并继续上传新文件51Testing软件测试网/[#cdWZZ

-_ib*y7O2p8aM0　　If AttachmentList.Count > 0 Then51Testing软件测试网-['l9OyV R{?3T1bp

　　Set Attachment = AttachmentList.Item(1)51Testing软件测试网{,R`-A;x*C)F

　　AttachmentFactory.RemoveItem(Attachment.ID)

　　'上传更新的附件

%ytzI&|9^.U @0　　ReplaceAttachmentOnQC = AddAttachmentOnQC(TestObject, NewFileName)

(S+Qm(\{1mI#f)e7q0　　Else

m0I[a!n5R*a8hY7X0　　'如果没有找到附件，返回False。不继续上传新文件

l0Z`5W!D["Z[1lU0 

　　ReplaceAttachmentOnQC = False51Testing软件测试网+w$l$Lr$z0J

 51Testing软件测试网w"k+@5Df7oA

　　End If

　　'错误情况处理51Testing软件测试网8~j%k
L
R:m.\

wx#_~m0{051Testing软件测试网^"s,e'\0i O
　　If Err.Number <> 0 Then51Testing软件测试网&K nTX$@]r~

0Kme I2sh(L$k0 

Y*\;~R(t0|B g ~0　　Err.Clear

　　ReplaceAttachmentOnQC = False

　　On Error GoTo 0

N&SBmj&aVv/B#wS0　　End If51Testing软件测试网2U R$OwZ%MC

　　End Function
KkOE"c5ie0　　'***************************************************************************************

@!sL6jQ(E)q
[0
D%G-Z Z8@0U0 51Testing软件测试网'D!D.C/z4gC