Bruno 21
4164e995cb
-ajout d’une aide (—help) -correction d’un bug pour la recherche manuelle du fichier (mauvais chemin)
97 lines
2.4 KiB
Batchfile
97 lines
2.4 KiB
Batchfile
@echo off
|
|
|
|
:Loop
|
|
IF "%1"=="" GOTO Continue
|
|
IF "%1"=="--help" GOTO help
|
|
SHIFT
|
|
GOTO Loop
|
|
|
|
:help
|
|
echo Aide:
|
|
echo 1. Sur le serveur de maintenace Mistral, faire une requete SQL:
|
|
echo dialogue_tvt '18/09/18','19/09/18','snpi'
|
|
echo.
|
|
echo 2. Copier /coller le résultat dans le Bloc Note et créer un nouveau fichier.
|
|
echo Important: Sauver le fichier sur la clé IHM1 avec un nom commencant par AD (ex AD_09-10_09_2018.txt)
|
|
echo.
|
|
echo 3. Inserer la clé IHM1 sur un poste connecte au réseau et double-cliquer sur accordDepart4.bat
|
|
echo Le script recherche et propose le fichier commencant par AD le plus recent.
|
|
echo Si c'est le bon fichier, taper O
|
|
echo Sinon, taper N. Entrer le nom du fichier en vous aidant de la touche Tab
|
|
echo.
|
|
echo 4. Un nouveau fichier est cree et joint en PJ a Outlook dans un nouveau message.
|
|
echo Dans Outlook, cliquer sur Envoyer.
|
|
echo.
|
|
Echo 5. Retourner sur le script, appuyer sur une touche pour quitter le script et effacer le fichier.
|
|
echo.
|
|
exit /b 15
|
|
:Continue
|
|
|
|
echo.
|
|
echo *** Recherche des accords de depart ***
|
|
echo.
|
|
|
|
echo On recherche un fichier AD*.txt ...
|
|
|
|
REM le script recherche le fichier commencant par AD le plus récent.)
|
|
set FILENAME=AD*.txt
|
|
set FILEPATH=
|
|
|
|
FOR /F %%f in ('dir /O:D /S /B %FILENAME%') do (
|
|
set FILEPATH=%%f
|
|
)
|
|
|
|
REM si aucun fichier n'a été trouvé, on le rentre manuellement.
|
|
IF NOT "%FILEPATH%"=="" (
|
|
CHOICE /C ON /D O /T 5 /M "%FILEPATH% : est-ce le bon fichier ?"
|
|
IF errorlevel 2 goto non
|
|
IF errorlevel 1 goto oui
|
|
)
|
|
|
|
:non
|
|
echo.
|
|
echo Taper le nom du fichier archive SNPI... (Tab)
|
|
set /P FILEPATH=
|
|
set FILEPATH=%CD%%FILEPATH%
|
|
echo.
|
|
|
|
:oui
|
|
echo.
|
|
|
|
IF EXIST "%FILEPATH%" (
|
|
goto find
|
|
) ELSE (
|
|
goto fin
|
|
)
|
|
|
|
echo.
|
|
|
|
:find
|
|
echo %FILEPATH%
|
|
|
|
set import=%FILEPATH%
|
|
set export=%FILEPATH:AD=AccordDepart%
|
|
|
|
REM on recherche la chaine "AccorderDepart"
|
|
find "AccorderDepart" "%import%" > "%export%"
|
|
|
|
REM et on sauvegarde le résultat sur le bureau.
|
|
echo.
|
|
echo Un fichier %export% a ete cree sur le bureau...
|
|
|
|
REM on ouvre le resultat dans le Bloc Note. (option)
|
|
echo.
|
|
start "realmd" "%export%"
|
|
|
|
REM on prépare le mail avec sa PJ
|
|
"c:\Program Files\Microsoft Office\Office14\OUTLOOK.EXE" /c ipm.note /m "mailto:seb.huet@reseau.sncf.fr?subject=[Accord de depart IHM1]&body=Bonjour, " /a "%export%"
|
|
|
|
REM reste à cliquer sur envoyer
|
|
|
|
Echo Dans Outlook, cliquer sur Envoyer !!!
|
|
PAUSE >nul
|
|
DEL %export%
|
|
|
|
:fin
|
|
Echo Aucun fichier n'a pas ete trouvé.
|