Connexion
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
Sujets les plus vus
Derniers sujets
[developpez.com] Script avec PDF créator
2 participants
Page 1 sur 1
Merci Sacha !
Salut Sacha 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
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
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 ce qui n'est pas pratique dans ce cas d'un traitement par lot.
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
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
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 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- EQUIPE BBAT
- Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie
Re: [developpez.com] Script avec PDF créator
Tes désirs son des ordres Hackoo :
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......
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......
Sujets similaires
» [developpez.com] Script suppression fichiers
» [Developpez.com] svp aider moi pour un script comptage de fichier
» [Developpez.com] Besoin d'aide pour créer un script (AutoIt)
» [developpez.com] Script pour copier .jpg plus rajout caractère dans le titre ?
» [Developpez.com] Recherche de .pst avec exception
» [Developpez.com] svp aider moi pour un script comptage de fichier
» [Developpez.com] Besoin d'aide pour créer un script (AutoIt)
» [developpez.com] Script pour copier .jpg plus rajout caractère dans le titre ?
» [Developpez.com] Recherche de .pst avec exception
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ven 25 Déc 2015, 14:17 par Sachadee
» [devellopez] Formater une date en ligne Dos
Ven 31 Juil 2015, 10:40 par Dylan Gadacha
» Un super Tuto Batch de IniTScreen
Lun 08 Juin 2015, 12:16 par InitScreen
» Un code MATRIX sympa
Dim 12 Avr 2015, 14:27 par Sachadee
» [BAT/EXE] DresolChange changer la sesolution de l´écran
Mar 17 Mar 2015, 09:12 par Sachadee
» [EXE/bat] DpScript Código Delphi interpreter
Jeu 12 Mar 2015, 15:48 par Sachadee
» Externo SaveDlg com 2 kb
Dim 15 Fév 2015, 12:20 par Sachadee
» présentation
Dim 15 Fév 2015, 12:14 par Sachadee
» [developpez.com] Transcodage fichier vidéo si fichier déposé
Mar 03 Fév 2015, 01:02 par Sachadee