Tonio92

RIHO en version portable en moins d'une minute ! 1/ Ouvrir le dossier d'installation de RIHO par défaut le chemin est C:\SNCF-HOR 2/ Ouvrir le S/répertoire PROG 3/ Double-cliquer sur le fichier hormaj.ini il doit s'ouvrir automatiquement avec le bloc-notes sinon l'ouvrir manuellement avec votre éditeur de texte par défaut. 4/ Reperer sur la ligne PROGRAMMES= la lettre du disque ici c'est C: Effacer la lettre du disque et les 2 points Faire de même pour toutes les lignes PATH=: Sous [HIVER-GL] [ETE-GL] et [GREVE] Vous devez avoir cela : Important enregistrer le fichier hormaj.ini modifié Voila votre RIHO est en version portable que vous pouvez recopier dans une clef USB. Pour démarrer RIHO il suffira de double-cliquer sur horinfgl.exe ou au besoin faire un raccourci qui pointe sur horinfgl.exe Personnellement je me suis fait un fichier de commande pour: 1/ de verifier les chemins de RIHO 2/ de le rendre portable 3/ de réécrire le fichier INI en cas de problème Si ça vous interesse voici le code copier-coller ce qui suit dans le bloc note et sauvegarder comme Lanceur.cmd: @echo off cls setlocal enableDelayedExpansion REM Couleur du fond bleu clair et texte en jaune color 9e REM Titre de la console title Lanceur RIHO Portable REM Variable du chemin du répertoire principal For %%D in (.) do Set cherep=%%~fD REM chemin du fichier ini set cpr=%cherep%\PROG\hormaj.ini REM Si le fichier ini est introuvable REM erreur et fin du programme if not exist "%cpr%" goto erreur REM Amputer la lettre du disque (exemple C:) set cherep=%cherep:~2% REM Pointer sur le dossier de hormaj.ini cd PROG\ REM Variable du chemin du répertoire PROG for %%D in (.) do set chepro=%%~fD REM Amputer la lettre du disque (exemple C:) set chepro=%chepro:~2% REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Verification avant le démarrage de RIHO REM Verifier si le chemin actuel correspond REM au chemin inscrit dans hormaj.ini REM On récupère le chemin inscrit dans hormaj.ini for /f "tokens=1,2 delims==" %%i in ('findstr /i "PROGRAMMES=" hormaj.ini') do ( set chemini=%%j) REM Important il faut mettre des guillemets REM aux variables chemcini et cheminpro REM sinon erreur dans la commande if. REM Si le nouveau chemin ne correspond pas : REM 1/ On verifier si les noms des répertoires REM font moins de 8 caratères REM 2/ On réecrit le fichier ini if not "%chemini%"=="%chepro%" goto longpath REM Si le nouveau chemin correspond if "%chemini%"=="%chepro%" goto :Lancement REM Sortie si aucune condition trouvée endlocal exit REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM lecture et récriture du fichier ini ligne par ligne :modini set hiv=%cherep%\HIVER-GL set ete=%cherep%\ETE-GL REM Destruction des fichiers antérieurs inutiles if exist hormajN.ini del hormajN.ini cls title R‚‚criture du fichier hormaj.ini.... echo. echo. echo R‚‚criture du fichier hormaj.ini echo. echo. echo Cette r‚‚criture s'effectue echo automatiquement si le nom ou echo l'emplacement du r‚pertoire echo de RIHO ne correspondent pas echo au nom et au chemin inscrit echo dans le fichier hormaj.ini echo. echo. echo Veuillez patienter s.v.p. echo. REM réécriture du fichier hormaj.ini type hormaj.ini | find /i "[COMMUN]" >> hormajN.ini&echo PROGRAMMES=%chepro%>> hormajN.ini type hormaj.ini | find /i "preambule=" >> hormajN.ini type hormaj.ini | find /i "SERVICE=" >> hormajN.ini type hormaj.ini | find /i "langue=" >> hormajN.ini type hormaj.ini | find /i "GROUPE=" >> hormajN.ini type hormaj.ini | find /i "ServeurMAJ=" >> hormajN.ini type hormaj.ini | find /i "VerInstalDate=" >> hormajN.ini type hormaj.ini | find /i "[PREFERENCES]" >> hormajN.ini type hormaj.ini | find /i "code=" >> hormajN.ini type hormaj.ini | find /i "correspondances=" >> hormajN.ini type hormaj.ini | find /i "heure-deb=" >> hormajN.ini type hormaj.ini | find /i "heure-fin=" >> hormajN.ini type hormaj.ini | find /i "gare_privilegiee=" >> hormajN.ini type hormaj.ini | find /i "[sERVICES]" >> hormajN.ini type hormaj.ini | find /i "HIVER-GL=" >> hormajN.ini type hormaj.ini | find /i "ETE-GL=" >> hormajN.ini type hormaj.ini | find /i "GREVE=" >> hormajN.ini REM Trouver la variable Type for /f "tokens=1,2 delims==" %%i in ('findstr /i "TYPE=" hormaj.ini') do set type=%%i=%%j type hormaj.ini | find /i "[HIVER-GL]" >> hormajN.ini&echo PATH=%hiv%>> hormajN.ini&echo %type%>> hormajN.ini type hormaj.ini | find /i "[ETE-GL]" >> hormajN.ini&echo PATH=%ete%>> hormajN.ini&echo %type%>> hormajN.ini type hormaj.ini | find /i "[GREVE]" >> hormajN.ini&echo PATH=%ete%>> hormajN.ini&echo %type%>> hormajN.ini REM Si l'ancien hormaj.ini existe on le détruit if exist hormaj.ini del hormaj.ini REM Renommer le nouveau fichier ini RENAME hormajN.ini hormaj.ini cls title R‚‚criture du fichier hormaj.ini termin‚e.... echo. echo. echo. echo. echo Modification et r‚‚criture du echo fichier hormaj.ini termin‚e. echo. echo. echo Cette r‚ecriture s'effectue echo automatiquement si le nom ou echo l'emplacement du r‚pertoire echo de RIHO ne correspondent pas echo au nom et au chemin inscrit echo dans le fichier hormaj.ini echo. pause REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Continuer par le lancement de RIHO :lancement cls REM Lancement de RIHO start /b horinfgl.exe REM Fin du programme endlocal exit xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Verifier si les noms des répertoires font moins de 8 caratères :longpath REM chemin complet du répertoire en cours REM Important il faut mettre des guillemets REM à la variable chemc sinon erreur. set chemc="%CD%" REM lecture de la variable chemc et REM création des variables dossier set /a c=2 :boucle REM Création de la table de variable sous() for /f "tokens=1,%c%* delims=\" %%a in (%chemc%) do ( set sous%c%=%%b set /A c=c+1 REM si la variable n'est pas definie REM on sort de la boucle if not defined sous%c% goto continue REM Ici on boucle maximum 12 fois REM Créer plus de 12 sous-dossiers REM faudrait être fou .. REM Ce nombre peut être augmenté si REM on veut réutiliser cette routine. if not %c%==12 goto boucle ) :continue REM On met le compteur à 2 pour ne pas REM prendre le premier paramètre qui est REM la lettre du disque set /a c=2 echo. REM Calculer le nombre de caratères des dossiers :longdos REM répertoire principal if defined sous2 set nomdos=Le r‚pertoire principal if defined sous2 set mot=%sous2%&set sous2=&set num=&goto decompte REM sous/répertoire set nomdos=Le sous/r‚pertoire if defined sous3 set mot=%sous3%&set /A num=1&set sous3=&goto decompte if defined sous4 set mot=%sous4%&set /A num=2&set sous4=&goto decompte if defined sous5 set mot=%sous5%&set /A num=3&set sous5=&goto decompte if defined sous6 set mot=%sous6%&set /A num=4&set sous6=&goto decompte if defined sous7 set mot=%sous7%&set /A num=5&set sous7=&goto decompte if defined sous8 set mot=%sous8%&set /A num=6&set sous8=&goto decompte if defined sous9 set mot=%sous9%&set /A num=7&set sous9=&goto decompte if defined sous10 set mot=%sous10%&set /A num=8&set sous10=&goto decompte if defined sous11 set mot=%sous11%&set /A num=9&set sous11=&goto decompte if defined sous12 set mot=%sous12%&set /A num=10&set sous12=&goto decompte REM sortie de la boucle goto sautdec REM Routine du décompte lettre par lettre :decompte set cmpt=-1 REM on incrémente c set /A c=c+1 :retour set /a cmpt+=1 set otelet=!mot:~%cmpt%,1! if not "%otelet%"=="" goto retour REM Si plus de 8 caractères affichage REM d'un message d'alerte if %cmpt% GTR 8 goto affcara REM retour affich. caractères répertoire :retaff REM si c ne fait pas 12 on boucle if not %c%==12 goto :longdos :sautdec echo. REM variables messages if defined mess set mess=&set cond=oui REM Si aucun message on continue le REM lancement if not defined mess ( REM sauf si cond est defini if defined cond goto afalrep goto modini ) REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM sortie endlocal exit REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Affichage caractères répertoire :affcara set mess=oui echo %nomdos% %num% echo %mot% echo fait %cmpt% caractŠres. echo. goto retaff REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Si le fichier hormaj.ini est intouvable :erreur REM Couleur du fond rouge et texte en jaune color 4e REM Chemin horinfgl.exe SET Horingl=%CD%\%Horingl%\PROG\horinfgl.exe IF not exist %Horingl% goto :pasprog cls title Erreur fichier hormaj.ini introuvable .... echo. echo Suite … une erreur inconnue le programme echo ne peut fonctionner car le fichier hormaj.ini echo est introuvable. echo. echo Causes probables: echo. echo 1/ Assurez-vous que vous lancez ce fichier echo de commande depuis le r‚pertoire principal echo de RIHO et non depuis le r‚pertoire 'PROG' echo ou que vous n'ayez pas renomm‚ le r‚pertoire echo 'PROG'. echo. echo 2/ Le fichier hormaj.ini n'‚xiste pas ou est echo ‚rron‚. echo. echo Dans ce cas voulez-vous recr‚er le fichier echo hormaj.ini ? echo. SET /P Choice= Tapez la touche O(oui) ou N(non) + 'Entr‚e' IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1% IF /I '%Choice%'=='O' GOTO :Reconini IF /I '%Choice%'=='N' goto :Quit cls echo. echo. ECHO. ECHO D‚sol‚ "%Choice%" n'est pas autoris‚. Veuillez recommencer s.v.p. echo. echo. echo. echo. pause SET Choice= GOTO :erreur echo. pause endlocal :Quit exit REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Reconstruction du fichier hormaj.ini :Reconini title R‚‚criture hormaj.ini choix du service .... cls SET Choice= SET Serv= echo. echo. echo. echo. echo Quel service (Hiver/Et‚) voulez-vous inscrire dans echo le fichier hormaj.ini ? echo. SET /P Choice= Tapez la touche H(Hiver) ou E(Et‚) + 'Entr‚e' IF NOT '%Choice%'=='' SET Choice=%Choice:~0,1% IF /I '%Choice%'=='H' SET Serv=HIVER-GL IF /I '%Choice%'=='E' SET Serv=ETE-GL If defined Serv GOTO :recrini cls echo. echo. ECHO. ECHO D‚sol‚ "%Choice%" n'est pas autoris‚. Veuillez recommencer s.v.p. echo. echo. echo. echo. pause SET Choice= GOTO :Reconini :recrini title R‚‚criture du fichier hormaj.ini.... echo. echo. echo R‚‚criture du fichier hormaj.ini echo. echo. echo. echo. echo. echo. echo. echo Veuillez patienter s.v.p. echo. REM réécriture du fichier hormaj.ini Set dospr=%CD%\PROG REM on enleve les 2 premières lettres set dospr=%dospr:~2% Set dosserv=%CD% REM on enleve les 2 premières lettres set dosserv=%dosserv:~2% echo [COMMUN] >> %dospr%\hormaj.ini echo PROGRAMMES=%dospr%>> %dospr%\hormaj.ini echo preambule=0 >> %dospr%\hormaj.ini echo SERVICE=%Serv% >> %dospr%\hormaj.ini echo langue=FRANCAIS >> %dospr%\hormaj.ini echo GROUPE= >> %dospr%\hormaj.ini echo ServeurMAJ= >> %dospr%\hormaj.ini echo VerInstalDate= >> %dospr%\hormaj.ini echo [PREFERENCES] >> %dospr%\hormaj.ini echo code=1 >> %dospr%\hormaj.ini echo correspondances=2 >> %dospr%\hormaj.ini echo heure-deb=0 >> %dospr%\hormaj.ini echo heure-fin=360 >> %dospr%\hormaj.ini echo gare_privilegiee=0 >> %dospr%\hormaj.ini echo [sERVICES] >> %dospr%\hormaj.ini echo HIVER-GL=HIVER PH >> %dospr%\hormaj.ini echo ETE-GL=ETE VE >> %dospr%\hormaj.ini echo GREVE=SERVICE ADAPTE >> %dospr%\hormaj.ini echo [HIVER-GL] >> %dospr%\hormaj.ini echo PATH=%dosserv%\HIVER-GL>> %dospr%\hormaj.ini echo TYPE=COMMUN >> %dospr%\hormaj.ini echo [ETE-GL] >> %dospr%\hormaj.ini echo PATH=%dosserv%\ETE-GL>> %dospr%\hormaj.ini echo TYPE=COMMUN >> %dospr%\hormaj.ini echo [GREVE] >> %dospr%\hormaj.ini echo PATH=%dosserv%\GREVE>> %dospr%\hormaj.ini echo TYPE=COMMUN >> %dospr%\hormaj.ini cd=%cd%\PROG GOTO :lancement REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx REM Affichage du message alarme repertoire REM si un nom répertoire plus de 8 caractères :afalrep REM Couleur du fond rouge et texte en jaune color 4e REM Si plusieurs répertoires set lerep=le r‚pertoire&set ind=indiqu‚&set cet=cette erreur if %num% NEQ 1 set lerep=les r‚pertoires&set ind=indiqu‚s&set cet=ces erreurs REM Titre de la console title Erreur nom de r‚pertoire .... echo Si un nom de r‚pertoire fait plus echo de 8 caractŠres les BITMAPS des echo boutons de commande ne seront pas echo visibles dans RIHO et le programme echo ne fonctionnera pas. echo. echo Il faut r‚nommer %lerep% echo %ind% plus haut sans depasser echo 8 caractŠres maximum pour que echo RIHO fonctionne. echo. echo Suite … %cet% le programme echo doit s'arrˆter. echo. pause endlocal exit REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx :pasprog cls REM Couleur du fond rouge et texte en jaune color 4e cls title Erreur fichier hormaj.ini introuvable .... echo. echo. echo. echo Suite … une erreur inconnue le programme echo ne peut fonctionner car le fichier horinfgl.exe echo est introuvable. echo. echo Causes probables: echo. echo Assurez-vous que vous lancez ce fichier echo de commande depuis le r‚pertoire principal echo de RIHO et non depuis le r‚pertoire 'PROG' echo ou que vous n'ayez pas renomm‚ le r‚pertoire echo 'PROG'. echo. echo. echo. echo. pause exit REM xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx Pour les faineants voici le fichier Lanceur.cmd à télécharger Liens Sur rapidshare seulement pour 6 jours http://rapidshare.co...anceur.cmd.html MD5: A29B23F81CE9869A3F4B609B809A6EAC Ou sur Free (30jours): http://dl.free.fr/ryqp5iDyO