PreviousNext
Help > Programmation avec LAUNCHER Office > Les commandes LNCCMD > Liste des commandes > Commande PDFCONCAT
Commande PDFCONCAT

Permet de concaténer plusieurs fichiers PDF pour créer un nouveau fichier PDF.

Le nombre maximum de PDF à concaténer avec la commande PDFCONCAT est de 104.

Vous serez sans doute obligé de changer la taille de Parm1 (voir Exemple 2).

 

Syntaxe

 

CHGVAR

VAR(&CMD) VALUE('PDFCONCAT')

CHGVAR

VAR(&PARM1) VALUE('"<path_file1>.pdf";"<path_file2>.pdf";
"<path_file3>.pdf";"<path_file4>.pdf"')

CHGVAR

VAR(&PARM2) VALUE('Dest="Chemin PDF final"')

CALL

PGM(LNCCMD) PARM(&HANDLE &CMD &OPT &PARM1 +

&PARM2 &RESULT)

 

  Paramètres

 

Paramètres

 

Parm1

 

 

Parm2

Chemin complet (entre guillemets) des différents fichiers PDF à concaténer, séparés par des ';'.

 


Dest
 : chemin complet du PDF final, correspondant au résultat de la concaténation des différents fichiers PDF contenus dans Parm1.

 

 

Exemple 1

 

 LNCCMD     CMD(PDFCONCAT) +                              

             PARM1('"C:\A\a.pdf";"C:\A\b.pdf";"C:\A\R_27+

             WORD.pdf";"C:\A\c.pdf"') +                  

             PARM2('Dest="C:\A\res2.pdf"')               

 

Exemple 2

 

Vous pouvez utiliser la commande DIRLIST pour lister les PDF d’un répertoire, et les envoyer en paramètre de PDFCONCAT.

 

Dans cet exemple, la commande PROPERTY a été utilisée pour changer la taille des paramètres Parm1, Parm2 et Result, seulement pour la connexion en cours.

A la fin de la connexion, les paramètres par défaut sont appliqués.

PROPERTY n'a pas d'effet quand on utilise les commandes LNCCMD. Il faut utiliser l'appel de programme CALL PGM(LNCCMD). 

Il faudra changer bien entendu la taille des variables.

La taille cumulée pour Parm1 et Parm2 ne doit pas dépasser 32700.

La taille pour Result ne doit pas dépasser 32700. 

 

 

 PGM

 DCL        VAR(&RES) TYPE(*CHAR) LEN(512)

 DCL        VAR(&OPT) TYPE(*CHAR) LEN(1)

 DCL        VAR(&HDL) TYPE(*CHAR) LEN(100) VALUE('*ONLY ')

 DCL        VAR(&PARM1) TYPE(*CHAR) LEN(31000)

 DCL        VAR(&PARM2) TYPE(*CHAR) LEN(1000)

 DCL        VAR(&LIST) TYPE(*CHAR) LEN(20000)

 DCL        VAR(&CNT) TYPE(*DEC) LEN(3) VALUE(0)

 DCL        VAR(&REP) TYPE(*CHAR) LEN(3000)

 

 LNCOPEN

 

 LNCCMD     CMD(PROPERTY) +

              PARM1('PARMSIZE(31000,1000,512)')

 

 CHGVAR     VAR(&REP) VALUE('C:\A\concat')

 CHGVAR     VAR(&LIST) VALUE(' ')

 CHGVAR     VAR(&PARM1) VALUE('PATTERN="*.pdf";PATH="' +

              *TCAT &REP *TCAT '"')

 CHGVAR     VAR(&PARM2) VALUE('FIRST=TRUE')

 

 CALL       PGM(LNCCMD) PARM(&HDL 'DIRLIST' &OPT &PARM1 +

              &PARM2 &RES)

 

 IF         COND(&RES *NE ' ') THEN(DO)

     CHGVAR     VAR(&LIST) VALUE(&LIST *TCAT '"' *TCAT &REP +

                 *TCAT '\' *TCAT &RES *TCAT '"')

     CHGVAR     VAR(&CNT) VALUE(&CNT + 1)

 ENDDO

 

 CHGVAR     VAR(&PARM2) VALUE('FIRST=FALSE')

 

 DOWHILE    COND(&RES *NE ' ')

 

     IF         COND(&CNT *GT 1) THEN(DO)

           CHGVAR     VAR(&LIST) VALUE(&LIST *TCAT ';"' *TCAT &REP +

                 *TCAT '\' *TCAT &RES *TCAT '"')

     ENDDO

 

     CHGVAR     VAR(&CNT) VALUE(&CNT + 1)

 

     CALL       PGM(LNCCMD) PARM(&HDL 'DIRLIST' &OPT &PARM1 +

                 &PARM2 &RES)

 ENDDO

 

 CHGVAR     VAR(&PARM1) VALUE(&LIST)

 CHGVAR     VAR(&PARM2) +

              VALUE('DEST="C:\TEMP\FINAL_CONCAT.PDF"')

 CALL       PGM(LNCCMD) PARM(&HDL 'PDFCONCAT' &OPT +

              &PARM1 &PARM2 &RES)

 LNCCLOSE

 

 ENDPGM