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

 

 


Tema destacado: Recuerda que debes registrarte en el foro para poder participar (preguntar y responder)


  Mostrar Temas
Páginas: 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
151  Programación / Scripting / (SOLUCIONADO) [ BATCH ] Duda general SET y FOR en: 21 Marzo 2011, 15:42 pm
Aún no me aclaro del todo con el CMD :/

Tengo una pequeña duda

Si tengo una lista así...

C:\>type c:\lista.txt

213.149.245.116:27015
93.189.35.160:27015
213.149.245.112:27050
93.189.35.172:27015
213.149.245.85:27015



Y tengo un código así...

Código
  1. @ECHO OFF
  2.  
  3. for /f %%a in ('type c:\lista.txt .') do (
  4. 	set ip=%%a
  5. 	echo %ip%
  6. )
  7.  
  8. echo %ip%
  9.  

Mi pregunta es, porque el "echo %ip%" dentro del for no funciona, y el segundo "echo %ip%" si que me funciona?

saludos
152  Programación / Scripting / [ 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. )
153  Programación / Scripting / [ Batch ] Barra de progreso en batch... ¿Como? en: 19 Marzo 2011, 18:30 pm
Hola... se que soy un pesado xDDD pero ya me gustaría saber tanto como vosotros, así no molestaría :P, en fin, como siempre vuelvo a necesitar ayuda con mis cosas...

Hace dos dias empezé a buscar "progress bar" para el cmd, y la que más me agustado ha sido esta:

http://sigg3.net/blogger/progbar_sub.rar



El caso es que me gustaría meterla en mi script, en el espacio grande que queda en esta ventanita, miren:



Ahora viene lo malo... NO SE COMO HACERLO XD... Bueno, más o menos he conseguido algo, la barra de progreso dice el autor que hay que llamarla con un "Call", así que yo hago eso... pero al ejecutarse el "call", la barra de progreso TAPA todo lo que hay en la imagen de mi script, osea, sale arriba, no abajo.

He intentado modificar el script del autor, poniendole muchos "echo+" a ver si así aparecía un poco más abajo en mi script, pero no ha dado resultados... Así que a ver si alguien sabe la solución :/

Esta es la parte de mi script en donde quiero meter la barra:


Código
  1. :MP3
  2. IF %ERRORLEVEL% GEQ 1 goto:eof
  3. IF %ERRORLEVEL% EQU 0 (
  4. 	cls
  5. 	set /a num+=1
  6. 	echo+ "%nombre%">> %lista% & echo+
  7. 	Colous writesec "[7]Convirtiendo el archivo:" & echo+
  8. 	Colous writesec "[8] %nombre%" & echo+
  9. 	Colous writesec "[7] Bitrate :[14] %RATE:~0,-5% [7]Kbps"
  10. 	Colous writesec "[7] Tamano  : %Size:~0,-4% MB"
  11. 	Colous writesec "[7] Duracion: %Time%"
  12. 	Colous writesec "[8]=================================" 
  13. 	Colous writesec "[7] Nuevo Bitrate: [2]CBR 160 Kbps    [8]|"
  14. 	Colous writesec "[7] Nuevo Formato: [2]MP3             [8]|"
  15. 	Colous writesec "[7] Preset:[2] Highest quality (Slow) [8]|"
  16. 	Colous writesec "[8]__________________________________________________________"
  17. 	Call :Barloop
  18. (AQUI IRIA LA BARRA DE PROGRESO PARA USARSE CON ESTE COMANDO >> ) coreconverter.exe -silent -infile="%nombre%" -outfile="%nombre%" -convert_to="mp3 (Lame)" -b 160 --cbr -encoding="SLOW" -q 0 -noidtag -priority="low" -errorfile="%temp%\%nombre%.txt"
  19. 	find /v "error" "%temp%\%nombre%.txt" >nul
  20. 	Call :Error
  21. 	del /q "%temp%\%nombre%.txt"
  22. 	sleep 2
  23. 	goto:eof
  24. )


Y aquí el script de la barra (Bueno, uno de varios que hay en el link que puse más arriba):
Código
  1. :barloop
  2. set "_cooline=Current progress:"
  3. If not defined _pr set _pr=0
  4. If [%2] EQU [] goto :barloop_chk_defpr
  5. set /a _pr=_pr+%2
  6. :barloop_chk_defpr
  7. If [%3] EQU [] goto :barloop_progbar
  8. set _pr=%3
  9. :barloop_progbar
  10. cls&echo %_cooline%&echo.
  11. IF %_pr% EQU 0 (echo [                              ]  0%%
  12. 	) ELSE (
  13. 	IF %_pr% EQU 1 (echo [==^>                           ] 10%%
  14. 		) ELSE (
  15. 		IF %_pr% EQU 2 (echo [=====^>                        ] 20%%
  16. 			) ELSE (
  17. 			IF %_pr% EQU 3 (echo [========^>                     ] 30%%
  18. 				) ELSE (
  19. 				IF %_pr% EQU 4 (echo [===========^>                  ] 40%%
  20. 					) ELSE (
  21. 					IF %_pr% EQU 5 (echo [==============^>               ] 50%%
  22. 						) ELSE (
  23. 						IF %_pr% EQU 6 (echo [=================^>            ] 60%%
  24. 							) ELSE (
  25. 							IF %_pr% EQU 7 (echo [====================^>         ] 70%%
  26. 								) ELSE (
  27. 								IF %_pr% EQU 8 (echo [=======================^>      ] 80%%
  28. 									) ELSE (
  29. 									IF %_pr% EQU 9 (echo [==========================^>   ] 90%%
  30. 										) ELSE (
  31. 											echo [==============================] 100%%
  32. 										)
  33. 									)
  34. 								)
  35. 							)
  36. 						)
  37. 					)
  38. 				)
  39. 			)
  40. 		)
  41. 	)
  42. )
  43. echo.&set /a _pr=_pr+1
  44. goto %1
  45. echo ERROR: _returnto param wrong or undefined!&PAUSE
  46. REM ## End of THE PROGRESS BAR SUBROUTINE ##
154  Programación / Scripting / (SOLUCIONADO) [ Batch] Duda ¿Como ver un texto ANSI correctamente en el CMD? en: 19 Marzo 2011, 13:20 pm
Pues eso, un programa me genera un texto ANSI (Bueno, no se mucho de esto, pero el programa dice que es ANSI...) y dentro del texto pone:

Error decoding mp3 data steam, is corrupt?


Pero si ejecuto el comando "Type archivo.txt" se me muestra así:

E r r o r   d e c o d i n g   m p 3   d a t a   s t e a m ,  i s  c o r r u p t ?


¿Que raro, no? xD yo supongo que es por eso del ANSI vaya...

Que conste que he buscado información, pero "type" no tiene ninguna opción para esto... y comandos como "cmd /a" "cmd /U" no me han servido...


EDITO:

UF!! Maldito ANSI... ahora tengo un nuevo problema, he agregado una clave de registro en el menú del ratón, la he asignado a este comando:

Código:
cmd.exe /C SET D=%1&&"C:\Windows\System32\Bitrate Changer.bat"

Bien, ahora pincho click derecho en cualquier carpeta d emi pc, le doy a la opcion que he creado, y cuando se ejecuta el script, me muestra este mensaje de error:

E r r o r :   U n a b l e   t o   l o a d   e n c o d e r
 ' L A M E ' .     [ d B C o r e C o n v e r t e r : : d
  C o r e C o n v e r t e r ]

Se me muestra todo con espacios!!!!!!!!!! Y el error estoy seguro que es por eso, porque busca LAME con espacios, y debe estar SIN espacios... comos e arregla esta cosa del ansi???
Porque si lo ejecuto normal si que me funciona...


Por si sirve de algo... lo que intento ejecutar desde el registro (Me refiero a que he creado una opción en el menú del raton al hacer click en un directorio...) es esto:

Código
  1. @echo off
  2.  
  3. CD "%D%"
  4.  
  5. for /f "tokens=*" %%a in ('dir /B *.mp3') do (
  6. 	cls
  7. 	set nombre=%%a
  8. 	mediainfo "%%a" "--Inform=General;%%BitRate%%" | findstr "3....." >nul
  9. 	call :MP3
  10. )
  11.  
  12.  
  13.  
  14. :MP3
  15. IF %ERRORLEVEL% GEQ 1 goto:eof
  16. IF %ERRORLEVEL% EQU 0 (
  17. 	cls
  18. 	set /a num+=1
  19. 	echo+ "%nombre%">> %lista% & echo+
  20. 	Colous writesec "[7]Convirtiendo el archivo:" & echo+
  21. 	Colous writesec "[14] %nombre%" & echo+
  22. 	Colous writesec "[7] Formato: [14]MP3 (LAME)"
  23. 	Colous writesec "[7] Bitrate:[14] CBR 160 Kbps"
  24. 	Colous writesec "[7] Preset:[14] Highest quality (Slow)"
  25. 	coreconverter.exe -infile="%D%\%nombre%" -outfile="%D%\%nombre%" -convert_to="LAME" -b 160 --cbr -encoding="SLOW"
  26. 	sleep 2
  27. 	goto:eof
  28. )

CD %D% Es la ruta del directorio "clickado", todo funciona bien hasta que llega a la parte donde tiene que buscar el codec " L A M E ", como lo busca con espacios no lo encuentra....

Si ejecuto el batch normal, busca el codec "LAME" sin espacios...

Espero que entiendan lo que quiero decir.. y que puedan ayudarme xD
155  Programación / Scripting / [ BATCH] F.A.R.T. (Find And Replace Text) El nombre lo dice todo, es muy bueno! en: 19 Marzo 2011, 10:42 am
Hola, me he encontrado una utilidad muy buena en el foro de AutoIt, y quiero compartirla...

Personalmente como soy usuario de Windows 7, no tengo el EDLIN.exe, y estoy muy cansado de lo complicado que se me hace usar el SED.exe, en cambio, FART deslumbra por su sencillez de uso, Aunque eso no significa que no pueda hacer tares dificiles!

Un ejemplo fácil es:

Código:
FART.exe -q lista.txt \" --remove

Con ese comando elimina todas las comillas dentro del archivo lista.txt

Código:
FART.exe -q lista.txt hola adios

Con ese comando busca TODAS las palabras "hola" y las sustituye por "adios"




Código:
Usage: FART [options] [--] <wildcard>[,...] [find_string] [replace_string]

Options:
 -h --help          Show this help message (ignores other options)
 -q --quiet         Suppress output to stdio / stderr
 -V --verbose       Show more information
 -r --recursive     Process sub-folders recursively
 -c --count         Only show filenames, match counts and totals
 -i --ignore-case   Case insensitive text comparison
 -v --invert        Print lines NOT containing the find string
 -n --line-number   Print line number before each line (1-based)
 -w --word          Match whole word (uses C syntax, like grep)
 -f --filename      Find (and replace) filename instead of contents
 -B --binary        Also search (and replace) in binary files (CAUTION)
 -C --c-style       Allow C-style extended characters (\xFF\0\t\n\r\\ etc.)
    --cvs           Skip cvs dirs; execute "cvs edit" before changing files
 -a --adapt         Adapt the case of replace_string to found string
 -b --backup        Make a backup of each changed file
 -p --preview       Do not change the files but print the changes


Se puede descargar desde aquí:
http://sourceforge.net/projects/fart-it/files/fart-it/1.99b/fart199b_win32.zip/download
156  Programación / Scripting / (SOLUCIONADO) [ Batch ] Problemilla con variable Set /a... en: 18 Marzo 2011, 07:12 am
hola, ya tengo otro problema que me trae de cabeza :S les recorto el trozo que interesa, del script:

Código
  1. Set Num=0
  2.  
  3. blabla... ...& findstr blablabla & call :proceso
  4.  
  5. :proceso
  6. IF %ERRORLEVEL% EQU 0 set /a num+=1 & blablabla lo que sigue...
  7.  
  8. :Terminar
  9. set /a num+=6 & mode con lines=%num%
  10.  
... pero el número siempre es "1", y no se porque.


Así que para probar, hice esto:
Código:
echo %num%
set num2=%num% 
set /a num2+=6
echo numero nuevo:%num2%
pause
Y el resultado es esto:



¿Porque no me deja?


PD: En cambio, si repito el proceso manualmente en la consola, si que me deja, así que he pensado que el problema puede estar en los caracteres "%", pero ya he probado cambiandolos y nada...
157  Programación / Scripting / (SOLUCIONADO) [ BATCH ] Cual es el parámetro para cortar un nombre? en: 17 Marzo 2011, 02:55 am
Sé que el titúlo del post es malo, pero no se definirlo mejor xD


A ver, porfavor sacarme de esta duda que tengo

Código:
Set uno=dos tres
Echo %uno%

Creo que hay un comando para permitir "cortar" frases

Yo pensaba que se hacía así: (Pero no... :/)

Código:
Echo %uno~4%

Quiero que los últimos 4 dígitos de la frase no se muestren
158  Media / Multimedia / (SOLUCIONADO) Pregunta para Songoku o quien pueda ayudarme con dbPowerAmp en: 16 Marzo 2011, 19:22 pm
Hola, no he sabido muy bien si postear esto en scripting o mejor aqui, en multimedia, porque creo que Songoku o Armando serían mi única esperanza xDDD

estoy haciendo un batch para ahorrarme la tira de trabajo a diario... en fin resulta que llego a un punto donde tengo un error y no se porque, si el codec lo tengo bien instalado...

Songoku, no sabrás usar el dbpoweramp mediante linea de comandos verdad? me salvarías la vida xD

Bueno este es el código de prueba:

Código:
coreconverter.exe -infile="%nombre%" -outfile="%nombre%" -convert_to="mp3 (Lame)" -V 6 & pause

y este el error:



Se agradece a cualquiera que pueda aportarme algo...
Esto me desespera, la verdad...

Saludos!


EDITO: Uf, había un fallo al resolver el nombre del archivo, quedaba un espacio al final y entonces la extensión se reconocía como ".mp3 " y claro, no encontraba ningun codec para eso, ya está.

Pero ahora tengo otro problema, necesito saber los comandos para asignarle un bitrate de compresión mediante el coreconverter.exe :/ y ni idea...
159  Programación / Scripting / (SOLUCIONADO) [ BATCH ] Ayuda con "findstr"... y contador en: 16 Marzo 2011, 11:55 am
Hola, hago este tema aparte porque lo veo distinto, espero que sea lo correcto...

Bueno, el problema es que, a ver... si yo ejecuto este comando:
Código:
mplayer 1.mp3 -frames 0

se me muestra esta información:


Yo quiero buscar distintas "frases" ahi dentro como "320.0 kbit" "192.0 kbit" o "224.0 kbit", con findstr, así que para buscar 320.0 kbit hago esto:
Código:
mplayer "%%a" -frames 0 | findstr /c:"320.0 kbit"

Pero claro, para buscar todas las frases al mismo tiempo no se hacerlo, porque no las puedo separar con comillas en findstr...
___________________________________________________________________________________________________________

EDITO: Ya he aprendido a separar las busquedas, lo estaba haciendo muy mal, tenía que usar comodines y espacios, pero ahora el problema cambia, necesito hacerlo de un modo distinto, tengo que crear un contador dentro de este comando:

Código:
for /f "tokens=*" %%a in ('dir /B *.mp3') do set nombre="%%a" & mediainfo "%%a" | findstr Bit.rate.........................:.320.Kbps >null & call :error

El contador debe sumar el valor de findstr (el numero) desde 161 hasta 320, y comrobarlos todos

Ejemplo:
Código:
 | findstr 161.kbps >null & call :error
 | findstr 162.kbps >null & call :error
 | findstr 163.kbps >null & call :error
 | findstr ...
 | findstr 320.kbps >null & call :error

como leches se hace eso? xDDD
160  Programación / Scripting / (SOLUCIONADO)[ BATCH ] Ayuda con FOR / Analizar bitrate mp3 de archivos. en: 16 Marzo 2011, 09:57 am
Necesito saber como puedo hacer para analizar (Dentro de un directorio) el bitrate de los archivos mp3, lo que realmente necesito es saber cuales son MAYORES de 160 kbps para asignarle un proceso, y olvidarme de los menores de 160 kbps...mediante un batch...

Alguien me puede ayudar con este tema? :/


EDITO: Vale, rebuscando mucho al final me he ayudado del mplayer, aunque el proceso tarda mucho..unos 5 segundos para "escanear" un archivo, pero algo es algo... he conseguido hacer esto, pero está mal echo:

Código:
@echo off

for /f "tokens=*" %%a in ('dir /B *.mp3') do mplayer "%%a" -frames 0 | findstr /c:"320.0 kbit" >null & call :error

:error
IF %ERRORLEVEL% LEQ 0 echo %%a es mayor de 160 kbps & pause
IF NOT %ERRORLEVEL% LEQ 0 echo %%a es menor de 160 k & pause

El problema es en la parte del errorlevel " echo %%a es mayor de 160 kbps & pause" no se m muestra el nombre del archivo, esto es un inconveniente porque entonces como puedo trabajar con el nombre del archivo para asignarle algún proceso?

Una imagen para que me entendais:



Si no me resuelve el nombre del archivo de FOR, entonces no podré hacer un...
Código
  1. IF %ERRORLEVEL% LEQ 0 "Reducir_Bitrate.exe" "%%a"

... :(

Aqui hay muchos expertos, seguro que algo se me ha pasado por alto... espero ayuda, graciasss
Páginas: 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
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines