Как извлечь содержимое из PDF в строку, используя QTP / VBScript? - PullRequest
Новая
       15

Как извлечь содержимое из PDF в строку, используя QTP / VBScript?

2 голосов
/ 17 февраля 2012

Мне нужно проверить определенный контент из PDF, используя QTP .Как я могу получить содержимое из PDF в строку, используя QTP / VBScript. Чтобы я мог проверить содержимое в PDF.

1 Ответ

5 голосов
/ 17 февраля 2012

Посетите Здесь .Вы получите ответ, это один из методов работы с PDF в QTP.Вы также можете извлечь данные из PDF, передав ключи i, e, Ctrl + a, затем Ctrl + c, затем скопируйте эти данные в буфер обмена и используйте эти данные для сравнения со стандартными данными

Пример функции для получения данных из PDF, Когда отчет PDF открыт в Broweser, время создания которого передается в виде данных 

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

Дайте мне знать, если это решит вашу проблему, есть и другие альтернативы для тестирования отчета PDF с использованием QTP

...