Mostrar Mensajes
By Elektro H@cker
Esta aplicación es un organizador de películas, se distingue de entre otros organizadores por sus opciones particulares y digamos "avanzadas", tiene pocas opciones porque son las únicas que necesito yo, así de claro xD, aunque no me importaría añadir alguna opción más si alguien me sugiere alguna y me pareciera interesante y útil.
Bueno, aunque en las imagenes ponga "versión 1.0", lo cierto es que es una versión alpha y no está acabada, pero llevo 2 meses con este proyecto y creo que ya va siendo hora de compartirlo, porque hay muchas cosas por mejorar tanto en el diseño como en la estructura dle código, y alguna función por acabar (como la de lanzar un script), pero no hay errores por arreglar (al menos ningún arreglo de un fallo grave), es un programa "usable" aunque no esté acabado todavía, así que lo empiezo a compartir para que testeen y la prueben con gusto, y cuando avanze bastante más con la APP ya actualizaré el post...
Acepto ideas o sugerencias, consejos, críticas constructivas (pero tengan en cuenta que la APP no está acabada...), bugs, y lo que séa será bien recibido!
Gracias por leer.
PD: Y gracias en especial a Kubox por las enseñanzas que me dió para poder hacer esta aplicación.
Descarga: http://ElektroStudios.tk/Filmen.rar
Imagenes:
Y para los programadores más exquisitos, aquí dejo la versión de la aplicación que tenia hecha en Batch xD (es lo que me motivó a hacer la APP
):Código:
@Echo OFF
Title Film Organizer v2.0
REM by Elektro H@cker
Mode con cols=90 lines=50
chcp 1252 >NUL
color 07
:: ###########################
:: ### Film Organizer v2.0 ###
:: ###########################
::
:: FASES:
::
:: 1. Elimina los atributos de los archivos.
:: (oculto, sistema, solo lectura, indizado, almacenamiento)
::
:: 2. Genera listas de reproducción.
::
:: 3. Busca pistas de audio AC-3, DTS, y WAV.
::
:: 4. Busca videos con multipistas de audio.
::
:: 5. Elimina los metadatos de los videos.
SET "VIDEOS=F:\Videos"
SET "DOCUMENTALES=F:\Videos\Documentales"
SET "PELIS_REAL=F:\Videos\Películas\Acción real"
SET "PELIS_ANIM=F:\Videos\Películas\Animación"
SET "SERIES=F:\Videos\Series"
SET "SERIES_REAL=F:\Videos\Series\Acción real"
SET "SERIES_ANIM=F:\Videos\Series\Animación"
Set "FORMATS=*.avi;*.divx;*.flv;*.mkv;*.mp4;*.mpg;*.mpeg;*.ogm;*.wmv"
Set "APPS=Colous.exe DetectDuplicates.exe MediaInfo.exe NirCMD.exe"
::::::::::::::::::::::
:: ::
:: FASE 0 ::
:: ::
:: COMPROBACIONES ::
::::::::::::::::::::::
:COMPROBACIONES
:::::::::::::::
CALL :LOGO "0" "COMPROBACIONES"
Echo+
Echo+
Echo: [+] Comprobando carpetas ... | MORE | MORE
(For /R %%a in (*) do (call set /A "FILM_FILES_TOTAL+=1"))
PUSHD "%DOCUMENTALES%" || (Call :ERROR_FOLDER "%DOCUMENTALES%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %DOCUMENTALES%"
PUSHD "%PELIS_REAL%" || (Call :ERROR_FOLDER "%PELIS_REAL%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %PELIS_REAL%"
PUSHD "%PELIS_ANIM%" || (Call :ERROR_FOLDER "%PELIS_ANIM%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %PELIS_ANIM%"
PUSHD "%SERIES%" || (Call :ERROR_FOLDER "%SERIES%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_SERIES_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES%"
PUSHD "%SERIES_REAL%" || (Call :ERROR_FOLDER "%SERIES_REAL%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES_REAL%"
PUSHD "%SERIES_ANIM%" || (Call :ERROR_FOLDER "%SERIES_ANIM%")
For /D %%a in (*) do (call set /A "SUBFOLDER_FILM_TOTAL+=1")
Colous writesec "[10]OK[7] %SERIES_ANIM%"
Echo+
Echo+
Echo: [+] Comprobando aplicaciones ... | MORE | MORE
FOR %%A IN (%APPS%) DO (
If not exist "%WINDIR%\System32\%%A" (
Colous writesec "[12] ERROR CRITICO"
Echo.
Colous writesec "[7] No se encuentra la aplicacion: [14]%*"
Echo. | MORE
Colous writesec "[8] Presione una tecla para salir del programa..."
Pause >nul
Exit
) ELSE (
Colous writesec "[10]OK[7] %%A"
)
)
CALL :OK
::::::::::::::::::::::
:: ::
:: FASE 1 ::
:: ::
:: ATRIBUTOS ::
::::::::::::::::::::::
:ATRIBUTOS
::::::::::
CALL :LOGO "1" "ATRIBUTOS"
Echo: [+] Eliminando los atributos de los archivos ... | MORE | MORE
Echo: Porfavor, espere... | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
For /D %%a in (*) do (
Call Colous Writesec "[7][10]OK[7] %%a"
Echo+
attrib -A -R -S -H -I /S "%%a\*.*" >nul
)
attrib +H /S "*.ico" >nul
attrib +H -R /S "*.ini" >nul
CALL :OK
::::::::::::::::
:: ::
:: FASE 2 ::
:: ::
::::::::::::::::
:Playlist
:::::::::
CALL :LOGO "2" "PLAYLISTS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Generando listas de reproduccion ... | MORE | MORE
PUSHD "%SERIES%" || (Call :ERROR_FOLDER "%SERIES%")
For /D %%a in (*) do (
Call Set /A "FOLDER_COUNT+=1"
Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%SUBFOLDER_FILM_SERIES_TOTAL%%): [7]%%a"
PUSHD "%%a"
Echo+
For /F "Tokens=*" %%a in ('Dir /B /AD') Do (
Call Colous Writesec "[6] %%a"
PUSHD "%%a"
if /I exist "*Temporada" (
For /F "Tokens=*" %%z in ('Dir /B /AD') Do (
Echo #EXTM3U>".\%%z\_%%a %%z.m3u"
For /F "Tokens=*" %%j in ('dir /B /A-D-H ".\%%z\" ^| find /V /i ".m3u"') Do (Echo .\%%j>> ".\%%z\_%%a %%z.m3u")
REM Start /B cmd /C "".\%%z\_%%a %%z.m3u""
)
) ELSE (
Echo #EXTM3U>"_%%a TODO.m3u"
For /F "Tokens=*" %%x in ('dir /B /A-D-H ^| find /V /i ".m3u"') Do (Echo .\%%x>>"_%%a TODO.m3u")
REM Start /B cmd /C ""_%%a TODO.m3u""
)
POPD
)
POPD
Echo+
)
CALL :OK
::::::::::::::::
:: ::
:: FASE 3 ::
:: ::
::::::::::::::::
:AC3
::::
CALL :LOGO "3" "AC-3, DTS, WAV"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando pistas AC-3, DTS y WAV ... | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
DEL /Q "%TEMP%\pista_ac3_dts_wav.txt" >NUL 2>&1
For /R %%_ in (%FORMATS%) do (
Call Set /A "FOLDER_COUNT+=1"
Mediainfo "%%_" | FIND /I /V "Movie name" | FINDSTR /I "AC-3 DTS WAV" >NUL && Mediainfo "%%_" >> "%TEMP%\pista_ac3_dts_wav.txt" && (
Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6] %%~nx_"
) || (Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx_")
)
If exist "%TEMP%\pista_ac3_dts_wav.txt" (start /B notepad "%TEMP%\pista_ac3_dts_wav.txt")
CALL :OK
::::::::::::::::
:: ::
:: FASE 4 ::
:: ::
::::::::::::::::
:MULTIPISTA
:::::::::::
CALL :LOGO "4" "BUSCANDO MULTIPISTAS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando multipistas ... | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
Del /Q "%TEMP%\multipista.txt" 2>NUL
For /R %%_ in (%FORMATS%) do (
Call Set /A "FOLDER_COUNT+=1"
For /F "tokens=*" %%@ in ('mediainfo "%%_" ^| findstr /I "^Audio$" ^| FIND /C /V ""') DO (
IF NOT "%%@" EQU "1" (
Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6] %%~nx_"
Mediainfo "%%_" >> "%TEMP%\multipista.txt"
) ELSE (
Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx_"
)
)
)
If exist "%TEMP%\multipista.txt" (start /B notepad "%TEMP%\multipista.txt")
CALL :OK
::::::::::::::::
:: ::
:: FASE 5 ::
:: ::
::::::::::::::::
:METADATOS
::::::::::
CALL :LOGO "5" "BUSCANDO METADATOS"
Set /A "FOLDER_COUNT=0"
Echo: [+] Buscando metadatos ... | MORE
Echo (INAM^) (title^) | MORE | MORE
PUSHD "%VIDEOS%" || (Call :ERROR_FOLDER "%VIDEOS%")
RD /Q "%TEMP%\Converted FILMS" >NUL 2>&1
For /R %%# in (%FORMATS%) do (
Call Set /A "FOLDER_COUNT+=1"
ffmpeg -y -i "%%#" -f ffmetadata "%TEMP%\%%~nx#_metadata.txt" >NUL 2>&1
Type "%TEMP%\%%~nx#_metadata.txt" | FINDSTR /I "^INAM ^title" >NUL && (
Call Colous Writesec "[12] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [6]%%~nx#"
Echo TAGS encontrados...
Echo Convirtiendo el archivo... | MORE
MKDIR "%TEMP%\Converted FILMS\%%~p#" >NUL 2>&1
start /W CMD /K "ffmpeg -y -i "%%#" -c copy -map_metadata -1 "%TEMP%\%%~nx#" && EXIT || (Echo ERROR CONVIRTIENDO EL ARCHIVO! & PAUSE&EXIT)"
MOVE /Y "%TEMP%\%%~nx#" "%TEMP%\Converted FILMS\%%~p#" >NUL
) || (Call Colous Writesec "[2] (%%FOLDER_COUNT%% de %%FILM_FILES_TOTAL%%): [7]%%~nx#")
Del /Q "%TEMP%\%%~nx#_metadata.txt" >NUL 2>&1
)
IF exist "%TEMP%\Converted FILMS" (start /B explorer "%TEMP%\Converted FILMS")
CALL :OK
::::::::::::::::
:: ::
:: FIN ::
:: ::
::::::::::::::::
:FIN
::::
TITLE Film Organizer v2.0 [FINAL]
CLS
Echo+ | MORE
Colous writesec "[8] ###########################"
Colous writesec "[8] ## ##"
Colous writesec "[8] ## [14] Film Organizer v2.0 [8]##"
Colous writesec "[8] ## ##"
Colous writesec "[8] ###########################"
Echo+ | MORE
Colous writesec "[7] Organizacion completada."
Echo+ | MORE
Colous writesec "[8] Presione una tecla para salir del programa..."
pause >nul
exit
:LOGO
CLS
TITLE Film Organizer v2.0 [FASE %~1 de 5] [%~2]
Echo+ | MORE
Colous writesec "[8] ########################### ##############"
Colous writesec "[8] ## ## ## ##"
Colous writesec "[8] ## [14] Film Organizer v2.0 [8]## FASE %~1 "
Colous writesec "[8] ## ## ## ##"
Colous writesec "[8] ########################### ##############"
Colous writesec "[8] %~2"
Echo+ | MORE
nircmd wait 1000
GOTO:EOF
:OK
Echo+ | MORE
Colous writesec "[10] OK !!"
Echo+
TIMEOUT /T 3
GOTO:EOF
