使用QTP计算pdf文件中的字符串

Question

我正在尝试计算 pdf 文件中字符串存在的次数。我使用了下面的代码，但它陷入了无限循环。问题是在找到最后一页之后的字​​符串后，它返回到第一页并再次重复所有步骤。有没有人有解决这个问题的办法。任何帮助将不胜感激。

谢谢 湿婆

Dim AcroApp, AcroAVDoc  
Dim gPDFPath, bReset, nCount  
gPDFPath = "xyz.pdf"  

Set AcroApp = CreateObject( "AcroExch.App" )  
AcroApp.Show()  
Set AcroAVDoc = CreateObject( "AcroExch.AVDoc" )   
If AcroAVDoc.Open( gPDFPath, "" ) Then  
    AcroAVDoc.BringToFront()  
    bReset = True : nCount = 0  
    Do While AcroAVDoc.FindText( "let", True, True, bReset )   
        bReset = False : nCount = nCount + 1   
        Wait 0, 200  
    Loop   
End If  
AcroApp.CloseAllDocs()  
AcroApp.Exit()  

Answer 1

我不认为这与 QTP 有关，它与 Acrobat 的 API 有关，快速搜索返回 此 API 链接。

看起来问题在于您正在为 bReset 使用布尔值，文档说：

VARIANT_BOOL FindText(BSTR szText, 
                      long bCaseSensitive, 
                      long bWholeWordsOnly, 
                      long bReset);

所以 bReset 应该是一个 long 而不是布尔值。

bReset：如果为正数，则从文档的第一页开始搜索。如果为 0，则从当前页面开始。

在 VBScript 中，False 为 0，True 为 -1，因此当您发送 True 时，它可能不被视为正数，尝试使用 1 代替。