ByteScout Premium Suite – VBScript – Find text in pdf using regex with pdf extractor sdk

Home
/
Articles
/
ByteScout Premium Suite – VBScript – Find text in pdf using regex with pdf extractor sdk

printable version:
ByteScout-Premium-Suite-VBScript-Find-text-in-pdf-using-regex-with-pdf-extractor-sdk.pdf

How to find text in pdf using regex with pdf extractor sdk in VBScript using ByteScout Premium Suite

Step-by-step tutorial on how to find text in pdf using regex with pdf extractor sdk in VBScript

These source code samples are assembled by their programming language and functions they apply. ByteScout Premium Suite is the set that includes 12 SDK products from ByteScout including tools and components for PDF, barcodes, spreadsheets, screen video recording and you can use it to find text in pdf using regex with pdf extractor sdk with VBScript.

This prolific sample source code in VBScript for ByteScout Premium Suite contains various functions and other necessary options you should do calling the API to find text in pdf using regex with pdf extractor sdk. Simply copy and paste in your VBScript project or application you and then run your app! Use of ByteScout Premium Suite in VBScript is also described in the documentation included along with the product.

You can download free trial version of ByteScout Premium Suite from our website to see and try many others source code samples for VBScript.

On-demand (REST Web API) version:
Web API (on-demand version)

On-premise offline SDK for Windows:
60 Day Free Trial (on-premise)

FindTextUsingRegex.vbs

      ' Create Bytescout.PDFExtractor.TextExtractor object
Set extractor = CreateObject("Bytescout.PDFExtractor.TextExtractor")
extractor.RegistrationName = "demo"
extractor.RegistrationKey = "demo"

' Load sample PDF document
extractor.LoadDocumentFromFile("..\..\Invoice.pdf")

extractor.RegexSearch = True ' Turn on the regex search
pattern = "[0-9]{2}/[0-9]{2}/[0-9]{4}" ' Search dates in format 'mm/dd/yyyy'

' Get page count
pageCount = extractor.GetPageCount()

For i = 0 to PageCount - 1 
    If extractor.Find(i, pattern, false) Then ' Parameters are: page index, string to find, case sensitivity
        Do
            extractedString = extractor.FoundText.Text
            MsgBox "Found match on page #" & CStr(i) & ": " & extractedString
            extractor.ResetExtractionArea()
        Loop While extractor.FindNext
    End If
Next

MsgBox "Done"

Set extractor = Nothing