🚀 go-pugleaf

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