elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Tutorial básico de Quickjs


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [ Batch ] Preguntas y ayuda para corregir mi script...		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [ Batch ] Preguntas y ayuda para corregir mi script...  (Leído 6,992 veces)
SuperDraco


Desconectado Desconectado

Mensajes: 2.505


Crew Dragon


Ver Perfil
[ Batch ] Preguntas y ayuda para corregir mi script...
« en: 20 Marzo 2011, 12:57 pm »
Hola, ya he acabado mi script, le faltarían 2 cosas que me gustaría añadirle que ahora comentaré, pero eso solo son "florituras" xD, así que lo doy por terminado...

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 :P.

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...)



1. - ¿Como ejecuto mi script correctamente desde el registro? Si, lo que quiero decir es que, me gustaría usarlo pinchando click derecho en una carpeta por ejemplo, con una opcion agregada al registro... de echo YA LO TENGO CONFIGURADO ASÍ, pero, el programa creo que me muestra información en ANSI y no me funciona correctamente por que por ejemplo me busca el archivo "mp3 (lame).dll" pero todo separado, asi: " M P 3  ( L A M E ) " y con renombrar el codec no me ha servido, porque hay un espacio entre las comillas... :(            (Uso Windows 7)



2. - ¿Que puedo hacer mediante el CMD, para saber la longitud de letras que tiene el nombre de un archivo? Pues eso, ese dato me serviria mucho porque hay casos en que el nombre del archivo es demasiado largo y entonces "no entra" en la ventana de mi script, entonces, me gustaría recortar SOLO los nombres que tengan mayor longitud de 70 caracteres, por ejemplo.



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 :P





El Script:


Código
  1. @echo off
  2. Title=Audio Bitrate Changer
  3. Mode con cols=20 lines=3
  4. Color 7
  5.  
  6. Set Centrar=Nircmd win center ititle "Audio Bitrate Changer"
  7. Set Lista=%Temp%\Lista.txt
  8. Set Num=0
  9. Set Rate=0
  10.  
  11.  
  12.  
  13.  
  14.  
  15.  
  16.  
  17.  
  18.  
  19.  
  20. :START
  21. If exist %lista% (
  22. 	Del /q %Lista% >nul 2>&1
  23. )
  24. 	echo+ & %centrar%
  25. 	Colous cursoroff
  26. 	Colous writesec "[7] Buscando audios" & sleep 1 & cls & echo+
  27. 	Colous writesec "[7] Buscando audios." & sleep 1 & cls & echo+
  28. 	Colous writesec "[7] Buscando audios.." & sleep 1 & cls & echo+
  29. 	Colous writesec "[7] Buscando audios..." & sleep 1
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.  
  40.  
  42.  
  43. dir /B *.aif >nul 2>&1
  44. IF %ERRORLEVEL% EQU 0 (
  45. 	call :FIND_AIF
  46. )
  47.  
  48. dir /B *.flac >nul 2>&1
  49. IF %ERRORLEVEL% EQU 0 (
  50. 	call :FIND_FLAC
  51. )
  52.  
  53. dir /B *.m4a >nul 2>&1
  54. IF %ERRORLEVEL% EQU 0 (
  55. 	call :FIND_M4A
  56. )
  57.  
  58. dir /B *.ogg >nul 2>&1
  59. IF %ERRORLEVEL% EQU 0 (
  60. 	call :FIND_OGG
  61. )
  62.  
  63. dir /B *.wav >nul 2>&1
  64. IF %ERRORLEVEL% EQU 0 (
  65. 	call :FIND_WAV
  66. )
  67.  
  68. dir /B *.wma >nul 2>&1
  69. IF %ERRORLEVEL% EQU 0 (
  70. 	call :FIND_WMA
  71. )
  72.  
  73.  
  74. dir /B *.mp3 >nul 2>&1
  75. IF %ERRORLEVEL% EQU 0 (
  76. 	goto:FIND_MP3
  77. )
  78.  
  79. goto :END
  80.  
  81.  
  82.  
  83.  
  84.  
  85.  
  86.  
  87.  
  88.  
  89.  
  90. :SEARCH
  91.  
  92. :FIND_AIF
  93. for /f "tokens=*" %%a in ('dir /B *.aif') do (
  94. 	cls
  95. 	set nombre=%%a
  96. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  97. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  98. 	call :Sizer
  99. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  100. 	mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3..... 4..... 5..... 6....." >nul
  101. 	call :AIF
  102. )
  103. 	goto:eof
  104.  
  105.  
  106. :FIND_FLAC
  107. for /f "tokens=*" %%a in ('dir /B *.flac') do (
  108. 	cls
  109. 	set nombre=%%a
  110. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  111. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  112. 	call :Sizer
  113. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  114. 	mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "2..... 3..... 4..... 5..... 6..... 7..... 8..... 9..... 1...... 2......" >nul
  115. 	call :FLAC
  116. )
  117. 	goto:eof
  118.  
  119.  
  120. :FIND_M4A
  121. for /f "tokens=*" %%a in ('dir /B *.m4a') do (
  122. 	cls
  123. 	set nombre=%%a
  124. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  125. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  126. 	call :Sizer
  127. 	Call :SIZER_SMALL
  128. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  129. 	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
  130. 	call :M4A
  131. )
  132. 	goto:eof
  133.  
  134.  
  135. :FIND_OGG
  136. for /f "tokens=*" %%a in ('dir /B *.ogg') do (
  137. 	cls
  138. 	set nombre=%%a
  139. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  140. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  141. 	call :Sizer
  142. 	Call :SIZER_SMALL
  143. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  144. 	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
  145. 	call :OGG
  146. )
  147. 	goto:eof
  148.  
  149.  
  150. :FIND_WAV
  151. for /f "tokens=*" %%a in ('dir /B *.wav') do (
  152. 	cls
  153. 	set nombre=%%a
  154. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  155. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  156. 	call :Sizer
  157. 	call :sizer_WAVE
  158. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  159. 	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
  160. 	call :WAV
  161. )
  162. 	goto:eof
  163.  
  164.  
  165. :FIND_WMA
  166. for /f "tokens=*" %%a in ('dir /B *.wma') do (
  167. 	cls
  168. 	set nombre=%%a
  169. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  170. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  171. 	call :Sizer
  172. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  173. 	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
  174. 	call :WMA
  175. )
  176. 	goto:eof
  177.  
  178.  
  179. :FIND_MP3
  180. for /f "tokens=*" %%a in ('dir /B *.mp3') do (
  181. 	cls
  182. 	set nombre=%%a
  183. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%BitRate/String%%"') do set "Rate=%%~%%"
  184. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%FileSize/String%%"') do set "Size=%%~%%"
  185. 	call :Sizer
  186. 	Call :SIZER_SMALL
  187. 	for /f "tokens=*" %%%% in ('mediainfo "%%a" "--Inform=General;%%Duration/String%%"') do set "Time=%%~%%"
  188. 	mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "161... 162... 163... 164... 165... 166... 167... 168... 169... 17.... 18.... 19.... 2..... 3....." >nul
  189. 	call :MP3
  190. )
  191. 	Goto :END
  192.  
  193.  
  194.  
  195.  
  196.  
  197.  
  198.  
  199.  
  200.  
  201.  
  202. :CONVERT
  203.  
  204. :AIF
  205. IF %ERRORLEVEL% GEQ 1 goto:eof
  206. IF %ERRORLEVEL% EQU 0 (
  207. 	title="Convirtiendo: %nombre%"
  208. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  209. 	cls
  210. 	set /a num+=1
  211. 	echo+ "%nombre%">> %lista% & echo+
  212. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  213. 	Colous writesec "[8] %nombre%" & echo+
  214. 	Colous writesec "[7] Bitrate :[12] %RATE%"
  215. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  216. 	Colous writesec "[7] Duracion: %Time%"
  217. 	Colous writesec "[8]==================================" 
  218. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  219. 	Colous writesec "[7] Nuevo Formato: [2]MP3"
  220. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  221. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  222. 	Colous writesec "[8]__________________________________________________________________"
  223. 	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"
  224. 	Title=Audio Bitrate Changer	
  225. 	find /v "error" "%temp%\%nombre%.txt" >nul
  226. 	Call :Error
  227. 	del /q "%temp%\%nombre%.txt"
  228. 	del /q "%nombre%"
  229. 	sleep 2
  230. 	goto:eof
  231. )
  232.  
  233.  
  234.  
  235. :FLAC
  236. IF %ERRORLEVEL% GEQ 1 goto:eof
  237. IF %ERRORLEVEL% EQU 0 (
  238. 	title="Convirtiendo: %nombre%"
  239. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  240. 	cls
  241. 	set /a num+=1
  242. 	echo+ "%nombre%">> %lista% & echo+
  243. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  244. 	Colous writesec "[8] %nombre%" & echo+
  245. 	Colous writesec "[7] Bitrate :[12] %RATE%"
  246. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  247. 	Colous writesec "[7] Duracion: %Time%"
  248. 	Colous writesec "[8]==================================" 
  249. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  250. 	Colous writesec "[7] Nuevo Formato: [2]MP3"
  251. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  252. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  253. 	Colous writesec "[8]__________________________________________________________________"
  254. 	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"
  255. 	Title=Audio Bitrate Changer	
  256. 	find /v "error" "%temp%\%nombre%.txt" >nul
  257. 	Call :Error
  258. 	del /q "%temp%\%nombre%.txt"
  259. 	del /q "%nombre%"
  260. 	sleep 2
  261. 	goto:eof
  262. )
  263.  
  264. :M4A
  265. IF %ERRORLEVEL% GEQ 1 goto:eof
  266. IF %ERRORLEVEL% EQU 0 (
  267. 	title="Convirtiendo: %nombre%"
  268. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  269. 	cls
  270. 	set /a num+=1
  271. 	echo+ "%nombre%">> %lista% & echo+
  272. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  273. 	Colous writesec "[8] %nombre%" & echo+
  274. IF %RATE:~0,-5% GEQ 193 (
  275. 	Colous writesec "[7] Bitrate :[12] %RATE:~0,-5%[7] Kbps"
  276. ) ELSE ( 
  277. 	Colous writesec "[7] Bitrate :[14] %RATE:~0,-5%[7] Kbps"
  278. )
  279. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  280. 	Colous writesec "[7] Duracion: %Time%"
  281. 	Colous writesec "[8]==================================" 
  282. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  283. 	Colous writesec "[7] Nuevo Formato: [2]MP3"
  284. IF %RATE:~0,-5% LEQ 192 (
  285. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE2%.0 [7]MB (Aprox.)"
  286. ) ELSE ( 
  287. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  288. )
  289. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  290. 	Colous writesec "[8]__________________________________________________________________"
  291. 	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"
  292. 	Title=Audio Bitrate Changer
  293. 	find /v "error" "%temp%\%nombre%.txt" >nul
  294. 	Call :Error
  295. 	del /q "%temp%\%nombre%.txt"
  296. 	del /q "%nombre%"
  297. 	sleep 2
  298. 	goto:eof
  299. )
  300.  
  301. :MP3
  302.  
  303. IF %ERRORLEVEL% GEQ 1 goto:eof
  304. IF %ERRORLEVEL% EQU 0 (
  305. 	title="Convirtiendo: %nombre%"
  306. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  307. 	cls
  308. 	set /a num+=1
  309. 	echo+ "%nombre%">> %lista% & echo+
  310. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  311. 	Colous writesec "[8] %nombre%" & echo+
  312. IF %RATE:~0,-5% GEQ 193 (
  313. 	Colous writesec "[7] Bitrate :[12] %RATE:~0,-5%[7] Kbps"
  314. ) ELSE ( 
  315. 	Colous writesec "[7] Bitrate :[14] %RATE:~0,-5%[7] Kbps"
  316. )
  317. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  318. 	Colous writesec "[7] Duracion: %Time%"
  319. 	Colous writesec "[8]==================================" 
  320. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  321. 	Colous writesec "[7] Nuevo Formato: [2]N/A"
  322. IF %RATE:~0,-5% LEQ 192 (
  323. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE2%.0 [7]MB (Aprox.)"
  324. ) ELSE ( 
  325. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  326. )
  327. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  328. 	Colous writesec "[8]______________________________________________________________________"
  329. 	coreconverter.exe -infile="%nombre%" -outfile="%nombre%" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt"
  330. 	Title=Audio Bitrate Changer
  331. 	find /v "error" "%temp%\%nombre%.txt" >nul
  332. 	Call :Error
  333. 	del /q "%temp%\%nombre%.txt"
  334. 	sleep 2
  335. 	goto:eof
  336. )
  337.  
  338. :OGG
  339. IF %ERRORLEVEL% GEQ 1 goto:eof
  340. IF %ERRORLEVEL% EQU 0 (
  341. 	title="Convirtiendo: %nombre%"
  342. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  343. 	cls
  344. 	set /a num+=1
  345. 	echo+ "%nombre%">> %lista% & echo+
  346. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  347. 	Colous writesec "[8] %nombre%" & echo+
  348. IF %RATE:~0,-5% GEQ 193 (
  349. 	Colous writesec "[7] Bitrate :[12] %RATE:~0,-5%[7] Kbps"
  350. ) ELSE ( 
  351. 	Colous writesec "[7] Bitrate :[14] %RATE:~0,-5%[7] Kbps"
  352. )
  353. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  354. 	Colous writesec "[7] Duracion: %Time%"
  355. 	Colous writesec "[8]==================================" 
  356. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  357. 	Colous writesec "[7] Nuevo Formato: [2]MP3"
  358. IF %RATE:~0,-5% LEQ 192 (
  359. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE2%.0 [7]MB (Aprox.)"
  360. ) ELSE ( 
  361. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  362. )
  363. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  364. 	Colous writesec "[8]__________________________________________________________________"
  365. 	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"
  366. 	Title=Audio Bitrate Changer
  367. 	find /v "error" "%temp%\%nombre%.txt" >nul
  368. 	Call :Error
  369. 	del /q "%temp%\%nombre%.txt"
  370. 	del /q "%nombre%"
  371. 	sleep 2
  372. 	goto:eof
  373. )
  374.  
  375. :WAV
  376. IF %ERRORLEVEL% GEQ 1 goto:eof
  377. IF %ERRORLEVEL% EQU 0 (
  378. 	title="Convirtiendo: %nombre%"
  379. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  380. 	cls
  381. 	set /a num+=1
  382. 	echo+ "%nombre%">> %lista% & echo+
  383. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  384. 	Colous writesec "[8] %nombre%" & echo+
  385. 	Colous writesec "[7] Bitrate :[12] %RATE%"
  386. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  387. 	Colous writesec "[7] Duracion: %Time%"
  388. 	Colous writesec "[8]==================================" 
  389. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  390. 	Colous writesec "[7] Nuevo Formato: [2]MP3"
  391. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  392. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  393. 	Colous writesec "[8]__________________________________________________________________"
  394. 	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"
  395. 	Title=Audio Bitrate Changer
  396. 	find /v "error" "%temp%\%nombre%.txt" >nul
  397. 	Call :Error
  398. 	del /q "%temp%\%nombre%.txt"
  399. 	del /q "%nombre%"
  400. 	sleep 2
  401. 	goto:eof
  402. )
  403.  
  404. :WMA
  405. IF %ERRORLEVEL% GEQ 1 goto:eof
  406. IF %ERRORLEVEL% EQU 0 (
  407. 	title="Convirtiendo: %nombre%"
  408. 	Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
  409. 	cls
  410. 	set /a num+=1
  411. 	echo+ "%nombre%">> %lista% & echo+
  412. 	Colous writesec "[7]Convirtiendo el audio:" & echo+
  413. 	Colous writesec "[8] %nombre%" & echo+
  414. 	Colous writesec "[7] Bitrate :[12] %RATE%"
  415. 	Colous writesec "[7] Tamano  :[14] %Size:~0,-4%[7] MB"
  416. 	Colous writesec "[7] Duracion: %Time%"
  417. 	Colous writesec "[8]==================================" 
  418. 	Colous writesec "[7] Nuevo Bitrate: [2]160 [7]Kbps"
  419. 	Colous writesec "[7] Nuevo Formato: [2]MP3"
  420. 	Colous writesec "[7] Nuevo Tamano : [2]%NEWSIZE%.0 [7]MB (Aprox.)"
  421. 	Colous writesec "[7] Preset:[2] Highest quality [7](Slow)"
  422. 	Colous writesec "[8]__________________________________________________________________"
  423. 	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"
  424. 	Title=Audio Bitrate Changer
  425. 	find /v "error" "%temp%\%nombre%.txt" >nul
  426. 	Call :Error
  427. 	del /q "%temp%\%nombre%.txt"
  428. 	del /q "%nombre%"
  429. 	sleep 2
  430. 	goto:eof
  431. )
  432.  
  433.  
  434.  
  435.  
  436.  
  437.  
  438.  
  439.  
  440.  
  441.  
  442. :SIZER
  443. 	SET NEWSIZE=%Size:~0,-4%
  444. 	SET /A NEWSIZE/=2
  445. 	goto:eof
  446.  
  447. :SIZER_WAVE
  448. 	SET NEWSIZE=%Size:~0,-4%
  449. 	SET /A NEWSIZE/=10
  450. 	goto:eof
  451.  
  452. :SIZER_SMALL
  453. 	SET NEWSIZE2=%Size:~0,-4%
  454. 	SET /A NEWSIZE2-=2
  455. 	goto:eof
  456.  
  457.  
  458.  
  459.  
  460.  
  461.  
  462.  
  463.  
  464.  
  465.  
  466. :ERROR
  467. IF %ERRORLEVEL% GEQ 1 goto:eof
  468. IF %ERRORLEVEL% EQU 0 (
  469. 	·
  470. 	cls
  471. 	mode con cols=58 lines=8 & %Centrar%
  472. 	color 4 & echo+
  473. 	Colous writesec "[7] No se ha podido convertir el siguiente audio..." & echo+
  474. 	Colous writesec "[12] %nombre%" & echo+
  475. 	tec.exe "%temp%\%nombre%.txt" -de:33
  476. 	type "%temp%\%nombre%.txt"
  477. 	del /q "%temp%\%nombre%.txt"
  478. 	sleep 1
  479.  
  480. :WARNING
  481. 	Color 0e
  482. 	colous 15 0 2,02 "No se ha podido convertir el siguiente audio..." & echo+
  483. 	colous 12 0 2,04 "%nombre%" & echo+
  484. 	colous cursoroff
  485. 	sleep 1
  486.  
  487. 	Color 0c
  488. 	colous 15 0 2,02 "No se ha podido convertir el siguiente audio..." & echo+
  489. 	colous 12 0 2,04 "%nombre%" & echo+
  490. 	colous cursoroff
  491. 	sleep 1
  492. 	goto :WARNING
  493. )
  494.  
  495.  
  496.  
  497.  
  498.  
  499.  
  500.  
  501.  
  502.  
  503.  
  504. :END
  505. 	set Num2=%num%
  506. 	Set /a Num2+=4
  507.  
  508. If exist %lista% (
  509. 	cls
  510. 	mode con lines=%num2% & %Centrar%
  511. 	color 2 & echo+
  512. 	Colous writesec "[7] Se han convertido correctamente [2]%num%[7] audios..." & echo+
  513. 	FART.exe -q %lista% \" --remove
  514. 	type %lista%
  515. 	del /q %lista%
  518. )
  519.  
  520. If not exist %lista% (
  521. 	mode con lines=3 cols=65 & %centrar% & echo+
  522. 	Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps."           & sleep 1 & cls & echo+
  523. 	Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps.  [8]3..." & sleep 1 & cls & echo+
  524. 	Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps.  [8]2.." & sleep 1 & cls & echo+
  525. 	Colous writesec "[7] No se ha encontrado ningun audio superior a +160 kbps.  [8]1." & sleep 1 & cls & echo+
  526. 	Colous writesec "[7] Bye.                                                    [8]0" & sleep 1
  528. )
« Última modificación: 22 Marzo 2011, 16:03 pm por pitoloko » En línea
No he vuelto, solo estoy de paso.
Edu


Desconectado Desconectado

Mensajes: 1.082


Ex XXX-ZERO-XXX


Ver Perfil
Re: [ Batch ] Preguntas y ayuda para corregir mi script...
« Respuesta #1 en: 20 Marzo 2011, 15:01 pm »
Veo q tiene parte de codigo q solo cambia la extensión por ejemplo.

Código:
:WAV
IF %ERRORLEVEL% GEQ 1 goto:eof
IF %ERRORLEVEL% EQU 0 (
title="Convirtiendo: %nombre%"
Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
cls
set /a num+=1
echo+ "%nombre%">> %lista% & echo+
Colous writesec "[7]Convirtiendo el audio:" & echo+
Colous writesec "[8] %nombre%" & 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
find /v "error" "%temp%\%nombre%.txt" >nul
Call :Error
del /q "%temp%\%nombre%.txt"
del /q "%nombre%"
sleep 2
goto:eof
)

 
Código:
:WMA
IF %ERRORLEVEL% GEQ 1 goto:eof
IF %ERRORLEVEL% EQU 0 (
title="Convirtiendo: %nombre%"
Mode con cols=70 lines=28 & Nircmd win center ititle "Convirtiendo: %nombre%"
cls
set /a num+=1
echo+ "%nombre%">> %lista% & echo+
Colous writesec "[7]Convirtiendo el audio:" & echo+
Colous writesec "[8] %nombre%" & 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
find /v "error" "%temp%\%nombre%.txt" >nul
Call :Error
del /q "%temp%\%nombre%.txt"
del /q "%nombre%"
sleep 2
goto:eof
)

No se si no se puede hacer todo en uno con algun for, o una llamada con parametros, si es q se puede en batch
En línea
SuperDraco


Desconectado Desconectado

Mensajes: 2.505


Crew Dragon


Ver Perfil
Re: [ Batch ] Preguntas y ayuda para corregir mi script...
« Respuesta #2 en: 20 Marzo 2011, 17:01 pm »
MmM Tienes razón Zero, aunq no se me ocurre ahora como, tengo q pensarlo xD malditos FOR


PD: He solucionado la duda número 1, bastaba con copiar el codec a la carpeta "syswow64" -.- Windows de mier... -.- ...Uf, menos mal que lo he solucionado, porque sino mi script no me habría servido para nada...

PD2: Si alguien quiere todo lo necesario para correr el script, que lo pida, que con la clave de registro que le he echo mola muchisimo, pinchas en una carpeta, o dentro del directorio, y todos los .AIF .FLAC .M4A .MP3 .OGG .WAV .WMA mayores de 160 kbps los recomprime a mp3 160 kbps! (Y sin Idtag)

Seguiré testeandolo...

Saludos!
En línea
No he vuelto, solo estoy de paso.
SuperDraco


Desconectado Desconectado

Mensajes: 2.505


Crew Dragon


Ver Perfil
Re: [ Batch ] Preguntas y ayuda para corregir mi script...
« Respuesta #3 en: 22 Marzo 2011, 16:04 pm »
He autosolucionado mi duda número 2 xD


Código
  1. :Rename_Wave
  2. ECHO "%nombre:~0,59%" | FIND /C ".wav" >nul
  3. IF %ERRORLEVEL% EQU 1 echo+ "%nombre:~0,59%... .wav">> %lista% & goto:eof
  4. IF %ERRORLEVEL% EQU 0 echo+ "%nombre%">> %lista% & goto:eof
En línea
No he vuelto, solo estoy de paso.
SuperDraco


Desconectado Desconectado

Mensajes: 2.505


Crew Dragon


Ver Perfil
Re: [ Batch ] Preguntas y ayuda para corregir mi script...
« Respuesta #4 en: 22 Marzo 2011, 19:40 pm »


Ale! Si alguien quiere ayudarme a testear el batch, aqui lo cuelgo...(Click en la imagen)


(Debe funcionar en x64 y x86)



Adjunto este fichero que sirve para desinstalar el programa (Claves de registro y todo).





Bueno, el programa es un ejecutable de winrar, al instalarlo se crea una carpeta en "c:\Archivos de programa\Pitoloko software\Audio bitrate changer"

Y solo tenemos que pinchar click derecho en una carpeta, o adentro de un directorio, y saldrá esta bonita opción:



No hay que preocuparse por nada más xD.



Le he añadido una función para recortar nombres largos (jaja, ya hablo como un programador xD  :laugh:), Ahora, queda mejor visto:








PD1: Hasta ahora solo he encontrado un fallo y no se arreglarlo, se trata de nombres que contengan el caracter [ o ], no se muestra correctamente el nombre en el programa, pero si que se convierte bien a .mp3 160kbps. con el resto de caracteres como : ()/&-%!+_,. Funciona correctamente.

PD2: Los archivos de audio en .mp3 mayores de 160 kbps serán automaticamente reemplazados por los nuevos convertidos en 160 kbps, y cualquier otro de los formatos: AIF, FLAC, M4A, OGG, WAV O WMA mayores de 160 kbps se borran y se reemplazan por .mp3 160 kbps. Lo digo para quien quiera probar sin perder los archivos originales, que haga una copia de esa carpeta.

PD3: No hace falta instalar ningún codec, ya viene en el programa.

PD4:los ejecutables se copian tanto a la carpeta que he comentado al principio, como a la de system32/64 , para quien quiera probarlas mejor y eso...
En línea
No he vuelto, solo estoy de paso.
bolivianito

Desconectado Desconectado

Mensajes: 41



Ver Perfil
Re: [ Batch ] Preguntas y ayuda para corregir mi script...
« Respuesta #5 en: 23 Marzo 2011, 18:50 pm »
me gusta che como está quedando...
veo que sigues dandole al colous jaja :)
En línea
SuperDraco


Desconectado Desconectado

Mensajes: 2.505


Crew Dragon


Ver Perfil
Re: [ Batch ] Preguntas y ayuda para corregir mi script...
« Respuesta #6 en: 24 Marzo 2011, 15:57 pm »
Cita de: bolivianito en 23 Marzo 2011, 18:50 pm
me gusta che como está quedando...
veo que sigues dandole al colous jaja :)

Gracias xD, como no! Gran utilidad que dscubrí gracias a ti!

Saludos!
En línea
No he vuelto, solo estoy de paso.
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[BATCH][Ayuda]con script para sabe el nombre de un archivo...
Scripting 		FranciskoAsdf 2 4,462 Último mensaje 11 Mayo 2009, 03:42 am
por FranciskoAsdf
[Ruby] Me ayudan a corregir este script?
Scripting 		Eleкtro 4 3,407 Último mensaje 23 Febrero 2012, 10:20 am
por Eleкtro
Ayuda para corregir error visual redrawing effect en mi form « 1 2 »
.NET (C#, VB.NET, ASP) 		Eleкtro 11 6,842 Último mensaje 24 Noviembre 2012, 19:31 pm
por Eleкtro
[BATCH] Necessito ayuda URGENTE ! SCRIPT BATCH !!
Scripting 		wescker 0 2,228 Último mensaje 26 Noviembre 2016, 19:41 pm
por wescker
[BATCH-SCRIPT] Necesitaria Ayuda en script en batch .
Scripting 		PaKun 1 2,656 Último mensaje 1 Mayo 2019, 00:18 am
por **Aincrad**
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines