Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - lucaslopezld123

#21
Cita de: Segadorfelix en  3 Diciembre 2012, 04:30 AM
Si pero solo al archivo.
Resumiendo, lo que EleKtro H@cker intenta decir:
Código (dos) [Seleccionar]


    @Echo OFF
    Call :TEXTMAN L- 2 "Archivo.txt"
    Pause&Exit


    :: TEXT MANIPULATOR ROUTINE v0.2
    :: by Elektro H@cker
     
    rem USO:
   rem  :TEXTMAN [ACCIÓN] [LÍNEA] [ARCHIVO] [TEXTO (Opcional)]
     
     
    REM ACCIONES:
    REM
    REM  AL  = ADD_LEFT           * AÑADIR TEXTO AL PRINCIPIO DE UNA LÍNEA
    REM  AR  = ADD_RIGHT          * AÑADIR TEXTO AL FINAL DE UNA LÍNEA
    REM  E   = ERASE              * ELIMINAR UNA LÍNEA
    REM  I   = INSERT             * INSERTAR UNA LÍNEA (VACÍA O CON TEXTO)
    REM  RL  = REPLACE_LINE       * REEMPLAZAR UNA LÍNEA
    REM  RS  = REPLACE_STRING     * REEMPLAZAR PALABRAS DE UNA LÍNEA
    REM  RSA = REPLACE_STRING_ALL * REEMPLAZAR PALABRAS EN TODAS LAS LÍNEAS
    REM  C+  = CHARACTER_PLUS     * ELIMINAR LOS PRIMEROS "X" CARACTERES EN TODAS LAS LÍNEAS
    REM  C-  = CHARACTER_LESS     * ELIMINAR LOS ÚLTIMOS  "X" CARACTERES EN TODAS LAS LÍNEAS
    REM  L+  = LINE_PLUS          * CORTAR LAS PRIMERAS "X" LÍNEAS
    REM  L-  = LINE_LESS          * CORTAR LAS ÚLTIMAS  "X" LÍNEAS
     
     
    REM EJEMPLOS DE USO:
     
    :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::
    ::
    :: Elimina la línea 3
    :: Call :TEXTMAN E 3 "Test.txt"
    ::
    :: Añade una frase al principio de la línea 3
    :: Call :TEXTMAN AL 3 "Test.txt" "Elektro H@cker"
    ::
    :: Añade una frase al final de la línea 3
    :: Call :TEXTMAN AR 3 "Test.txt" "Elektro H@cker"
    ::
    :: Inserta una línea vacía en la línea 3
    :: Call :TEXTMAN I 3 "Test.txt"
    ::
    :: Inserta una línea con texto en la línea 3
    :: Call :TEXTMAN I 3 "Test.txt" "Elektro H@cker"
    ::
    :: Reemplaza la línea 3 por completo
    :: Call :TEXTMAN RL 3 "Test.txt" "Elektro H@cker"
    ::
    :: Reemplaza las palabras "Elektro" por "H@cker" en la línea 3
    :: Call :TEXTMAN RS 3 "Test.txt" "Elektro" "H@cker"
    ::
    :: Reemplaza las palabras "Elektro" por "H@cker" en todas las líneas
    :: Call :TEXTMAN RSA "Test.txt" "Elektro" "H@cker"
    ::
    :: Elimina los 3 primeros caracteres de todas las líneas
    :: Call :TEXTMAN C+ 3 "Test.txt"
    ::
    :: Elimina los 3 uúltimos caracteres de todas las líneas
    :: Call :TEXTMAN C- 3 "Test.txt"
    ::
    :: Elimina las 3 primeras líneas
    :: Call :TEXTMAN L+ 3 "Test.txt"
    ::
    :: Elimina las 3 últimas líneas
    :: Call :TEXTMAN L- 3 "Test.txt"
    ::
    :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: :: ::

     
:TEXTMAN
(SET /A "A=0", "LINE=0", "TOTAL_LINES=0")  &  (CALL :%~1 %* || (ECHO Parametro incorrecto & Exit /B 1)) & (GOTO:EOF)
:AL
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (Echo %~4%%@ >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:AR
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (Echo %%@%~4 >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:E
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:I
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF     "%%LINE%%" EQU "%~2" (IF NOT "%~4" EQU "" (Echo %~4 >> "%~nx3.NEW") ELSE (Echo. >> "%~nx3.NEW"))" & Echo %%@ >> "%~nx3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RL
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (Echo %~4 >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RS
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" && (CMD /C "IF NOT "%%LINE%%" EQU "%~2" (Echo %%@ >> "%~nx3.NEW") ELSE (CALL SET "STRING=%%@" && CALL ECHO %%STRING:%~4=%~5%% >> "%~nx3.NEW")"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:RSA
(For /F "usebackq tokens=*" %%@ in ("%~2") DO (CALL SET "STRING=%%@" && (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%% >>    "%~nx3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:C-
(For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set   "LINE=%%@" && (CALL ECHO %%LINE:~0,-%~2%% >> "%~nx3.NEW"))) && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L+
(Call SET /A "A=%~2") && (Call TYPE "%~3" | @MORE +%%A%% > "%~nx3.NEW") && (CALL :RENAMER "%~3") & (GOTO:EOF)
:L-
(FOR /F %%X IN ('TYPE "%~3"') DO (CALL SET /A "TOTAL_LINES+=1")) & (CALL SET /A "TOTAL_LINES-=%~2-1") & (For /F "usebackq tokens=*" %%@ in ("%~3") DO (Call Set /A "LINE+=1" & Call echo "%%LINE%%"|@FIND "%%TOTAL_LINES%%" >NUL) && (CALL :RENAMER "%~3" && GOTO:EOF) || (Echo %%@ >> "%~nx3.NEW"))
:RENAMER
(REN "%~1" "%~nx1.BAK") & (MOVE /Y "%~nx1.BAK" "%TEMP%\" >NUL) & (REN "%~nx1.NEW" "%~nx1") & (GOTO:EOF)


perdon no entiendo, el archivo textman como lo consigo? donde lo pego?
si mi texto se llama "repote.txt" cual seria la sintaxis para borrar las ultimas dos lineas?
#22
a textman hay que agregarlo?
trabajo con windows xp / 7 y 8
#23
Cita de: Leo Gutiérrez. en  2 Diciembre 2012, 02:51 AM
¿Es pregunta?

Las cosas se piden por favor y aquí en el foro se intenta escribir bien, con buena ortografía.

Saludos.

necesito quitar las ultimas dos lineas de un texto desde un .bat
cual seria la forma correcta de hacerlo?
debe funcionar independientemente de la cantidad de lineas que tenga el texto
gracias
#24
una facil:
como hago para quitar las ultimas dos lineas de un archivo (cualquiera sea su posicion)
es decir no importa si el texto tiene 40 lineas o 4
quitarlas solo eso
#25
Scripting / identificar unidades
18 Noviembre 2012, 15:58 PM
Buenas gente, estoy usando el siguiente comando en un .bat

Código (dos) [Seleccionar]
for %%i in (C D E F G H I J K L M N O P Q R S T U V W X Y Z) do if exist %%i:\INS\NINFUS set DRIVE=%%i:

donde %%i: es la unidad donde se encuentra mi pendrive
de ese modo puedo lanzar un proseso usando
Código (dos) [Seleccionar]
%drive%\ins\winrar.exe

problema: cuando la pc usa lector de multimemorias  tira un error por cada unidad que no esta lista o inaccesible, me explico?

lo que necesito saber es que modificar para que este error no ocurra