如何使用QTP / VBScript将PDF中的内容转换为字符串?

时间:2012-02-17 05:39:43

标签: validation vbscript qtp

我需要使用 QTP 验证PDF中的特定内容。如何将PDF中的内容导入字符串使用 QTP / VBScript。这样,我就可以验证PDF中的内容。

1 个答案:

答案 0 :(得分:5)

访问Here。您将得到答案,这是在QTP中使用PDF的方法之一。您也可以通过按键i,e,Ctrl + a然后按Ctrl + c从PDF获取数据,然后将此数据复制到剪贴板&使用此数据与标准数据进行比较

示例函数用于从PDF获取数据,当在Broweser中打开PDF报表时,其创建时间在数据表中传递

Public function CopyPDFData(sDestinationFile)       
Dim clip, strText, nCT, fso

nCT = DataTable("bPDFCreationTime", dtLocalSheet)
If nCT =""  Then nCT=1
Browser("CreationTime:=" & nCT).Sync

Browser("CreationTime:=" & nCT).FullScreen            
wait(2)
Browser("CreationTime:=" & nCT).WinObject("object class:=AVL_AVView", "text:=AVPageView").Type micCtrlDwn + "a" + micCtrlUp
wait(4)
Browser("CreationTime:=" & nCT).WinObject("object class:=AVL_AVView", "text:=AVPageView").Type micCtrlDwn + "c" + micCtrlUp
wait(4)

Set clip = CreateObject("Mercury.Clipboard" )
strText = clip.GetText
clip.Clear

Set fso = CreateObject("Scripting.FileSystemObject")
Set strfile = fso.CreateTextFile(sDestinationFile, True) 
strfile .Write  strText
strfile .Close
Browser("CreationTime:=" & nCT).sync
Browser("CreationTime:=" & nCT).close
End Function

如果这可以解决您的问题,请告诉我,使用QTP进行PDF报告测试还有其他替代方法