Archivo del Autor: Gonzalo Reiser A.

BATCH – Script dependiente de la ejecución de otro.

Publicada el 09/10/2013 por Gonzalo Reiser A.

Este código Script lo ejecuto mientras este en ejecución otro SCRIPT BATCH que su ventana se llama «proceso», si no lo detecta en ejecución finaliza (exit). En este script se utilizan 3 utilitarios (sendmail.exe – plink.exe y sleep.exe), los cuales … Sigue leyendo →

Publicado en BATCH - DOS | Deja un comentario

UNIX – Ejecución comando mediante instrucción XARGS.

Publicada el 08/10/2013 por Gonzalo Reiser A.

Si se requiere realizar un respaldo (copia) de muchos archivos, puede ser que el listado completo no entre en el buffer que tienen reservado la shell, y nos mostraría el siguiente error : Argument list too long Esto lo podemos … Sigue leyendo →

Publicado en Unix - Linux | Deja un comentario

BATCH – Agenda en DOS BATCH, un ejemplo interesante.

Publicada el 08/10/2013 por Gonzalo Reiser A.

@echo off
title Agenda - by xassiz
setlocal enabledelayedexpansion

:menu
cls
echo:
echo: ^| MENU ^|
echo:
echo: 1. Ver Agenda
echo: 2. Agregar Tarea
echo: 3. Salir
echo:
set "op="
set/p "op=>> "
if not defined op (goto:menu)
if ["%op%"]==["1"] (goto:Show)
if ["%op%"]==["2"] (goto:Add)
if ["%op%"]==["3"] (exit)
goto:menu

:Show
cls
for /f "tokens=*" %%x in (%~0) do (
set "line=%%x"
if ["!line:~0,10!"]==["::AGENDA::"] (
set "line=!line:~10!"
echo:
echo:!line!
)
)
echo:
pause
goto:menu

:Add
cls
set "fecha="
set/p "fecha=- Fecha (dd/mm/aaaa): "
if not defined fecha (goto:Add)
echo:
set "tarea="
set/p "tarea=- Tarea: "
if not defined tarea (goto:Add)
for %%y in ("fecha","tarea") do (
for %%z in ("^","&","<",">","|") do (set "%%~y=!%%~y:%%~z=^%%~z!")
)
echo:::AGENDA::%fecha% - %tarea% >> %~0
goto:menu

@echo off

title Agenda - by xassiz

setlocal enabledelayedexpansion

:menu

cls

echo:

echo: ^| MENU ^|

echo:

echo: 1. Ver Agenda

echo: 2. Agregar Tarea

echo: 3. Salir

echo:

set "op="

set/p "op=>> "

if not defined op (goto:menu)

if ["%op%"]==["1"] (goto:Show)

if ["%op%"]==["2"] (goto:Add)

if ["%op%"]==["3"] (exit)

goto:menu

:Show

cls

for /f "tokens=*" %%x in (%~0) do (

set "line=%%x"

if ["!line:~0,10!"]==["::AGENDA::"] (

set "line=!line:~10!"

echo:

echo:!line!

)

echo:

pause

goto:menu

:Add

cls

set "fecha="

set/p "fecha=- Fecha (dd/mm/aaaa): "

if not defined fecha (goto:Add)

echo:

set "tarea="

set/p "tarea=- Tarea: "

if not defined tarea (goto:Add)

for %%y in ("fecha","tarea") do (

for %%z in ("^","&","<",">","|") do (set "%%~y=!%%~y:%%~z=^%%~z!")

)

echo:::AGENDA::%fecha% - %tarea% >> %~0

goto:menu

Publicado en BATCH - DOS | Deja un comentario

BATCH – Ejemplo de función en DOS BATCH con retorno de valores.

Publicada el 08/10/2013 por Gonzalo Reiser A.

@echo off
Setlocal enabledelayedexpansion
Set/p "num=Digito a multiplicar por 2: "
Call:multiplica  resultado !num!
echo.!resultado!
pause>nul&exit

:multiplica
 set/a "%1=%2*2"
goto:EO

@echo off

Setlocal enabledelayedexpansion

Set/p "num=Digito a multiplicar por 2: "

Call:multiplica resultado !num!

echo.!resultado!

pause>nul&exit

:multiplica

set/a "%1=%2*2"

goto:EO

Publicado en BATCH - DOS | Deja un comentario

BATCH – Verificador de numeros primos.

Publicada el 08/10/2013 por Gonzalo Reiser A.

ECHO OFF
SETLOCAL ENABLEDELAYEDEXPANSION
ECHO EJEMPLO:
ECHO Entrada:1 2 3 4 5 6 7 8 9 10 11 12 13
ECHO Salida: 1 1 1 0 1 0 0 1 0 0 0 0 1
SET PROC=PROCESANDO
SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:
:NEXTNUM
IF "%FIN%"=="1" GOTO SHOWNUMS
SET RN=
:NEXTCHAR
call set CHAR=%%N:~%NUM%,1%%%
set /a NUM+=1
IF "%CHAR%" EQU " " (GOTO EMPIEZA)
IF "%CHAR%" EQU "" SET FIN=1
IF "%CHAR%" EQU "" (GOTO EMPIEZA)
SET RN=%RN%%CHAR%
GOTO NEXTCHAR
:EMPIEZA
SET X=%RN%
SET Y=%X%
SET CT=0
SET /A Y=(5*%X%*%X%)+4
SET RETURN=POSITIVO
GOTO CHECKROOT
:POSITIVO
IF "%EXACTO%"=="1" GOTO ISFIB
SET RETURN=NEGATIVO
SET /A Y=!Y!-8
GOTO CHECKROOT
:NEGATIVO
IF "%EXACTO%"=="1" GOTO ISFIB
SET OUTP=%OUTP% 0
GOTO NEXTNUM
:ISFIB
SET OUTP=%OUTP% 1
GOTO NEXTNUM
:SHOWNUMS
CLS
ECHO %OUTP%
PAUSE
EXIT
:CHECKROOT
CLS
SET PROC=%PROC%.
ECHO %PROC%
SET /A DEND=!Y!
SET EXACTO=0
FOR /L %%I IN (%DEND%, -1, 1) DO (
   SET /A SQR=%%I*%%I
   IF !SQR!==%DEND% (SET EXACTO=1)
)
GOTO %RETURN%

ECHO OFF

SETLOCAL ENABLEDELAYEDEXPANSION

ECHO EJEMPLO:

ECHO Entrada:1 2 3 4 5 6 7 8 9 10 11 12 13

ECHO Salida: 1 1 1 0 1 0 0 1 0 0 0 0 1

SET PROC=PROCESANDO

SET /P N=INSERTE UNA CADENA DE NUMEROS A VERIFICAR SEPARADOS POR UN ESPACIO:

:NEXTNUM

IF "%FIN%"=="1" GOTO SHOWNUMS

SET RN=

:NEXTCHAR

call set CHAR=%%N:~%NUM%,1%%%

set /a NUM+=1

IF "%CHAR%" EQU " " (GOTO EMPIEZA)

IF "%CHAR%" EQU "" SET FIN=1

IF "%CHAR%" EQU "" (GOTO EMPIEZA)

SET RN=%RN%%CHAR%

GOTO NEXTCHAR

:EMPIEZA

SET X=%RN%

SET Y=%X%

SET CT=0

SET /A Y=(5*%X%*%X%)+4

SET RETURN=POSITIVO

GOTO CHECKROOT

:POSITIVO

IF "%EXACTO%"=="1" GOTO ISFIB

SET RETURN=NEGATIVO

SET /A Y=!Y!-8

GOTO CHECKROOT

:NEGATIVO

IF "%EXACTO%"=="1" GOTO ISFIB

SET OUTP=%OUTP% 0

GOTO NEXTNUM

:ISFIB

SET OUTP=%OUTP% 1

GOTO NEXTNUM

:SHOWNUMS

CLS

ECHO %OUTP%

PAUSE

EXIT

:CHECKROOT

CLS

SET PROC=%PROC%.

ECHO %PROC%

SET /A DEND=!Y!

SET EXACTO=0

FOR /L %%I IN (%DEND%, -1, 1) DO (

SET /A SQR=%%I*%%I

IF !SQR!==%DEND% (SET EXACTO=1)

)

GOTO %RETURN%

Publicado en BATCH - DOS | Deja un comentario

Archivo del Autor: Gonzalo Reiser A.

BATCH – Script dependiente de la ejecución de otro.

UNIX – Ejecución comando mediante instrucción XARGS.

BATCH – Agenda en DOS BATCH, un ejemplo interesante.

BATCH – Ejemplo de función en DOS BATCH con retorno de valores.

BATCH – Verificador de numeros primos.

Comentarios recientes

Archivos