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

Question

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

Answer 1

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

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

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