Πώς μετατρέπετε ένα αρχείο PDF σε έγγραφο χρησιμοποιώντας τον κωδικό VB;

Δεν μπορείτε να μετατρέψετε απευθείας ένα αρχείο PDF σε αρχείο DOC (Microsoft Word Document) χρησιμοποιώντας καθαρό κωδικό VB. Η ίδια η VB δεν διαθέτει τις απαραίτητες βιβλιοθήκες και λειτουργίες για να χειριστεί τη χειραγώγηση του PDF.

Ωστόσο, μπορείτε να επιτύχετε αυτήν τη μετατροπή χρησιμοποιώντας βιβλιοθήκες ή εργαλεία τρίτων:

1. Χρησιμοποιώντας μια βιβλιοθήκη PDF τρίτου μέρους:

* spire.pdf: Αυτή η δημοφιλής βιβλιοθήκη σάς επιτρέπει να χειριστείτε αρχεία PDF στο VB.NET. Έχει λειτουργίες για τη μετατροπή PDF σε DOC, DOCX και άλλες μορφές.

* aspose.pdf για .net: Μια άλλη ισχυρή βιβλιοθήκη με εκτεταμένα χαρακτηριστικά χειρισμού PDF, συμπεριλαμβανομένης της μετατροπής στο Doc.

* itextsharp: Μια δωρεάν και ανοιχτή βιβλιοθήκη, παρέχοντας ένα ευρύ φάσμα λειτουργιών PDF. Μπορείτε να χρησιμοποιήσετε τις τάξεις του `pdfreader` και` pdfwriter` για μετατροπή.

Παράδειγμα (χρησιμοποιώντας το spire.pdf):

`` vb.net

Εισαγωγές spire.pdf

Εισαγωγές spire.pdf.documents

Δημόσιο υποβρύχιο ConvertPdftodoc (pdffilepath ως συμβολοσειρά, docfilepath ως συμβολοσειρά)

'Φορτώστε το αρχείο PDF

Dim pdfdocument ως νέο pdfdocument (pdffilepath)

'Αποθήκευση ως αρχείο DOC

pdfdocument.savetofile (docfilepath, fileformat.doc)

Τερματισμός

`` `

2. Χρήση εργαλείου γραμμής εντολών:

* pdftoword: Αυτό το ελεύθερο εργαλείο γραμμής εντολών μετατρέπει αρχεία PDF στο DOC. Μπορείτε να καλέσετε αυτό το εργαλείο από τον κώδικα VB χρησιμοποιώντας την κλάση `system.diagnostics.process`.

* ΔΩΡΕΑΝ PDF σε μετατροπέα λέξεων: Πολλοί δωρεάν μετατροπείς σε απευθείας σύνδεση προσφέρουν PDF σε μετατροπή DOC. Μπορείτε να χρησιμοποιήσετε το `system.net.webrequest` για να αλληλεπιδράσετε με αυτές τις υπηρεσίες.

Παράδειγμα (χρησιμοποιώντας pdftoword):

`` vb.net

Εισαγωγές System.Diagnostics

Δημόσιο υποβρύχιο ConvertPdftodoc (pdffilepath ως συμβολοσειρά, docfilepath ως συμβολοσειρά)

«Δημιουργήστε μια διαδικασία για την εκτέλεση του pdftoword

Dim ProcessInfo ως νέο ProcessStartInfo ("Path/to/Pdftoword.exe")

processInfo.arguments =String.format ("" "&pdffilepath &" "" "&docfilepath &" "" ")

processInfo.useshellexecute =false

«Εκτελέστε τη διαδικασία

Dim Process ως νέα διαδικασία ()

process.startInfo =processInfo

process.start ()

process.WaitForexit ()

Τερματισμός

`` `

Θυμηθείτε:

* Η ποιότητα μετατροπής μπορεί να διαφέρει ανάλογα με τη δομή του αρχείου PDF και τη βιβλιοθήκη/εργαλείο που επιλέγετε.

* Ορισμένα εργαλεία ή βιβλιοθήκες ενδέχεται να απαιτούν άδεια ή πληρωμή.

Επιλέξτε τη μέθοδο που ταιριάζει καλύτερα στις απαιτήσεις σας και τους διαθέσιμους πόρους.