vb.net使用Bytescout pdf提取器将多个pdf文件转换为excel

Question

我想使用bytescout将多个pdf文件转换为excel pdf提取器任何人都可以帮助我。我能够提取单个pdf文件。 但是我在为多个文件做错时会收到错误。

这是我得到的错误。

这是我的代码。

    Imports System.Threading
    Imports Bytescout.PDFExtractor
    Imports System.IO

    Module Module1

    Sub Main()


        Try

            Dim extractor As New CSVExtractor()
            extractor.RegistrationName = "demo"
            extractor.RegistrationKey = "demo"

            'Dim filenames1 As String() = Directory.GetFiles(Path, "*.TXT")
            For Each f In Directory.GetFiles(My.Computer.FileSystem.CurrentDirectory & "\PDF Files\", "*.PDF", SearchOption.TopDirectoryOnly)

                extractor.LoadDocumentFromFile(f)


                extractor.SaveCSVToFile(My.Computer.FileSystem.CurrentDirectory & "\CSV Files\"(f))

                Console.WriteLine("Data has been extracted to CSV file....!" & Environment.NewLine)

            Next

            Thread.Sleep(3000)

        Catch error_t As Exception
            Console.WriteLine(error_t.ToString)
            Console.ReadKey(True)
        End Try


    End Sub

End Module

Answer 1

根据错误消息the given path's format is not supported，您可以验证输出路径是否正确？如果路径文件夹或子文件夹不存在，则应首先使用System.IO.Directory.CreateDirectory

创建它们

Answer 2

您可以通过以下代码避免错误：

path = My.Computer.FileSystem.CurrentDirectory & "\PDF Files\"
For Each f As String In Directory.GetFiles(path, "*.PDF", SearchOption.TopDirectoryOnly)

    csvFileName = Replace(IO.Path.GetFileName(f), ".pdf", ".csv")
    extractor.LoadDocumentFromFile(f)
    extractor.SaveCSVToFile(My.Computer.FileSystem.CurrentDirectory & "\CSV Files\" & csvFileName)

    Console.WriteLine("Data has been extracted to CSV file....!" & Environment.NewLine)

Next

您需要一个要写入的文件名，行下面的行就是这样。

csvFileName = Replace(IO.Path.GetFileName(f), ".pdf", ".csv")

如果您需要进一步的帮助，请告诉我们。

谢谢， 普拉卡什