BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités

Aucun

Le record du nombre d'utilisateurs en ligne est de 29 le Mer 29 Jan 2020, 10:53
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[developpez.com] Script avec PDF créator  EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[developpez.com] Script avec PDF créator  EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[developpez.com] Script avec PDF créator  EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[developpez.com] Script avec PDF créator  EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[developpez.com] Script avec PDF créator  EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[developpez.com] Script avec PDF créator  EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[developpez.com] Script avec PDF créator  EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[developpez.com] Script avec PDF créator  EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[developpez.com] Script avec PDF créator  EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
-15%
Le deal à ne pas rater :
(Adhérents) LEGO® Icons 10318 Le Concorde
169.99 € 199.99 €
Voir le deal

[developpez.com] Script avec PDF créator

2 participants

Aller en bas

[developpez.com] Script avec PDF créator  Empty [developpez.com] Script avec PDF créator

Message par Sachadee Jeu 17 Avr 2014, 20:17

Sachadee
Sachadee
Admin
Admin

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

https://bbat.forumeiro.com

Revenir en haut Aller en bas

[developpez.com] Script avec PDF créator  Empty Merci Sacha !

Message par Hackoo Ven 18 Avr 2014, 01:29

Salut Sacha  Very Happy  et merci bien pour cette contribution c'est trop [developpez.com] Script avec PDF créator  505557867
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
'************************************************************************************************
Hackoo
Hackoo
EQUIPE BBAT
EQUIPE BBAT

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

Revenir en haut Aller en bas

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

Message par Sachadee 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......

 [developpez.com] Script avec PDF créator  2693794285
Sachadee
Sachadee
Admin
Admin

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

https://bbat.forumeiro.com

Revenir en haut Aller en bas

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

Message par Contenu sponsorisé


Contenu sponsorisé


Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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