Search text in PDF

// open PackingLightBrochure.
using ( FileStream fileIn = new FileStream( @"..\..\..\inputDocuments\PackingLightBrochure.pdf", FileMode.Open, FileAccess.Read ) )
{
    //create document
    Document document = new Document( fileIn );

    //criteria for searching "PDF", it does not have to match a whole word and the case also does not have to match
    TextFindCriteria criteria = new TextFindCriteria( "PDF", false, false );

    //get a list of search results
    TextMatchEnumerator enumerator = document.Find( criteria );

    int resultIndex = 0;

    foreach( TextMatch match in enumerator )
    {             
    GlyphCollection glyphs = match.Glyphs;

    Glyph firstGlyph = glyphs[0];
    Glyph lastGlyph = glyphs[glyphs.Count - 1];

    //create a rectangle over the found text.
    RectangleShape rect = new RectangleShape( 
        firstGlyph.BottomLeft.X, 
        firstGlyph.BottomLeft.Y, 
        lastGlyph.TopRight.X - firstGlyph.BottomLeft.X,
        lastGlyph.TopRight.Y - firstGlyph.BottomLeft.Y );

    rect.Brush = new SolidBrush( System.Drawing.Color.Yellow );
    rect.Pen = null; //the rectangle has no outline
    rect.Opacity = 128;

    //coordinates are in Overlay space, not VisualOverlay space.
    match.Page.Overlay.Add(rect);

    //now we create a textshape to print the result index onto.
    MultilineTextShape textShape = new MultilineTextShape();
    TranslateTransform translate = new TranslateTransform( firstGlyph.BottomLeft.X, firstGlyph.BottomLeft.Y );
    textShape.Transform = translate;

    textShape.Width = lastGlyph.TopRight.X - firstGlyph.BottomLeft.X;
    textShape.Height = lastGlyph.TopRight.Y - firstGlyph.BottomLeft.Y;
    translate.Y += textShape.Height; //correct different origin.
    textShape.HorizontalAlignment = HorizontalAlignment.Center;
    textShape.Opacity = 200;
    Fragment fragment = new Fragment((++resultIndex).ToString(), 0);  //0 means autosized.
    fragment.TextColor = RgbColor.Red;
    textShape.Fragments.Add( fragment );  

    //add the text to the page and print it over the yellow rectangle
    match.Page.Overlay.Add( textShape );
     
    }

    //write the new PDF document
    using ( FileStream fileOut = new FileStream( @"..\..\searchtext.pdf", FileMode.Create, FileAccess.Write ) )
    {
    document.Write( fileOut );
    }

}

' open PackingLightBrochure.
		Using fileIn As New FileStream("..\..\..\inputDocuments\PackingLightBrochure.pdf", FileMode.Open, FileAccess.Read)
			'create document
			Dim document As New Document(fileIn)

			Dim criteria As New TextFindCriteria("PDF", False, False)
			'criteria.Backwards = true;

			Dim enumerator As TextMatchEnumerator = document.Find(criteria)

			Dim order As Integer = 0

			For Each match As TextMatch In enumerator
				Console.WriteLine("Match found at page: " & match.Page.Index)

				Dim glyphs As GlyphCollection = match.Glyphs

				Dim firstGlyph As Glyph = glyphs(0)
				Dim lastGlyph As Glyph = glyphs(glyphs.Count - 1)

				'create a rectangle over the found text.
				Dim rect As New RectangleShape(firstGlyph.BottomLeft.X, firstGlyph.BottomLeft.Y, lastGlyph.TopRight.X - firstGlyph.BottomLeft.X, lastGlyph.TopRight.Y - firstGlyph.BottomLeft.Y)

				rect.Brush = New SolidBrush(System.Drawing.Color.Yellow)
				rect.Pen = Nothing
				rect.Opacity = 128

				'coordinated are in Overlay space, not VisualOverlay space.
				match.Page.Overlay.Add(rect)

				'print the order.
				Dim textShape As New MultilineTextShape()

				Dim translate As New TranslateTransform(firstGlyph.BottomLeft.X, firstGlyph.BottomLeft.Y)
				textShape.Transform = translate

				textShape.Width = lastGlyph.TopRight.X - firstGlyph.BottomLeft.X
				textShape.Height = lastGlyph.TopRight.Y - firstGlyph.BottomLeft.Y
				translate.Y += textShape.Height
				'correct different origin.
				textShape.HorizontalAlignment = HorizontalAlignment.Center
				textShape.Opacity = 200
				Dim fragment As New Fragment((System.Threading.Interlocked.Increment(order)).ToString(), 0)
				'autosized.
				fragment.TextColor = TallComponents.PDF.Colors.RgbColor.Red
				textShape.Fragments.Add(fragment)


				match.Page.Overlay.Add(textShape)
			Next

			Using fileOut As New FileStream("..\..\searchtext.pdf", FileMode.Create, FileAccess.Write)
				document.Write(fileOut)

			End Using
		End Using