Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 24 le Ven 15 Déc 2017, 23:28
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[developpez.com] Script avec PDF créator

Voir le sujet précédent Voir le sujet suivant Aller en bas

[developpez.com] Script avec PDF créator

Message par Sachadee le Jeu 17 Avr 2014, 20:17


_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Merci Sacha !

Message par Hackoo le Ven 18 Avr 2014, 01:29

Salut Sacha  Very Happy  et merci bien pour cette contribution c'est trop
Néanmoins, je voudrais faire un Vbscript qui va utiliser 2 paramètres qui sont le InputFile et le OutputFile, or dans ton application en ligne de commandes, on peut passer juste un seul paramètre qui est le InputFile, donc ce n'est pas trop flexible, tu vois ce que je veux dire  Rolling Eyes 
Donc, si c'est possible, et si tu trouve le temps bien sûr, a nous faire une autre version avec 2 paramètres (le 1er est obligatoire, et le 2ème peut-être Optionnel)
Donc si le 2ème paramètre est omis (OutputFile) , alors le fichier de sortie aura comme nom par défaut [NomdufichierInput_Modified]
Merci encore une autre fois  cheers
Donc avec ce vbscript qui parcours un dossier et qui sélectionne que les fichiers avec l'extension .PDF
le fichier SortiePDF est écrasé à chaque fois  Sad  ce qui n'est pas pratique dans ce cas d'un traitement par lot.

Code:
Dim fso,ext
Set fso = CreateObject("Scripting.FileSystemObject")
For each ifname in FSO.GetFolder(Parcourir_Dossier()).Files
ext = fso.GetExtensionName(ifname)
 ext = lcase(ext)
 If ext = "pdf" Then
 'MsgBox ifname.Name
 Call AddHeader2PDF(ifname.Name,ifname)
 end if
Next
MsgBox "Terminé !"
'****************************************************************************************************
Function Parcourir_Dossier()
 Dim objShell,objFolder
 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.BrowseForFolder(0, "Veuillez choisir un dossier pour ajouter le nom du fichier dans les entêtes PDF  ",1,"c:\Programs")
 If objFolder Is Nothing Then
 Wscript.Quit
 End If
 Parcourir_Dossier = objFolder.self.path
end Function
'****************************************************************************************************
Sub AddHeader2PDF(Header,InputFile)',OutPutFile)
 Dim fso,AddHeader,MyCmd
 AddHeader = "AddTextToPDFFile.exe"
 Set fso = CreateObject("Scripting.FileSystemObject")
 if fso.FileExists(AddHeader) Then
 MyCmd = AddHeader & " " & DblQuote(Header) & " " & DblQuote(InputFile)' DblQuote(OuputFile)
 'msgbox MyCmd
 Call Executer(MyCmd,0)
 Else
 MsgBox "Check if the file " & AddHeader & " Exists !",VbCritical,"Check if the file " & AddHeader & " Exists !"
 Wscript.Quit
 end if
End Sub
'************************************************************************************
Function Executer(StrCmd,Console)
 Dim ws,MyCmd,Resultat
 Set ws = CreateObject("wscript.Shell")
'La valeur 0 pour cacher la console MS-DOS
 If Console = 0 Then
 MyCmd = "CMD /C " & StrCmd & ""
 Resultat = ws.run(MyCmd,Console,True)
 If Resultat = 0 Then
'MsgBox "Success"
 Else
 MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
 End If
 End If
'La valeur 1 pour montrer la console MS-DOS
 If Console = 1 Then
 MyCmd = "CMD /K " & StrCmd & ""
 Resultat = ws.run(MyCmd,Console,False)
 If Resultat = 0 Then
'MsgBox "Success"
 Else
 MsgBox "Une erreur inconnue est survenue !",16,"Une erreur inconnue est survenue !"
 End If
 End If
 Executer = Resultat
End Function
'****************************************************************************************************
Function DblQuote(Str)
 DblQuote = Chr(34) & Str & Chr(34)
End Function
'************************************************************************************************

_________________


avatar
Hackoo
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

Re: [developpez.com] Script avec PDF créator

Message par Sachadee le Sam 19 Avr 2014, 00:48

Tes désirs son des ordres Hackoo :  Very Happy 

http://www.developpez.net/forums/d1431043/autres-langages/general-visual-basic-6-vbscript/vbscript/script-pdf-creator/#post7781879

Prochaine version de PDF_ADD_ON 1.0.1  Bêta avec  option pour :

- couleur du texte
- Position en X du texte
- Position en Y du texte
- Font du texte
- Taille du font
- Transparence du texte
- Rotation du texte

Ensuite on s'attaquera aux extractions......

 

_________________
@SachaDee
avatar
Sachadee
Admin
Admin

Mensagens : 591
Data de inscrição : 04/06/2013

http://bbat.forumeiro.com

Revenir en haut Aller en bas

Re: [developpez.com] Script avec PDF créator

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum