`

C# 查找PDF页面指定区域中的文本并替换和高亮

阅读更多

对PDF文档中的内容进行查找时,可针对文档全篇内容获取查找结果,也可在PDF指定页面中的特定范围内(矩形框区域)进行查找,对获取的查找结果可执行文本高亮或替换等操作,本文将对此作相关介绍(附VB.NET代码,有需要可参考)。

关于工具使用

工具:需下载Spire.PDF for .NET Pack hotfix 6.12.20版本(注:hotfixt版本无需安装,若下载的是Pack版本则需要安装至本地路径,可在安装后,查看演示程序及API)。

引用:下载并解压到本地路径,将Bin文件夹下的Spire.Pdf.dll文件添加引用至VS程序。

using Spire.Pdf;
using Spire.Pdf.General.Find;
using Spire.Pdf.Graphics;
using System.Drawing;

namespace FindAndHighlightText2
{
    class Program
    {
        static void Main(string[] args)
        {
            //加载PDF测试文档
            PdfDocument pdf = new PdfDocument();
            pdf.LoadFromFile("咖啡豆.pdf", FileFormat.PDF);

            //指定需要查找的页面区域范围
            RectangleF pagerec = new RectangleF(0, 0, 500, 700);

            //在第一页的指定区域查找指定文本
            PdfTextFindCollection findCollection1 = pdf.Pages[0].FindText(pagerec, "咖啡豆", TextFindParameter.WholeWord);
            PdfTextFindCollection findCollection2 = pdf.Pages[0].FindText(pagerec, "洪都拉斯", TextFindParameter.WholeWord);         

            //替换查找结果
            PdfBrush brush = new PdfSolidBrush(Color.Red);
            PdfTrueTypeFont font = new PdfTrueTypeFont(new Font("Arial", 12f, FontStyle.Regular));

            RectangleF textrec;
            foreach (PdfTextFind find1 in findCollection1.Finds)
            {
                textrec = find1.Bounds;
                pdf.Pages[0].Canvas.DrawRectangle(PdfBrushes.White, textrec);
                pdf.Pages[0].Canvas.DrawString("NewText", font, brush, textrec);

            }

            //高亮查找结果
            foreach (PdfTextFind find2 in findCollection2.Finds)
            {
                find2.ApplyHighLight(Color.Yellow);
            }

            //保存文档
            pdf.SaveToFile("result.pdf", FileFormat.PDF);
            System.Diagnostics.Process.Start("result.pdf");
        }
    }
}

 

 

Imports Spire.Pdf
Imports Spire.Pdf.General.Find
Imports Spire.Pdf.Graphics
Imports System.Drawing

Namespace FindAndHighlightText2
	Class Program
		Private Shared Sub Main(args As String())
			'加载PDF测试文档
			Dim pdf As New PdfDocument()
			pdf.LoadFromFile("咖啡豆.pdf", FileFormat.PDF)

			'指定需要查找的页面区域范围
			Dim pagerec As New RectangleF(0, 0, 500, 700)

			'在第一页的指定区域查找指定文本
			Dim findCollection1 As PdfTextFindCollection = pdf.Pages(0).FindText(pagerec, "咖啡豆", TextFindParameter.WholeWord)
			Dim findCollection2 As PdfTextFindCollection = pdf.Pages(0).FindText(pagerec, "洪都拉斯", TextFindParameter.WholeWord)

			'替换查找结果
			Dim brush As PdfBrush = New PdfSolidBrush(Color.Red)
			Dim font As New PdfTrueTypeFont(New Font("Arial", 12F, FontStyle.Regular))

			Dim textrec As RectangleF
			For Each find1 As PdfTextFind In findCollection1.Finds
				textrec = find1.Bounds
				pdf.Pages(0).Canvas.DrawRectangle(PdfBrushes.White, textrec)

				pdf.Pages(0).Canvas.DrawString("NewText", font, brush, textrec)
			Next

			'高亮查找结果
			For Each find2 As PdfTextFind In findCollection2.Finds
				find2.ApplyHighLight(Color.Yellow)
			Next

			'保存文档
			pdf.SaveToFile("result.pdf", FileFormat.PDF)
			System.Diagnostics.Process.Start("result.pdf")
		End Sub
	End Class
End Namespace

 

 

 

0
1
分享到:
评论

相关推荐

Global site tag (gtag.js) - Google Analytics