Batch Index du Forum
S’enregistrerRechercherFAQMembresGroupesConnexion
Répondre au sujet Page 5 sur 9
Aller à la page: <  1, 2, 3, 4, 5, 6, 7, 8, 9  >
Télécharger, convertir et renommer
Auteur Message
Répondre en citant
Message Télécharger, convertir et renommer 
Revue du message précédent :

Salut
Code:
@echo off
Title Telechargement des fichiers
mode con cols=100 lines=8 & color 9B
:: *************************************Partie téléchargement********************************************************
:: Téléchargement des url
set "url_name=url.txt"
set "vbs_downloader_name=vbs_downloader_engine"
if not exist "%url_name%" echo error, "%url_name%" n'exist pas! & pause
call :gen_downloader
if not exist "%vbs_downloader_name%" echo error, "%vbs_downloader_name%" n'exist pas! & pause& goto :eof
for /f "usebackq tokens=*" %%i in ("%url_name%") do call :download_file "%%~i"
Del "%vbs_downloader_name%"
ping -n 3 127.0.0.1 >nul
goto Conversion

:download_file
echo downloading "%~1"
cscript //nologo //e:vbscript "%vbs_downloader_name%" "/input:%~1" "/output:%~nx1"
if errorlevel 1 echo error
goto :eof

:gen_downloader
(
echo.function getFileName^(content^)
echo.  if content= "" then
echo.    getFileName= ""
echo.    exit function
echo.  end if
echo.  set regEx= CreateObject^("VbScript.Regexp"^)
echo.  regEx.Pattern= "filename=\x22([^\x22]+)\x22"
echo.  getFileName= ^(regEx.Execute^(content^)^)^(0^).SubMatches^(0^)
echo.end function
echo.
echo.function main^(^)
echo.  target_link= WScript.Arguments.Named^("input"^)
echo.  set XMLObject= CreateObject^("MSXML2.XMLHTTP"^)
echo.  XMLObject.open "GET", target_link, false
echo.  XMLObject.send^(^)
echo.  if XMLObject.status = 200 then
echo.    set ADOStream= CreateObject^("ADODB.Stream"^)
echo.    ADOStream.open
echo.    ADOStream.Type= 1' option_type_binary
echo.    ADOStream.Write XMLObject.ResponseBody
echo.    file_save_name= getFileName^(XMLObject.getResponseHeader^("Content-Disposition"^)^)
echo.    if file_save_name= "" then
echo.      file_save_name = WScript.Arguments.Named^("output"^)
echo.    end if
echo.    ADOStream.SaveToFile file_save_name, 2 'option_save_and_overwrite
echo.    errorlevel=Err.Number
echo.    AdoStream.Close
echo.  end if
echo.    main= errorlevel
echo.end function
echo.
echo.WSCript.Quit^(main^(^)^)
)>"%vbs_downloader_name%"
goto :eof

:: **************************************Partie Conversion*******************************************************
:Conversion

(
echo Option Explicit
echo ^'http://msdn.microsoft.com/en-us/library/office/bb251061^(v^=office.12^).aspx
echo Const ppSaveAsPDF ^= 32
echo Dim oFSO ^' Public reference to FileSystemObject
echo Dim oPPT ^' Public reference to PowerPoint App
echo Call Main^(^)
echo ^'**************************************************************************
echo Sub Main^(^)
echo     Dim sInput
echo     If wscript.Arguments.Count ^<^ 1 Then
echo         Wscript.Echo "You need to specify input and output files."
echo         wscript.Quit
echo     End If
echo     ^' PowerPoint version must be 12 or later ^(PowerPoint 2007 or later^)
echo     Set oPPT ^= CreateObject^("PowerPoint.Application"^)
echo     If CDbl^(oPPT.Version^) ^< 12 Then
echo         Wscript.Echo "PowerPoint version must be 2007 or later^^!"
echo         oPPT.Visible ^= True
echo         oPPT.Quit
echo         Set oPPT ^= Nothing
echo         wscript.Quit
echo     End If
echo     ^' Store Input Argument and detect execute mode ^(single file / Folder batch mode^)
echo     sInput ^= wscript.Arguments^(0^)
echo     Set oFSO ^= CreateObject^("Scripting.FileSystemObject"^)
echo     If IsPptFile^(sInput^) Then
echo         PPT2PDF sInput
echo     ElseIf oFSO.FolderExists^(sInput^) Then
echo         Wscript.Echo "Batch Start: " ^& Now
echo         Wscript.Echo "Root Folder: " ^& sInput
echo         BatchPPT2PDF sInput
echo     Else
echo         Wscript.Echo """" ^& sInput ^& """ is not a PPT file or Folder^^!"
echo     End If
echo     ^' Close PowerPoint app if no other presentations are opened
echo     If oPPT.Presentations.Count ^= 0 Then oPPT.Quit
echo     Set oPPT ^= Nothing
echo     Set oFSO ^= Nothing
echo End Sub
echo ^'**************************************************************************
echo Private Sub BatchPPT2PDF^(sFDR^)
echo     Dim oFDR^, oFile
echo     Wscript.Echo String^(50^, Chr^(151^)^)
echo     Wscript.Echo "Processing Folder: " ^& sFDR
echo     For Each oFile In oFSO.GetFolder^(sFDR^).Files
echo         If IsPptFile^(oFile.Name^) Then
echo             PPT2PDF^(oFile^)
echo         End If
echo     Next
echo     For Each oFDR In oFSO.GetFolder^(sFDR^).SubFolders
echo         BatchPPT2PDF oFDR
echo     Next
echo End Sub
echo ^'**************************************************************************
echo Private Function IsPptFile^(sFile^)
echo     IsPptFile ^= ^(InStr^(1^, Right^(sFile^, InStrRev^(sFile^, "."^)^)^, "ppt"^) ^> 0^)
echo End Function
echo ^'**************************************************************************
echo Private Sub PPT2PDF^(sFile^)
echo     On Error Resume Next
echo     Dim sPDF^, oPres
echo     sPDF ^= Left^(sFile^,InstrRev^(sFile^,"."^)^) ^& "pdf"
echo     Set oPres ^= oPPT.Presentations.Open^(sFile^, True^, False^, False^) ^' Read Only^, No Title^, No Window
echo     Err.Clear
echo     oPres.SaveAs sPDF^, ppSaveAsPDF
echo     oPres.Close
echo     Set oPres ^= Nothing
echo     If Err.Number ^= 0 Then
echo         Wscript.Echo "OK" ^& vbTab ^& sPDF
echo     Else
echo         Wscript.Echo "X" ^& vbTab ^& sPDF ^& " \[ERR " ^& Err.Number ^& ": " ^& Err.Description ^& "\]"
echo         Err.Clear
echo     End If
echo End Sub
echo ^'**************************************************************************
)>"PPT2PDF.vbs"

Title Conversion PPT vers PDF
echo Conversion PPT vers PDF
mode con cols=100 lines=22 & Color 9B
Set PPT2PDF=PPT2PDF.vbs
for %%A in (.) do (cscript.exe //NoLogo %PPT2PDF% %%A)
Del PPT2PDF.vbs
Goto Rename
:: **************************************Partie Renommage*******************************************************
:: Rename with actual date at then end of name
:Rename
setlocal enableDelayedExpansion
for %%F in (*.pdf) do (
:: if (%%F NEQ *_%date:~3,2%%date:~-4%.pdf)
:: On définit une variable nom qui correspond au nom du fichier en traitement.
  set "name=%%F"
:: On dit que le nom est égal à l'ancien nom avec son extension et en plus le mois et l'année actuels
  ren "!name!" "!name:.pdf=_%date:~3,2%_%date:~-4%.pdf!"
)


Message Publicité 
PublicitéSupprimer les publicités ?


Répondre en citant
Message Télécharger, convertir et renommer 
Nickel, merci Hackoo



Répondre en citant
Message Télécharger, convertir et renommer 
J'ai toujours un petit soucis, j'ai MP temp

J'ai 6 url qui ne fonctionnent pas.
Un collègue vient de e dire que le problème vient du %2B à l'intérieur.
Il me dit qu'en vbs il doit exister une fonction qui retranscrit tout.
Il m'a montré ce lien :
http://en.wikipedia.org/wiki/Percent-encoding

J'ai bien essayé de remplacer le %2B par + mais ça ne fonctionne quand même pas...
Si vous savez comment faire.
Je suis preneur.



Répondre en citant
Message Télécharger, convertir et renommer 
Bonjour a vous,

Merci pour votre code formidable Very Happy je vais vous piquer la partie "téléchargement"

Le problème que j'ai, c'est que ça fonctionne nickel avec pas mal de liens sauf pour le mien ( Sad ) :

C:\users\"mon_nom"\desktop\vbs_downloader_engine msxm13.dll : accès refusé.



Voici le lien que j'essaye de télécharger (un fichier xml) :

http://data.icecat.biz/export/freexml.int/FR/101.xml

que je récupère sans problème d'un site qui nécessite aucune connexion a un compte :

http://icecat.fr/fr/p/lexmark/10j0001/imprimantes-jets-d-encres-Lexmark-X73-Multifunction-Printer-101.html


Merci d'avance Mr. Green



Répondre en citant
Message Télécharger, convertir et renommer 
Bonjour,

bienvenue.

Tu dis que ça ne nécessite aucune connexion à un compte seulement quand je clique sur le lien que tu essayes de télécharger on me demande de m'identifier...



Répondre en citant
Message Télécharger, convertir et renommer 
Bonjour,

Merci pour ta réponse rapide Smile

L'identification permet de bénéficier d'autres avantages, mais les catalogues qu'ils présentent sont ouverts a tout le monde.

Essaye; par exemple, de cliquer sur "icecate" en haut a gauche, et puis taper "Lexmark 10J0001" dans la barre de recherche, tu tomberas directement sur le deuxième lien.

Apres, dans le petit tableau en bas a droite, tu trouveras le lien xml que j'essaye de télécharger (mon premier lien).



Répondre en citant
Message Télécharger, convertir et renommer 
Donc tu veux cette adresse là ?

http://openIcecat-xml:freeaccess@data.icecat.biz/export/freexml.int/FR/101.…

si c'est le cas je viens de la tester et ça fonctionne ^^

Si tu veux télécharger la fiche produit par ce lien là :


quand tu cliques dessus ils demandent de s'enregistrer :/



Dernière édition par chasseur1044 le Lun 28 Juil 2014 - 15:05; édité 1 fois
Répondre en citant
Message Télécharger, convertir et renommer 
bonjour yassinco ! désolé de passer pour un admin mais ça serait bien si tu te présentait avant de poster des messages !
merci
cordialement un scientifique fou




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message Télécharger, convertir et renommer 
Oui, exactement.

Je ne comprends pas Sad
Je mets 3 liens différents, 2 .png et un fichier xml, je récupère les 2 photos sur mon dossier mais pas le fichier xml :/

Ps: je suis en stage dans une entreprise, avec un compte d'utilisateur pour mon ordi. ca serait pas ca la cause de l'"accès refusé", un problème de connexion au serveur ??
(Quand je mets "enregistrer sous" il le télécharge directement sur mon bureau sans problème, sans demander d'identification)

Je suis perdue Neutral



Répondre en citant
Message Télécharger, convertir et renommer 
Je suis également en stage en entreprise et je n'ai pas ce soucis là, donc je pense que tu peux écarter cette hypothèse.

En revanche, j'espère que tu as pris en compte le commentaire de thesientific001

Pour en revenir à ton problème, tu me dis oui exactement, mais quoi oui exactement ?
Tu essayes de prendre quel lien ? le premier que je t'ai donné ? ou par le lien en capture d'écran ?



Répondre en citant
Message Télécharger, convertir et renommer 
oui, je parle bien du premier lien, j'avais pas vu ta capture d’écran, désolée. Rolling Eyes

et oui j'ai bien pris en compte le commentaire de thesientific001, j’étais entrain de préparer un message pour bien me présenter ^^



Répondre en citant
Message Télécharger, convertir et renommer 
Ben écoute, moi ton premier lien fonctionne qaund je le met dans ma liste d'url...
Donc je ne sais pas quoi te dire.

réessaye ça
http://openIcecat-xml:freeaccess@data.icecat.biz/export/freexml.int/FR/101.…
car le lien que tu nous a donné au début n'est pas le même



Répondre en citant
Message Télécharger, convertir et renommer 
Edit : Je vois pas comment supprimer mon message, je suis vraiment nulle Very Happy



Dernière édition par yassinco le Mar 29 Juil 2014 - 09:03; édité 1 fois
Répondre en citant
Message Télécharger, convertir et renommer 
ton lien ne marche pas chez moi :s il marche si je rajoute ".xml" a la fin ( le premier lien que tu m'as envoyé plus haut marche nickel aussi, sauf j'arrive pas a le telecharger Sad )



Répondre en citant
Message Télécharger, convertir et renommer 
bienvenue sur le fofo !
alors tu as oublie quelque chose : lire les regles ici http://batch.xoo.it/f4-Presentations.htm et faire sa presentation ici http://batch.xoo.it/f4-Presentations.htm
merci de supprimer ce message et de le poster ici http://batch.xoo.it/f4-Presentations.htm
cordialement le meme scientifique fou




______________________________________________________


mon site web http://pr1c3-game.craym.eu/
aide moi a faire revivre la section vb ! (http://batch.xoo.it/f62-VB-Net.htm)

"J'ai toujours raison surtout quand j'ai tord" citation de moi même
mon niveau
batch : 40/100
vb : 60/100
Visiter le site web du posteur Skype
Répondre en citant
Message Télécharger, convertir et renommer 
yassinco a écrit:
ton lien ne marche pas chez moi :s il marche si je rajoute ".xml" a la fin ( le premier lien que tu m'as envoyé plus haut marche nickel aussi, sauf j'arrive pas a le telecharger Sad )


je ne sais pas pourquoi le lien a été coupé mais en effet il faut le xml à la fin :
http://openIcecat-xml:freeaccess@data.icecat.biz/export/freexml.int/FR/101.xml

Bref, pour la présentation, il faut la faire ans le sujet fait pour ça :
http://batch.xoo.it/f4-Presentations.htm

tu as reçus un message normalement qui te l'indique

si ça fonctionne alors c'est bon non ?



Répondre en citant
Message Télécharger, convertir et renommer 
Ok ça marche thesientific001, donne moi juste un peu de temps, la je suis au boulot Mort de Rire


et sinon, chasseur1044, Çà marche Very Happy

je ne sais pas pourquoi mais sur mes lien j'avais pas toute la première partie " openIcecat-xml:freeaccess@ " du coups j'ai repris ton lien avec .xml a la fin http://openIcecat-xml:freeaccess@data.icecat.biz/export/freexml.int/FR/101.…


et ça marche nickel , MERCI beaucoup Okay



Message Télécharger, convertir et renommer 


Montrer les messages depuis:
Répondre au sujet Page 5 sur 9
Aller à la page: <  1, 2, 3, 4, 5, 6, 7, 8, 9  >
  



Index | créer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Copyright 2008 - 2016 // Batch