🚀 go-pugleaf

"Tom Discart" <nospam_tom.discart@pandora.be> writes:

> Hallo,
> Ik heb een bestaande pdf waarin 1 stuk tekst (%%naam%%) vervangen zou moeten
> worden met een variabele.
> Deze pdf moet dan geschreven worden op de harddisk.
> Heeft er iemand ervaring met bepaalde .dll's die dit mogelijk maken?
> Ik weet dat active pdf zoiets aanbiedt, redelijk duur. Misschien andere
> opties?
> 
> Alvast bedankt,

wel een alternatief, als je linux/*nix/ hebt of iemand die het heeft:

pdf2ps blaat.pdf blaat.ps

ps2ascii blaat.ps blaat.txt  (als er geen plaatjes etc in zitten)
anders :
de postscriptfile in een textverwerker inlezen (converteren ps >
???  editen en dan opslaan als postscript-file.


#edit het bestand
vi :%s/naam/andere-naam/g  (global-replace )

a2ps blaat.txt blaat2.ps
ps2pdf blaat2.ps blaat2.pdf

het is ietwat omslachtig , maar het werkt wel.

Misschien zit er in MAC ook iets dergelijks, omdat ie ook std postscript
snapt.


cor

-- 
Sed quis custodiet ipsos custodes   Are You Sure ? ||YES||DO-IT||CHECK-IT||
Operatingsystem is just a name thou giveth to the rest of thy idiosyncratic 
machine-based features left out of thoueth editor.
Knowlegde should have free access to people         http://thefreeworld.net

On Wed, 06 Nov 2002 15:40:08 GMT, "Tom Discart"
<nospam_tom.discart@pandora.be> wrote:

>Hallo,
>Ik heb een bestaande pdf waarin 1 stuk tekst (%%naam%%) vervangen zou moeten
>worden met een variabele.
>Deze pdf moet dan geschreven worden op de harddisk.
>Heeft er iemand ervaring met bepaalde .dll's die dit mogelijk maken?
>Ik weet dat active pdf zoiets aanbiedt, redelijk duur. Misschien andere
>opties?
>
>Alvast bedankt,
>
>Tom
>

Als je het met VB moet doen en niet aan de ADOBE DLL's kan komen,
kan dit stukje VB5 code misschien helpen (VB6 heeft Replace, snel
zal het niet zijn en oppassen voor de binary images in de PDF files):

Public Sub ReplaceTextInFile(InFile As String, OutFile As String,
OldText As String, NewText As String)
    
  Dim FileNr As Integer
  Dim s As String

  'Lees het bestand in zijn geheel in een string.
  FileNr = FreeFile
  Open InFile For Binary As #FileNr
  s = Input(LOF(FileNr), #FileNr)
  Close #FileNr
  
  'Vervang OldText door NewText in string.
  Replace s, OldText, NewText

  'Schrijf string naar ander bestand.
  FileNr = FreeFile
  Open OutFile For Binary Access Write As #FileNr
  Put #FileNr, , s
  Close #FileNr

End Sub

Public Sub Replace(s As String, OldText As String, NewText As String)
    
  Dim p As Long
    
  p = InStr(1, s, OldText)
  While p
    s = Left$(s, p - 1) & NewText & Mid$(s, p + Len(OldText))
    p = InStr(p + Len(NewText), s, OldText)
  Wend
    
End Sub


HTH

Hello Tom,

Download eerst de Acrobat Type Library (ergens te vinden op de Acrobat-site).
Vervolgens kan je dit doen :
Private avDoc as CAcroAVDoc
Private formApp As AFORMAUTLib.AFormApp
Private acroForm As AFORMAUTLib.Fields
Private field As AFORMAUTLib.field

Set avDoc = CreateObject("AcroExch.AVDoc")
avDoc.Open("blabla.pdf", "Formulier")
Set formApp = CreateObject("AFormAut.App")
Set acroForm = formApp.Fields

Set field = acroForm.Add("label1","Dit is waar je je tekst
plaatst",paginanummer,posx,posy)
field.Alignment = "center"
field.IsMultiline = True
enz.

Hoe je nu daadwerkelijk tekst vervangt, weet ik niet meer... dat zal je eens
moeten opzoeken...

Have fun !

Groetjes,

Wim
--
------
Colocation/housing kosten te hoog --> http://www.housingcenter.be
--
Adverteren.be - 100% Nederlandstalig adverteren op kwalitatief hoogstaande sites
!


Tom Discart wrote:

> Hallo,
> Ik heb een bestaande pdf waarin 1 stuk tekst (%%naam%%) vervangen zou moeten
> worden met een variabele.
> Deze pdf moet dan geschreven worden op de harddisk.
> Heeft er iemand ervaring met bepaalde .dll's die dit mogelijk maken?
> Ik weet dat active pdf zoiets aanbiedt, redelijk duur. Misschien andere
> opties?
>
> Alvast bedankt,
>
> Tom