pdf (Inhalt nur Text) als txt in das Memo einlesen

22/05/2009 - 14:26 von Steffen Brose | Report spam
pdf (Inhalt nur Text) als txt in das Memo einlesen


Hallo Allseits,

ich habe von Euch damals hier 1A-Hilfe
zum Thema 'txt-Dateien einzeln aus einem Verzeichnis einlesen (in eine Memo)'
bekommen.

Diese txt'en waren das Ergebnsis von Downloads.
Jetzt wurde an der Quelle umgestellt auf pdf. (Ihr ahnt es richtig...)

Kann man aus den pdf's, welche dann in dem Verzeichnis liegen
- vor dem dem 'txt-to-memo-Code' txt's machen ? Geht dies ?

Die pdf's haben allesamt nur Text.
(Ein FollowHyperlink würde natürlich auch funken, aber ich
arbeite (bearbeite) in der mdb mit dem Memoinhalten dann noch weiter ...

-
Der Code von damals (der auch prima funktioniert):


Sub ImportTxtNEU()
Dim strFileName As String
Dim strFileContents As String
Dim db As DAO.Database
Const Q As String * 1 = """"
Set db = CurrentDb

Dim PfadQuelle As String
Dim PfadQuelle1 As String

PfadQuelle = "C:\Daten\01_Quelle\"
PfadQuelle1 = "C:\Daten\01_Quelle\"

PfadQuelle = PfadQuelle & "*.txt"

strFileName = Dir(PfadQuelle)


While strFileName <> ""

strFileContents = readFileIntoString(PfadQuelle1 & strFileName)


If strFileContents <> "" Then
strFileContents = Replace(strFileContents, """", Q & Q)

db.Execute "INSERT INTO tblTxt (Dateiname, DateiInhalt) " & _
" VALUES ( " & _
Q & strFileName & Q & ", " & _
Q & strFileContents & Q & ")"
End If
strFileName = Dir()
Wend
End Sub

'
'returns a textfile (specified by strTextFile) as string
Public Function readFileIntoString(strTextFile As String, Optional
fShowErrorMessage As Boolean = True) As Variant
On Error GoTo HandleErrors
Dim intFileNo As Integer, strTxtStream As String
intFileNo = FreeFile
Open strTextFile For Binary As #intFileNo
strTxtStream = Space(LOF(intFileNo))
Get #intFileNo, , strTxtStream
strTxtStream = LTrim(strTxtStream)
readFileIntoString = RTrim(strTxtStream)
ExitHere:
On Error Resume Next
Close intFileNo
Exit Function
HandleErrors:
If fShowErrorMessage Then
MsgBox "Error " & Err & vbCrLf & _
"Description:" & vbCrLf & Err.Description, vbCritical, _
"Error while reading file " & strTextFile
End If
Resume ExitHere
End Function

-
Vielen Dank für Eure Hilfe.

Gruß Steffen
 

Lesen sie die antworten

#1 Jörg Ackermann
22/05/2009 - 17:02 | Warnen spam
Hallo Steffen,

Steffen Brose meinte:


pdf (Inhalt nur Text) als txt in das Memo einlesen


Hallo Allseits,

ich habe von Euch damals hier 1A-Hilfe
zum Thema 'txt-Dateien einzeln aus einem Verzeichnis einlesen (in
eine Memo)' bekommen.

Diese txt'en waren das Ergebnsis von Downloads.
Jetzt wurde an der Quelle umgestellt auf pdf. (Ihr ahnt es richtig...)

Kann man aus den pdf's, welche dann in dem Verzeichnis liegen
- vor dem dem 'txt-to-memo-Code' txt's machen ? Geht dies ?

Die pdf's haben allesamt nur Text.



Ich verwende dafür PdfToTxt (enthalten in XPDF)
per Shell.
http://www.foolabs.com/xpdf/download.html


Gruß Acki

Ähnliche fragen