扫描双面打印纸张文档所创建的PDF可能包含空白页面,有时候空白页也可能是有意插入的。 在本文中,您将学习如何使用Spire.PDF检测并删除PDF文件中的空白页面。
空白页面通常被定义为不包含任何内容的页面。 Spire.PDF提供了一个方法IsBank来检测PDF页面是否绝对空白。 但是,一些“空白页”实际上可以包含白色图像,使用IsBank方法不会将其视为空白。 要检测这些白色但不是空白页面,我们创建了自定义方法IsImageBlank。
注意:此解决方案必须应用许可证才能完成,如果你没有授权,请该Email地址已收到反垃圾邮件插件保护。要显示它您需要在浏览器中启用JavaScript。获取临时的许可证。
C#
static void Main(string[] args)
{
//应用许可证(license)
Spire.License.LicenseProvider.SetLicenseFileName("license.elic.xml");
//创建PdfDocument对象
PdfDocument document = new PdfDocument();
//加载PDF文档
document.LoadFromFile("sample.pdf");
//遍历每一页
for (int i = document.Pages.Count - 1; i >= 0; i--)
{
//判读是否为空白页
if (document.Pages[i].IsBlank())
{
//删除空白页
document.Pages.RemoveAt(i);
}
else
{
//若非空白页,将页面转换为图片
Image image = document.SaveAsImage(i, PdfImageType.Bitmap);
//判断图片是否为空白
if (IsImageBlank(image))
{
//若图片为空白,删除对应的PDF页
document.Pages.RemoveAt(i);
}
}
}
//保存文档
document.SaveToFile("output.pdf", FileFormat.PDF);
}
/// <summary>
///判断图片是否为空白
/// </summary>
/// <param name="image"></param>
/// <returns></returns>
public static bool IsImageBlank(Image image)
{
Bitmap bitmap = new Bitmap(image);
for (int i = 0; i < bitmap.Width; i++)
{
for (int j = 0; j < bitmap.Height; j++)
{
Color pixel = bitmap.GetPixel(i, j);
if (pixel.R < 240 || pixel.G < 240 || pixel.B < 240)
{
return false;
}
}
}
return true;
}
VB.NET
Private Shared Sub Main(args As String())
'应用许可证(license)
Spire.License.LicenseProvider.SetLicenseFileName("license.elic.xml")
'创建PdfDocument对象
Dim document As New PdfDocument()
'加载PDF文档
document.LoadFromFile("sample.pdf")
'遍历每一页
For i As Integer = document.Pages.Count - 1 To 0 Step -1
'判读是否为空白页
If document.Pages(i).IsBlank() Then
'删除空白页
document.Pages.RemoveAt(i)
Else
'若非空白页,将页面转换为图片
Dim image As Image = document.SaveAsImage(i, PdfImageType.Bitmap)
'判断图片是否为空白
If IsImageBlank(image) Then
'若图片为空白,删除对应的PDF页
document.Pages.RemoveAt(i)
End If
End If
Next
'保存文档
document.SaveToFile("output.pdf", FileFormat.PDF)
End Sub
''' <summary>
'''判断图片是否为空白
''' </summary>
''' <param name="image"></param>
''' <returns></returns>
Public Shared Function IsImageBlank(image As Image) As Boolean
Dim bitmap As New Bitmap(image)
For i As Integer = 0 To bitmap.Width - 1
For j As Integer = 0 To bitmap.Height - 1
Dim pixel As Color = bitmap.GetPixel(i, j)
If pixel.R < 240 OrElse pixel.G < 240 OrElse pixel.B < 240 Then
Return False
End If
Next
Next
Return True
End Function
效果图: