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

 

 


Tema destacado:


+  Foro de elhacker.net
|-+  Programación
| |-+  Scripting
| | |-+  [BATCH] Script para "ordenar" un poco. V2.0		0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [BATCH] Script para "ordenar" un poco. V2.0  (Leído 5,875 veces)
-- KiLiaN --


Desconectado Desconectado

Mensajes: 1.163


Ju Já!!


Ver Perfil
[BATCH] Script para "ordenar" un poco. V2.0
« en: 12 Marzo 2012, 19:30 pm »
Tengo un disco duro con un monton de documentales y videos en general, los cuales quiero ver en la wii por la noche y dormirme con ellos (si me gusta dormir escuchando la somnifera voz de los tios de los documentales y ademas algo se retiene xD) pero hay un problema esos documentales no suelen durar mas de 45-50 minutos (en general) y claro yo queria que se fueran reproduciendo uno detras de otro pero aqui viene el problema cada archivo estaba metido en una carpeta con su mismo nombre (me los descargaba asi por descarga directa) y bueno era tarea de chinos sacar uno a uno los videos para poder verlos en la wii del tiron asique hice este script para que me automatizara esto un poco, se aceptan sugerencias, criticas, etc incluso insultos xD

Código
  1. @echo off
  2. :menu
  3. cls
  5. echo	Autor: --KiLiaN--						(s) Salir.
  8. echo	OPCIONES:
  10. echo	1- Quitar de los nombres de las carpetas esos molestos .avi, .mp3, etc..
  12. echo	2- Sacar archivos de TODAS las carpetas afuera y del tiron, sin pensartelo..
  14. echo	3- Volver ha meter los archivos en sus respectivas carpetas..(sino las crea).
  16. echo	4- Elimina las carpetas vacias despues de sacar los archivos..
  18.  
  19.  
  20. set /p option=Escoge chavalote/a: 
  21.  
  22. if "%option%"=="1" goto :option1
  23. if "%option%"=="2" goto :option2
  24. if "%option%"=="3" goto :option3
  25. if "%option%"=="4" goto :option4
  26. if "%option%"=="s" goto :eof
  27. goto:menu
  28.  
  29.  
  30. :option1
  31. for /D %%i in (*.avi) do (Echo "%%i" & ren "%%i" "%%~ni" & echo cambiado: "%%i")
  32. for /D %%i in (*.mp3) do (Echo "%%i" & ren "%%i" "%%~ni" & echo cambiado: "%%i")
  33. for /D %%i in (*.mp4) do (Echo "%%i" & ren "%%i" "%%~ni" & echo cambiado: "%%i")
  34.  
  35. rem Podeis añadir mas extensiones o cambiarlas aqui.
  37. echo Proceso terminado, pulsa algun boton para volver al menu.. & pause>nul
  38. goto:menu
  39.  
  40. :option2
  41. For /R /D %%i in (*) do (pushd %%i & @move /Y *.* "%~dp0" & popd)
  43. echo Proceso terminado, pulsa algun boton para volver al menu.. & pause>nul
  44. goto:menu
  45.  
  46.  
  47. :option3
  48. For %%i in (*) do (
  49. 	For /D %%e in (*) do (if "%%e"=="%%~ni" @move "%%i" "%%e" & echo "%%i"))
  50. For %%i in (*.avi) do (if not exist "%%~ni" (mkdir "%%~ni" & @move /Y "%%i" "%%~ni") else 	
  51.  
  52. (@move /Y "%%i" "%%~ni"))
  53. For %%i in (*.mp3) do (if not exist "%%~ni" (mkdir "%%~ni" & @move /Y "%%i" "%%~ni") else 	
  54.  
  55. (@move /Y "%%i" "%%~ni"))
  56. For %%i in (*.mp4) do (if not exist "%%~ni" (mkdir "%%~ni" & @move /Y "%%i" "%%~ni") else 	
  57.  
  58. (@move /Y "%%i" "%%~ni"))
  59.  
  60. rem Si no existe la carpeta con el nombre de archivo la crea y luego mueve el archivo a la 
  61.  
  62. carpeta creada. SOLO PARA .avi, .mp3 y .mp4.
  64. echo Proceso terminado, pulsa algun boton para volver al menu.. & pause>nul
  65. goto:menu
  66.  
  67. :option4
  68. For /D /R %%i in (*) do (rd /Q "%%i">nul & echo Se ha eliminado "%%i")
  69.  
  70. rem El comando RD unicamente borra una carpeta si esta vacia.
  72. echo Proceso terminado, pulsa algun boton para volver al menu.. & pause>nul
  73. goto:menu
  74.  
  75. :EOF
  77.  

Espero que a alguien le ayude el codigo ;) y perdon por el tocho contandoos mi vida xD


V2.0

He hecho algunas modificaciones en el script y lo he aligerado un poco, os lo dejo aqui para que podais comparar y ver las diferencias, ala un saludo xD

Código
  1. @Echo off
  2. cls
  3. :: By -- KiLiaN --
  4. color 02
  5. Setlocal Enabledelayedexpansion
  6.  
  7. ::Primero comprueba si ya existen carpetas con nombres de archivos y si existen mueven el archivo a su carpeta. Despues comprueba archivo por archivo si existe su carpeta y si no existe la crea para moverse a su interior. Luego borra las carpetas vacias.
  8.  
  9. Set ext=.avi .mp3 .divx .mp4 .AVI .MP3 .Dvd-Rip .mpg .DVD
  10.  
  11. For %%# in (%ext%) do (
  12. For %%i in (*) do (
  13. 	For /D %%e in (*) do (if "%%e"=="%%~ni" @move "%%i" "%%e" & echo "%%i"))
  14.  
  15. For %%i in (*%%#) do (if not exist "%%~ni" (mkdir "%%~ni" & @move /Y "%%i" "%%~ni") else 
  16.  
  17. (@move /Y "%%i" "%%~ni")))
  18.  
  19. For /D /R %%i in (*) do (@Rd /Q "%%i" 2>nul)
  20. ::rem El comando RD unicamente borra una carpeta si esta vacia.
  21.  
  23. Echo Iniciando......OK.
  24.  
  25. ::Quita de los nombres de las carpetas las extensiones.
  26.  
  27. For %%# in (%ext%) do (
  28. For /D %%i in (*%%#) do (Echo "%%i" & ren "%%i" "%%~ni" & echo cambiado por: "%%~ni"))
  29.  
  32. Echo 10%%......OK.
  33. ping -n 1 0.0.0.0>nul
  34.  
  35. ::Aqui oculta todas las carpetas que tengan alguna parte con esta nomenclatura [1-] No limpia los nombres.
  36.  
  37. For /F "delims=*" %%i in ('Dir /B /A:D ^| Findstr /R \[1-') do (attrib +H "%%i")
  39. Echo 32%%......Ok.
  40. ping -n 3 0.0.0.0>nul
  41.  
  42.  
  43. ::Cambia por espacios los (.,-[]) de los nombres de las carpetas que no tengan la nombenclatura [1-x-x] (que no esten ocultas).
  44.  
  45. For /F "delims=*" %%i in ('Dir /B /A:D') do (call:limpieza %%i)
  46.  
  48. Echo 56%%......OK.
  49. ping -n 2 0.0.0.0>nul
  50.  
  51. ::Aqui restauramos los nombres de las carpetas que tengan alguna parte con esta nomenclatura [1- (las ocultas). Yo las dejo asi para poder cambiarlas a mano.
  52.  
  53. For /F "delims=*" %%i in ('Dir /B /A:H ^| Findstr /R \[1-') do (attrib -H "%%i")
  55. Echo 72%%......Ok.
  56.  
  57.  
  58. ::Pasa a mayusculas SOLO LA PRIMERA LETRA, para ello calcula cuando mide (en caracteres) el nombre y saca la primera letra y el resto del nombre, luego comprueba si la primera letra esta en minuscula, y dependiendo de cual sea la cambia por su mayuscula y la une al resto del nombre.
  59.  
  60. For /F "delims=^" %%b in ('Dir /B /A:D *') do (
  61. 	call:cuentaletras %%b
  62. 	if !primeraletra!==a (ren "!String!" "A!newresto!" & echo. Cambiado !String! por A!newresto! & break)
  63. 	if !primeraletra!==b (ren "!String!" "B!newresto!" & echo. Cambiado !String! por B!newresto! & break)
  64. 	if !primeraletra!==c (ren "!String!" "C!newresto!" & echo. Cambiado !String! por C!newresto! & break)
  65. 	if !primeraletra!==d (ren "!String!" "D!newresto!" & echo. Cambiado !String! por D!newresto! & break)
  66. 	if !primeraletra!==e (ren "!String!" "E!newresto!" & echo. Cambiado !String! por E!newresto! & break)
  67. 	if !primeraletra!==f (ren "!String!" "F!newresto!" & echo. Cambiado !String! por F!newresto! & break)
  68. 	if !primeraletra!==g (ren "!String!" "G!newresto!" & echo. Cambiado !String! por G!newresto! & break)
  69. if !primeraletra!==h (ren "!String!" "H!newresto!" & echo. Cambiado !String! por H!newresto! & break)
  70. 	if !primeraletra!==i (ren "!String!" "I!newresto!" & echo. Cambiado !String! por I!newresto! & break)
  71. 	if !primeraletra!==j (ren "!String!" "J!newresto!" & echo. Cambiado !String! por J!newresto! & break)
  72. 	if !primeraletra!==k (ren "!String!" "L!newresto!" & echo. Cambiado !String! por K!newresto! & break)
  73. 	if !primeraletra!==l (ren "!String!" "L!newresto!" & echo. Cambiado !String! por L!newresto! & break)
  74. 	if !primeraletra!==m (ren "!String!" "M!newresto!" & echo. Cambiado !String! por M!newresto! & break)
  75. 	if !primeraletra!==n (ren "!String!" "N!newresto!" & echo. Cambiado !String! por N!newresto! & break)
  76. 	if !primeraletra!==ñ (ren "!String!" "Ñ!newresto!" & echo. Cambiado !String! por Ñ!newresto! & break)
  77. 	if !primeraletra!==o (ren "!String!" "O!newresto!" & echo. Cambiado !String! por O!newresto! & break)
  78. 	if !primeraletra!==p (ren "!String!" "P!newresto!" & echo. Cambiado !String! por P!newresto! & break)
  79. 	if !primeraletra!==q (ren "!String!" "Q!newresto!" & echo. Cambiado !String! por Q!newresto! & break)
  80. 	if !primeraletra!==r (ren "!String!" "R!newresto!" & echo. Cambiado !String! por R!newresto! & break)
  81. 	if !primeraletra!==s (ren "!String!" "S!newresto!" & echo. Cambiado !String! por S!newresto! & break)
  82. 	if !primeraletra!==t (ren "!String!" "T!newresto!" & echo. Cambiado !String! por T!newresto! & break)
  83. 	if !primeraletra!==u (ren "!String!" "U!newresto!" & echo. Cambiado !String! por U!newresto! & break)
  84. 	if !primeraletra!==v (ren "!String!" "V!newresto!" & echo. Cambiado !String! por V!newresto! & break)
  85. 	if !primeraletra!==w (ren "!String!" "W!newresto!" & echo. Cambiado !String! por W!newresto! & break)
  86. 	if !primeraletra!==x (ren "!String!" "X!newresto!" & echo. Cambiado !String! por X!newresto! & break)
  87. 	if !primeraletra!==y (ren "!String!" "Y!newresto!" & echo. Cambiado !String! por Y!newresto! & break)
  88. 	if !primeraletra!==z (ren "!String!" "Z!newresto!" & echo. Cambiado !String! por Z!newresto! & break)
  89. )
  91. Echo 100%......Completado.
  92.  
  93. Exit /b
  94.  
  95. :cuentaletras
  96. Set String=%*
  97. 		Echo !String! >TemporalText.d
  98. 		Echo.>>TemporalText.d 
  99. 		FindStr /O "^" TemporalText.d >Temporaltemp.dat
  100.   		Del /Q TemporalText.d >nul
  101. For /F "skip=1 delims=: " %%e in (Temporaltemp.dat) do (set /a letra=%%e - 3 & Del /Q 
  102.  
  103. Temporaltemp.dat 2>nul)
  104.  
  105. set letras=!letra!
  106. set resto= !String:~1,% style="color: #448888;">letras%!
  107. set primeraletra=!String:~0,1!
  108. set newresto=!resto:~1,% style="color: #448888;">letras%!
  109. goto:EOF
  110.  
  111. :limpieza
  112. set string="%*"
  113.  
  114. 	set string=!string:,= !
  115. 	set string=!string:.= !
  116. 	set string=!string:-= !
  117. 	set string=!string:+= !
  118. 	set string=!string:  = !
  119. 	set string=!string:  = !
  120. 	Ren "%*" %string% 2>nul	
  121.  
  122. goto:EOF
  123.  
« Última modificación: 7 Mayo 2012, 17:07 pm por -- KiLiaN -- » En línea
Entren al chat de elhacker.net
    
   

@kln13
Eleкtro
Ex-Staff
*
Desconectado Desconectado

Mensajes: 9.885



Ver Perfil
Re: Script en Batch para "ordenar" un poco.
« Respuesta #1 en: 12 Marzo 2012, 22:42 pm »
Cita de: -- KiLiaN -- en 12 Marzo 2012, 19:30 pm
Tengo un disco duro con un monton de documentales y videos en general, los cuales quiero ver en la wii por la noche y dormirme con ellos (si me gusta dormir escuchando la somnifera voz de los tios de los documentales y ademas algo se retiene xD)


pero hay un problema esos documentales no suelen durar mas de 45-50 minutos (en general)

Hostia que bueno xD, La verdad es que es relajante yo muxas veces he dormido de la misma manera xD

Y la WII no soporta listas de reproducción? (Me refiero por ejemplo al formato .m3u, .pls, o .wpl del mediaplayer) Porque entonces sería mucho más fácil la tarea...

saludos

EDITO: Te dejo un ejemplo que hice para mi reproductor...
El bat lo ejecutas desde la carpeta donde estan todas las carpetas de documentales, (Obviamente primero le añades las extensiones de videos y lo modificas a tu gusto)...
Quizás te sirva jeje

Reproducir TODO.bat

Código
  1. @Echo OFF
  2.  
  3. REM Crea una lista de reproducción .M3U y randomiza el contenido.
  4. REM By Elektro H@cker
  5.  
  6. Title %~n0
  7. Mode con cols=50 lines=3
  8. Setlocal enabledelayedexpansion
  9.  
  10. chcp 1252 >NUL
  11.  
  13. Echo: Espere, Se esta randomizando la lista...
  14.  
  15. For /F "Tokens=*" %%$ in ('Dir /B /S "%~dp0" ^| Findstr /R ".aif .flac .m4a .mid .mp3 .ogg .wav .wma"') do (Echo !Random!!Random!!Random!;%%$>>"%Temp%\Lista Winamp.tmp")
  16.  
  17. Echo #EXTM3U>"%Temp%\Lista Winamp.m3u"
  18. For /F "Tokens=2* Delims=;" %%$ in ('Type "%Temp%\Lista Winamp.tmp" ^| Sort ') do (Echo %%$>>"%Temp%\Lista Winamp.m3u")
  19.  
  20. Start /B C:"\Program Files (x86)\Winamp\winamp.exe" "%Temp%\Lista Winamp.m3u"
  21.  

salu2
« Última modificación: 12 Marzo 2012, 22:52 pm por EleKtro H@cker » En línea


-- KiLiaN --


Desconectado Desconectado

Mensajes: 1.163


Ju Já!!


Ver Perfil
Re: Script en Batch para "ordenar" un poco.
« Respuesta #2 en: 12 Marzo 2012, 23:02 pm »
Dios..me acabo de fijar en las especificaciones del programa que uso en la wii para reproducir (Wiimc porsi lo quiere saber alguien) y si que acepta listas de reproduccion asique gracias por tu codigo tio me va a vernir perita tambien ;)
En línea
Entren al chat de elhacker.net
    
   

@kln13
-- KiLiaN --


Desconectado Desconectado

Mensajes: 1.163


Ju Já!!


Ver Perfil
Re: [BATCH] Script para "ordenar" un poco. V2.0
« Respuesta #3 en: 7 Mayo 2012, 17:11 pm »
Up!  :silbar:
En línea
Entren al chat de elhacker.net
    
   

@kln13
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
[BATCH] peticion de script ,leer , ordenar, exportar a otro txt
Scripting 		apuromafo CLS 7 6,282 Último mensaje 15 Julio 2012, 04:02 am
por apuromafo CLS
Ordenar musica con batch programado
Scripting 		itzg3 0 1,845 Último mensaje 5 Mayo 2014, 04:41 am
por itzg3
A la hora de ordenar mi "Biblioteca Digital"
Dudas Generales 		Orb 2 2,505 Último mensaje 19 Mayo 2015, 10:04 am
por Sr_Malweriks
Mostrar poco a poco la salida del comando "find"
GNU/Linux 		viher 2 3,074 Último mensaje 6 Enero 2016, 18:19 pm
por viher
Como? Script para ordenar últimos archivos actualizados - Linux
Scripting 		walewein 0 2,915 Último mensaje 28 Septiembre 2018, 20:17 pm
por walewein
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines