VB.NET使用iTextsharp生成PDF损坏无法打开如何解决

生成的PDF损坏核心原因是iTextSharp操作顺序完全写反：

• iTextSharp的标准执行流程必须是：创建Document实例 -> 绑定PdfWriter和目标输出文件流 -> 打开Document -> 写入内容 -> 关闭Document完成PDF结构写入
• 现有代码在完成文档打开、内容写入、文档关闭全流程后，才创建PdfWriter绑定输出文件，所有内容操作都没有关联到实际的PDF输出通道，最终生成的文件不具备合法PDF结构，无法正常打开
• 代码还存在其他隐患：StreamReader、FileStream未做资源释放，存在文件占用泄漏；未指定TXT读取编码，读取中文等非ASCII内容容易乱码；未做路径、文件存在性校验，异常场景下会直接崩溃。

核心是调整iTextSharp的操作顺序，使用Using块实现资源自动释放，补全基础校验逻辑，修复后的可运行代码如下：

Dim targetDir As String = TextBox2.Text
Dim outputPdfPath As String = Path.Combine(targetDir, "Test.pdf")

' 校验输入路径合法性
If Not Directory.Exists(targetDir) Then
    MsgBox("指定目录不存在，请检查路径配置")
    Return
End If

' 获取目录下所有txt文件，按文件名排序
Dim txtFiles = Directory.GetFiles(targetDir, "*.txt").OrderBy(Function(f) f).ToList()
If txtFiles.Count = 0 Then
    MsgBox("目标目录下未找到TXT文件")
    Return
End If

' Using块会在执行结束后自动释放Document和文件流资源，无需手动调用Dispose
Using doc As New Document()
    Using fs As New FileStream(outputPdfPath, FileMode.Create, FileAccess.Write)
        ' 必须在Document.Open之前绑定PdfWriter和输出流
        PdfWriter.GetInstance(doc, fs)
        doc.Open()

        For Each txtFile In txtFiles
            ' 自动识别TXT文件编码，避免乱码
            Using sr As New StreamReader(txtFile, Encoding.Default, detectEncodingFromByteOrderMarks:=True)
                ' 可选：添加文件名作为内容分隔，方便区分不同文件的文本
                doc.Add(New Paragraph($"=== 来源文件：{Path.GetFileName(txtFile)} ===") With {
                    .SpacingAfter = 10
                })
                doc.Add(New Paragraph(sr.ReadToEnd()))
                ' 不同文件内容之间加空行分隔
                doc.Add(New Paragraph(Environment.NewLine))
            End Using
        Next

        doc.Close()
    End Using
End Using

' 确认文件生成成功后再打开
If File.Exists(outputPdfPath) Then
    Process.Start(outputPdfPath)
    MsgBox("Done")
Else
    MsgBox("PDF生成失败")
End If

如果觉得iTextSharp操作繁琐，也可以选择其他更易上手的方案实现TXT合并转PDF需求：

• 先将所有TXT内容按排版需求拼接为标准HTML，使用PuppeteerSharp调用浏览器内核将HTML渲染为PDF，排版灵活度更高，无需手动处理分页、字体兼容问题
• 使用FreeSpire.PDF免费版，直接调用库封装好的TXT转PDF接口，代码量更少，注意免费版有单文档10页的页数限制，普通小文件合并场景足够使用
• 注意iTextSharp 5.x版本为AGPL开源协议，商用场景需要遵守协议要求公开对应源代码，iTextSharp 7.x版本商用需要购买商业授权，使用前需要确认版权合规性

内容的提问来源于stack exchange，提问作者Wind