On Tue, Dec 6, 2016 at 4:28 AM, <pauguillot@girona.com> wrote:
Hello,
1- I need help to extract a selected text from a pdf document. Tet pdflib can do that and i need help to execute command line using Pharo. I am able to do the work using a bat file but i think we can do better.
Someone else will need ot help for that.
2- How we can code properly the delay (when we wait the Bat file)
Can you expand on the problem. "(Delay forMilliseconds: 500)wait." looks fine to me. cheers -ben
Thank you for your help.
https://www.pdflib.com/products/tet/
|bat pdf stream pdfAsText contents | bat := 'C:\some\code.bat'. pdf := 'C:\some\document.pdf'. stream := bat asFileReference writeStream.
"Console Windows code" stream nextPutAll: 'CD "C:\Program Files\PDFlib\TET 5.0 64-bit\bin"'; nextPut: Character linefeed; nextPutAll: 'TET --samedir --lastpage last-1 --pageopt "includebox={ {98.38 693.32 253.41 709.91} {522.70 183.66 595 226.30} {416.97 574.79 479 598.03} {401.33 773.91 453 789.55} {294.18 575.74 369.56 598.5} {295.6 492.3 373.35 524.43} {150.53 414.55 219.28 438.25} {47.17 494.67 98.85 520.75} {112.26 684.01 193.66 698.03} {533.61 212.57 595 620} {100.75 657.29 217.85 673.41}}"'; nextPut: Character space; nextPutAll: pdf; nextPut: Character linefeed; nextPutAll: 'EXIT'; close. OS2Process command: bat.
pdfAsText := String streamContents: [ :s | 1 to: (pdf size - 4) do: [ :i | s nextPut: (pdf at: i) ]. s nextPutAll: '.txt'; close ]. "C:\some\document.txt" (Delay forMilliseconds: 500)wait. contents := pdfAsText asFileReference contents. bat asFileReference delete. pdfAsText asFileReference delete. contents
================================================================ Missatge enviat a través del Webmail de Girona.com http://www.girona.com ================================================================