Sin la ayuda de Leo y otros que me han ayudado con sus respuestas no habría podido terminarlo, aunque no es gran cosa seguro que más de uno lo habría acabado en un solo día xD, pero bueno, yo voy aprendiendo de los mejores .
Me gustaría si alguien tiene tiempo se mirase de rehojo mi script, para ver si encuentran algún error, o si se pudiera mejorar (Eliminar variables inservibles, , hacerlo más simple, añadirle algo más, etc... o que se yo xD) Incluso aunque sea cambiarle el nombre xD, Cualquier cosa se agradece!
La verdad es que me ha quedado bastante bien, más o menos como a mi me gusta:
Se que no tiene mérito, porque el DbPowerAmp no lo he echo yo, pero esto me va a ahorrar años de trabajo manual con el PC... xD
Como ya he dicho, aún le faltan las "florituras", cosas que sigo notanco imperfectas en el script,algunas más importantes que otras, así que de paso,para no tener que hacer 70 posts más, os hago algunas pregunas a ver si alguien me contesta... (No hace falta ni decir que ya he buscado información acerca de todo esto, pero...)
3. - ¿Existe alguna barra de progresso que pueda usar con mi script? Es que no me gusta nada que salga el titulo del "dbpoweramp" y su barra de progreso no me gusta tampoco, el programa se puede usar en modo silencioso con el comando "-silent" (Por si sirve de algo...) Tampoco me gusta que me de información sobre el archivo de destino... eso no se podrá ocultar de algún modo, verdad?
GRACIAS A TODOS LOS QUE HAYAN LEIDO HASTA AQUI
El Script:
Código
@echo off Title=Audio Bitrate Changer Mode con cols=20 lines=3 Color 7 Set Centrar=Nircmd win center ititle "Audio Bitrate Changer" Set Num=0 Set Rate=0 :START ) Colous cursoroff Colous writesec "[7] Buscando audios..." & sleep 1 call :FIND_AIF ) call :FIND_FLAC ) call :FIND_M4A ) call :FIND_OGG ) call :FIND_WAV ) call :FIND_WMA ) goto:FIND_MP3 ) goto :END :SEARCH :FIND_AIF cls call :Sizer mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3..... 4..... 5..... 6....." >nul call :AIF ) goto:eof :FIND_FLAC cls call :Sizer mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "2..... 3..... 4..... 5..... 6..... 7..... 8..... 9..... 1...... 2......" >nul call :FLAC ) goto:eof :FIND_M4A cls call :Sizer Call :SIZER_SMALL mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3..... 4..... 5..... 6..... 7..... 8..... 9....." >nul call :M4A ) goto:eof :FIND_OGG cls call :Sizer Call :SIZER_SMALL mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3..... 4..... 5..... 6..... 7..... 8..... 9....." >nul call :OGG ) goto:eof :FIND_WAV cls call :Sizer call :sizer_WAVE mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3..... 4..... 5..... 6..... 7..... 8..... 9..... 1...... 2......" >nul call :WAV ) goto:eof :FIND_WMA cls call :Sizer mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3..... 4..... 5..... 6..... 7....." >nul call :WMA ) goto:eof :FIND_MP3 cls call :Sizer Call :SIZER_SMALL mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3....." >nul call :MP3 ) Goto :END :CONVERT :AIF cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE%" Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]MP3" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]__________________________________________________________________" coreconverter.exe -infile="%nombre:~0,-4%.aif" -outfile="%nombre:~0,-4%.mp3" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :FLAC cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE%" Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]MP3" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]__________________________________________________________________" coreconverter.exe -infile="%nombre:~0,-5%.flac" -outfile="%nombre:~0,-5%.mp3" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :M4A cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE:~0,-5%[7] Kbps" Colous writesec "[7] Bitrate :[14] %RATE:~0,-5%[7] Kbps" ) Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]MP3" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE2%.0 [7]MB (Aprox.)" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" ) Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]__________________________________________________________________" coreconverter.exe -infile="%nombre:~0,-4%.m4a" -outfile="%nombre:~0,-4%.mp3" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :MP3 cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE:~0,-5%[7] Kbps" Colous writesec "[7] Bitrate :[14] %RATE:~0,-5%[7] Kbps" ) Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]N/A" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE2%.0 [7]MB (Aprox.)" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" ) Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]______________________________________________________________________" coreconverter.exe -infile="%nombre%" -outfile="%nombre%" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :OGG cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE:~0,-5%[7] Kbps" Colous writesec "[7] Bitrate :[14] %RATE:~0,-5%[7] Kbps" ) Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]MP3" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE2%.0 [7]MB (Aprox.)" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" ) Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]__________________________________________________________________" coreconverter.exe -infile="%nombre:~0,-4%.ogg" -outfile="%nombre:~0,-4%.mp3" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :WAV cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE%" Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]MP3" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]__________________________________________________________________" coreconverter.exe -infile="%nombre:~0,-4%.wav" -outfile="%nombre:~0,-4%.mp3" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :WMA cls set /a num+=1 Colous writesec "[7]Convirtiendo el audio:" & echo+ Colous writesec "[7] Bitrate :[12] %RATE%" Colous writesec "[7] Tamano :[14] %Size:~0,-4%[7] MB" Colous writesec "[7] Duracion: %Time%" Colous writesec "[8]==================================" Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps" Colous writesec "[7] Nuevo Formato: [2]MP3" Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)" Colous writesec "[7] Preset:[2] Highest quality [7](Slow)" Colous writesec "[8]__________________________________________________________________" coreconverter.exe -infile="%nombre:~0,-4%.wma" -outfile="%nombre:~0,-4%.mp3" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt" Title=Audio Bitrate Changer Call :Error sleep 2 goto:eof ) :SIZER SET /A NEWSIZE/=2 goto:eof :SIZER_WAVE SET /A NEWSIZE/=10 goto:eof :SIZER_SMALL SET /A NEWSIZE2-=2 goto:eof :ERROR · cls color 4 & echo+ Colous writesec "[7] No se ha podido convertir el siguiente audio..." & echo+ tec.exe "%temp%\%nombre%.txt" -de:33 type "%temp%\%nombre%.txt" sleep 1 :WARNING Color 0e colous 15 0 2,02 "No se ha podido convertir el siguiente audio..." & echo+ colous cursoroff sleep 1 Color 0c colous 15 0 2,02 "No se ha podido convertir el siguiente audio..." & echo+ colous cursoroff sleep 1 goto :WARNING ) :END Set /a Num2+=4 cls color 2 & echo+ FART.exe -q %lista% \" --remove type %lista% ) Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps." & sleep 1 & cls & echo+ Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps. [8]3..." & sleep 1 & cls & echo+ Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps. [8]2.." & sleep 1 & cls & echo+ Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps. [8]1." & sleep 1 & cls & echo+ Colous writesec "[7] Bye. [8]0" & sleep 1 )