neocam
Messages postés52Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention 1 mars 2010
-
10 févr. 2009 à 15:01
neocam
Messages postés52Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention 1 mars 2010
-
10 févr. 2009 à 16:20
Bonjour,
Gros souci, apres une matiné sur le feux a l'heur de rendre mon travail (a l'heur grace a vous)
Je me rend compte qu'il ne tourne pas sur le serveur windows 2003 R2 SP2, je l'ai programmé sous Windows 2003 SP2 et la tourne sans souci...
Peut être aurais-je oublier une manip ce qui me semblerais étrange car j'ai tester sur une autre machine 2003 SP2 et la tourne sans problème...
Pour le faire fonctionne il faut coller pdftotext.exe a la racine de windows
Voila mon code:
Option Explicit
dim Contenu,FSys,MonFic,strfile,Source
dim ofolder,oShell
Source = "C:\Temp"
'Declaration du shell utile pour lancer une commande dos
Set oShell=createObject ("WScript.Shell" )
'Declaration permettant entre autre de charger le fichier à lire ou a modifier
Set FSys = CreateObject("Scripting.FileSystemObject")
'Declaration des objet d'application permettant entre autre de charger le contenu d'un repertoir.
Set oFolder = FSys.GetFolder(Source)
'boucle créant les fichier txt
for each strFile in oFolder.Files
if strFile.type ="Fichier PDF" then
oShell.run "pdftoText ""C:\Temp" & strFile.name & """"
end if
next
'Les sleep permettent de gérer le temps de rafraichissement
wscript.sleep 3000
'Boucle modifiant les txt afin de ne garder que la premiere ligne
for each strFile in oFolder.Files
if strFile.type ="Document texte" then
Set MonFic = FSys.OpenTextFile(strFile,1)
contenu = MonFic.ReadLine
'wscript.echo contenu
wscript.sleep 1000
Set MonFic = FSys.OpenTextFile(strFile,2)
MonFic.write contenu
MonFic.close
end if
next
neocam
Messages postés52Date d'inscriptionmercredi 28 juin 2006StatutMembreDernière intervention 1 mars 2010 10 févr. 2009 à 16:20
Ok ... Merci quant même
donc l'astuce... été d'installer adobe acrobat car si ce dernier n'est pas installé le type retourne Document PDF par contre si il est installé il retourne Adobe Acrobat Document