DosTips.com

Code: Select all

@echo off
Title Capitalize The First Letter Of The Word by Hackoo 2020
Set Str="meat loaf_i would do anything for love but i won't do that.Mp3"^
#"meat loaf_it's all coming back.mp3"^
#"meat loaf_objects in the rear view mirror may appear closer.MP3"^
#"MEAT LOAF - IS NOTHING SACRED.mp3"^
#"mike oldfield - moonlight shadow.mp3"^
#"3 moody blues_i know you're out there somewhere.mp3"^
#"nick drake - northern sky.mp3"^
#"procol harum_A WHITER SHADE OF PALE.mp3"

@For /f "tokens=1-8 delims=#" %%a in ("%str%") do (
	echo %%~a
	echo %%~b
	echo %%~c
	echo %%~d
	echo %%~e
	echo %%~f
	echo %%~g
	echo %%~h
	echo(
	Pause
	echo(
	Call :Upcase_First_Letter "%%~a"
	Call :Upcase_First_Letter "%%~b"
	Call :Upcase_First_Letter "%%~c"
	Call :Upcase_First_Letter "%%~d"
	Call :Upcase_First_Letter "%%~e"
	Call :Upcase_First_Letter "%%~f"
	Call :Upcase_First_Letter "%%~g"
	Call :Upcase_First_Letter "%%~h"
)

pause
Exit
::------------------------------------------------------------------
:Upcase_First_Letter
(
	echo wscript.echo UpFirstLetter("%~1"^)
	echo Function UpFirstLetter(str^)
	echo	ArrStr = Split(str,chr(32^)^)
	echo	For i=LBound(ArrStr^) To UBound(ArrStr^)
	echo		O = O ^& Ucase(Left(ArrStr(i^),1^)^) ^& LCase(Right(ArrStr(i^),Len(ArrStr(i^)^)-1^)^) ^& chr(32^) 
	echo 	Next
	echo 	UpFirstLetter = Trim(O^)
	echo  End Function
)>"%tmp%\%~n0.vbs"
cscript //nologo "%tmp%\%~n0.vbs" "%~1" 
If Exist "%tmp%\%~n0.vbs" Del "%tmp%\%~n0.vbs"
Exit /B
::------------------------------------------------------------------

Code: Select all

jren "([a-zA-Z])([a-zA-Z']*)" "uc($1)+lc($2)" /j
jren "\.[^.]+$" "lc($0)" /j