Wsrtjtyk

I have a PDF splitter using ByteScout.PDFExtractor. My code searches for a unique identifying header which is "TP###### SIGNED AFFIDAVIT"

the #'s could be any integer from 0-9. I'm using regular expressions to search for those headers like this:

Dim regexPattern = "*TP[0-9]{6}* *SIGNED AFFIDAVIT*"

This is working. The thing is that its splitting the document page by page so when it splits i get the following in my directory:

TP02433 SIGNED AFFIDAVIT 1

TP02433 SIGNED AFFIDAVIT 2

TP02433 SIGNED AFFIDAVIT 3

TP02354 SIGNED AFFIDAVIT 4

TP02354 SIGNED AFFIDAVIT 5

TP02354 SIGNED AFFIDAVIT 6 ...

My question is this, what could i do to my code so that when it finds lets say for example TP02433 it keeps those pages together till it finds the next TP#?

Is there a way that this could find "TP[0-9]{6} SIGNED AFFIDAVIT" then extract all those documents keeping them together till it finds the next unique "TP[0-9]{6} SIGNED AFFIDAVIT" ?

so that that the end looks like this:

TP02433 SIGNED AFFIDAVIT (1 - 3)

TP02354 SIGNED AFFIDAVIT (4 - 6) ?

Here's my so-far working code:

Imports System.IO

Imports Bytescout.PDFExtractor

Imports Microsoft.Office.Interop

Imports System.IO.Path

Imports System.Text

Imports System.Text.RegularExpressions



Module Module1



    Sub Main()

        Dim unmerged = Combine(Environment.GetFolderPath(Environment.SpecialFolder.Desktop), "Tesspdf")



        Dim pdfFile As String = "G:WordDepartment FoldersPre-SuitXavierMPOP.pdf"



        Dim extractor As New TextExtractor()



        extractor.WordMatchingMode = WordMatchingMode.ExactMatch



        extractor.LoadDocumentFromFile(pdfFile)



        Dim pageCount = extractor.GetPageCount()



        Dim currentPageTypeName = "UNKNOWN"

        Dim PageTypeName = "test"    

        extractor.RegexSearch = True

        Dim regexPattern = "*TP[0-9]{6}* *SIGNED AFFIDAVIT*"







        For i = 0 To pageCount - 1





            If extractor.Find(i, regexPattern, False) Then                



                            PageTypeName = Regex.Replace(extractor.TextFound.Text, "[^A-Za-z0-9-/#s]", "")



                    currentPageTypeName = PageTypeName



                End If





                Using splitter As New DocumentSplitter() With {.OptimizeSplittedDocuments = True}



                    Dim pageNumber = i + 1   ' (!) page number in ExtractPage() is 1-based





                If Not Directory.Exists(unmerged) Then

                        Directory.CreateDirectory(unmerged)

                    End If



                Dim outputfile = Combine(unmerged, currentPageTypeName & " " & pageNumber & ".pdf")





                splitter.ExtractPage(pdfFile, outputfile, pageNumber) 



            End Using

            Next

            extractor.Dispose()







    End Sub



End Module

I would use ExtractPageRange the pages vary. So i was wondering if this code could find the first "*TP[0-9]{6}* *SIGNED AFFIDAVIT*" extract ALL the pages after that header till it reaches the next "*TP[0-9]{6}* *SIGNED AFFIDAVIT*" and does the same till the pdf document is completely split?