Lev
|
 Posted: Tue Feb 26, 2008 16:49 Post subject: |
 |
|
Секция для просмотра pdf с помощью pdftotext.
Авось, кому пригодится, как пример подключения к листеру и других подобных конвертеров.
| Code: | Case "pdf"
Set f = fso.GetFile(file_name)
If f.Size<>0 Then
Set WshShell = CreateObject("WScript.Shell")
tmp=WshShell.ExpandEnvironmentStrings("%Temp%")
fileout=tmp & "\delete.it"
'тут надо указать правильный путь к конвертеру
command="c:\WINCMD\Content_wdx\TextSearch\Conv\PDF\pdftotext.exe -layout """ & file_name & """ " & fileout
WshShell.Run command,0,True
On Error Resume next
Set ts = fso.OpenTextFile(fileout, ForReading)
s = ts.ReadAll
AddLine s
ts.Close
fso.DeleteFile fileout
On Error Goto 0
Set WshShell=Nothing
Set fso=Nothing
End If |
|
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
