Discussion :

[jujudeo]

Bonjour,

J'aimerai modifier des noms de dossiers (nom de commune) de majuscule en minuscule en gardant la première lettre en majuscule de chaque mot.

Ex: MONT en Mont
LIT ET MIX en Lit Et Mix

J'ai réussi a trouver ce code (qui n'est pas optimal je pense) qui me transforme tout en minuscule...

Code Batch :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
for /f "delims=" %%i in ('dir /a:d /b') do set VrNamRep=%%i& call :majMin 
goto finmajMin 
 
:majMin 
set VrNamRep2=%VrNamRep:A=a%
set VrNamRep3=%VrNamRep2:B=b%
set VrNamRep4=%VrNamRep3:C=c%
set VrNamRep5=%VrNamRep4:D=d%
set VrNamRep6=%VrNamRep5:E=e%
set VrNamRep7=%VrNamRep6:F=f%
set VrNamRep8=%VrNamRep7:G=g%
set VrNamRep9=%VrNamRep8:H=h%
set VrNamRep10=%VrNamRep9:I=i%
set VrNamRep11=%VrNamRep10:J=j%
set VrNamRep12=%VrNamRep11:K=k%
set VrNamRep13=%VrNamRep12:L=l%
set VrNamRep14=%VrNamRep13:M=m%
set VrNamRep15=%VrNamRep14:N=n%
set VrNamRep16=%VrNamRep15:O=o%
set VrNamRep17=%VrNamRep16:P=p%
set VrNamRep18=%VrNamRep17:Q=q%
set VrNamRep19=%VrNamRep18:R=r%
set VrNamRep20=%VrNamRep19:S=s%
set VrNamRep21=%VrNamRep20:T=t%
set VrNamRep22=%VrNamRep21:U=u%
set VrNamRep23=%VrNamRep22:V=v%
set VrNamRep24=%VrNamRep23:W=w%
set VrNamRep25=%VrNamRep24:X=x%
set VrNamRep26=%VrNamRep25:Y=y%
set VrNamRep27=%VrNamRep26:Z=z%
 
ren "%VrNamRep%" "%VrNamRep27%"
 
goto :eof
 
:finmajMin

Je recherche donc à savoir ce que je dois modifier pour avoir la lettre de chaque mot en majuscule.

Je vous remercie par avance

Jujudeo

[hackoofr]

Voici une solution en passant par un vbscript : UP1Letter.bat

Code BAT :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
@echo off
Title Modification nom dossier de Majuscule en Minuscule
SetLocal EnableDelayedExpansion
for /f "delims=" %%i in ('dir /a:d /b') do set "VrNamRep=%%i" & Call :Maj_Letter "!VrNamRep!"
pause
Exit
::------------------------------------------------------------------
:Maj_Letter
(
    echo wscript.echo UpFirstLetter("%~1"^)
    echo Function UpFirstLetter(str^)
    echo    str = Ucase(Left(str,1^)^) ^& LCase(Right(str,Len(str^)-1^)^)
    echo    UpFirstLetter = str
    echo End Function
)>"%tmp%\%~n0.vbs"
cscript //nologo "%tmp%\%~n0.vbs" "%~1" 
If Exist "%tmp%\%~n0.vbs" Del "%tmp%\%~n0.vbs"
Exit /B
::------------------------------------------------------------------

[barnabe0057]

Bonjour,

Voilà une solution en batch pur :

Code Batch :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
@echo off
setlocal enableextensions enabledelayedexpansion
chcp 28591 >nul
 
for /f "delims=" %%i in ('dir /ad /b') do call :majMin "%%~dpni"
 
echo. & pause
exit 
 
 
:majMin
 
set VrNamRep=%~n1
set chaine=!VrNamRep:~1!
 
for %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
 
	for %%B in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
 
		if /i "%%A"=="%%B" (set chaine=!chaine:%%A=%%B!)
 
	)
)
 
echo. & echo.###!VrNamRep!
 
ren %1 "!VrNamRep:~0,1!!chaine!"
 
goto :eof

[ericlm128]

en gardant la première lettre en majuscule de chaque mot

Avez vous bien intégré cette demande (en gras) exprimée dans le besoin initiale ?
Il ne me semble pas.

[jujudeo]

Bonjour,

Voilà une solution en batch pur :

Code Batch :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
@echo off
setlocal enableextensions enabledelayedexpansion
chcp 28591 >nul
 
for /f "delims=" %%i in ('dir /ad /b') do call :majMin "%%~dpni"
 
echo. & pause
exit 
 
 
:majMin
 
set VrNamRep=%~n1
set chaine=!VrNamRep:~1!
 
for %%A in (A B C D E F G H I J K L M N O P Q R S T U V W X Y Z) do (
 
	for %%B in (a b c d e f g h i j k l m n o p q r s t u v w x y z) do (
 
		if /i "%%A"=="%%B" (set chaine=!chaine:%%A=%%B!)
 
	)
)
 
echo. & echo.###!VrNamRep!
 
ren %1 "!VrNamRep:~0,1!!chaine!"
 
goto :eof

Bonjour,

ce code me correspond mieux car il est plus amélioré que le mien.

Cependant, il ne met pas la première lettre en MAJUSCULE de chaque mot.

Dans l'attente de votre réponse.

Jujudeo

[hackoofr]

Bonjour,
Cependant, il ne met pas la première lettre en MAJUSCULE de chaque mot.
Dans l'attente de votre réponse.
Jujudeo

Déjà répondu plus haut

[jujudeo]

Déjà répondu plus haut

Je m'excuse, il marche, mais il ne met pas la premiere lettre en majuscule...