' This example demonstrates various PDF document splitting scenarios:
' - extract a single page;
' - split in two parts;
' - split by ranges specified in text form: "1-5,6,7-10,11-".

Imports System.IO
Imports Bytescout.PDFExtractor

Class Program
	Friend Shared Sub Main(args As String())
		Dim inputFile As String = ".\sample.pdf"

		Using splitter As New DocumentSplitter("demo", "demo")
			splitter.OptimizeSplittedDocuments = True

			' Extracting specific page:
			' =========================

			splitter.ExtractPage(inputFile, "page3.pdf", 3)
			' (!) Note: page number is 1-based.
			Console.WriteLine("Extracted page 3 to file ""page3.pdf""")
			Console.WriteLine()

			' Split in two parts:
			' ===================

			splitter.Split(inputFile, "part1.pdf", "part2.pdf", 3)
			' (!) Note: page number is 1-based.
			Console.WriteLine("Splitted at page 3 to files ""part1.pdf"" and ""part2.pdf""")
			Console.WriteLine()

			' Split by ranges:
			' ================

			Dim files As String() = splitter.Split(inputFile, "1-3,4-6,7,8-")
			' (!) Note: page numbers are 1-based; ending "-" means "to the end".
			Console.WriteLine("Splitted by ranges: ")
			For Each file As String In files
				Console.WriteLine("    " & Path.GetFileName(file))
			Next
		End Using

		Console.WriteLine()
		Console.WriteLine("Press any key...")
		Console.ReadKey()
	End Sub
End Class