51Testing软件测试网 »
jhhaitun的个人空间
欢迎访问 jhhaitun 的个人空间
我的论坛主题
-
2010-06-07 10:11:02 / [QuickTest Professional]
又来提问了Dim String1arg1="07.doc"arg2="08.doc"String1=Comp(arg1,arg2)Msgbox String1Function Comp(arg1,arg2)ss="dsddsa;dsadsa;dsa;;dsa"Comp=ssEnd function结果是Msgbox中显示的是空字串,为什么呢?
查看(900)
评论(3)
-
2010-06-03 17:02:44 / [QuickTest Professional]
调用以下程序的时候,QTP报错““aRange11=aRange1.Range(0,2)”不是同一对象集”,请高手指点,怎么改正呢?急盼Function list2(arg4,arg5)Dim wApp,file1,file2Set WApp=CreateObject("Word.Application")wApp.visible = false'将程序隐藏Set file1=wApp.documents.open( arg4 )Set file2=wApp.documents.open( arg5 )n1=file1.Paragraphs.Countn2=file2.Paragraphs.CountIf n1n2 Thenmsgbox "两文档段落数不同,无需对比"elseFor n=1 to n1Dim aRange1,aRange2,ssss=";".
查看(892)
评论(3)
-
2010-05-31 15:42:15 / [QuickTest Professional]
写了段程序,目的是对比2篇word文档中,字串是否相符的问题,代码如下arg4="E:\4110language\Help doc\Fr_02.doc"arg5="E:\4110language\Help doc\Fr_02m.doc"wait 1String2=list(arg4,arg5)wait 1msgboxString2Function list(arg4,arg5)Dim fso,file1,file2Set fso=createobject("Scripting.FilesystemObject")Set file1=fso.opentextfile(arg4,1,false)Set file2=fso.opentextfile(arg5,1,false)ss=";"While( not file1.atendofline)and(notfile2.atendofline )tmp1=.
查看(954)
评论(3)