Archivo mensual: septiembre 2013

BATCH – Diferencia entre Hora1 y Hora2.

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

@echo off
setlocal ENABLEEXTENSIONS
call :segundos %1
set /a d=j
call :segundos %2
set /a d=%j% - %d%
call :horas %d%
echo %p%:%q%:%segun%&endlocal&goto :EOF

:segundos
for /f "tokens=1,2,3 delims=:-/." %%a in ("%1") do (
   set hh=%%a&set mm=%%b&set ss=%%c)
set /a h=%hh% * 3600
set /a m=%mm% * 60
set /a j=%h% + %m% + %ss%
goto :EOF

:horas
set /a p=%d% / 3600
set /a resto=%d% - (%p% * 3600)
set /a q=%resto% / 60
set /a segun=%resto% - (%q% * 60)
goto :EOF

@echo off

setlocal ENABLEEXTENSIONS

call :segundos %1

set /a d=j

call :segundos %2

set /a d=%j% - %d%

call :horas %d%

echo %p%:%q%:%segun%&endlocal&goto :EOF

:segundos

for /f "tokens=1,2,3 delims=:-/." %%a in ("%1") do (

set hh=%%a&set mm=%%b&set ss=%%c)

set /a h=%hh% * 3600

set /a m=%mm% * 60

set /a j=%h% + %m% + %ss%

goto :EOF

:horas

set /a p=%d% / 3600

set /a resto=%d% - (%p% * 3600)

set /a q=%resto% / 60

set /a segun=%resto% - (%q% * 60)

goto :EOF

Publicado en BATCH - DOS | Deja un comentario

BATCH – Chequeo ping.

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

@echo off  
set nom=VULCANO
set dip=20.210.75.150 
set out=C:\SNMP-monitoreo\offline\
:comienzo
for /f "tokens=1-4 delims=- " %%a in ('date/t') do (set dia=%%a& set mes=%%b& set ano=%%c)
set fecha=%dia%-%mes%-%ano%
SET hor=%TIME:~,2%
SET min=%TIME:~3,2%
SET seg=%TIME:~6,2%
set hora=%hor%:%min%
set dip0=0
set dip1=0
:consulta
if exist %out%%dip% set dip0=1
ping %dip% -w 700 2>nul | find "TTL=" >NUL || set dip1=1
if %dip0%==0 if %dip1%==0 (goto :salida)
if %dip0%==1 if %dip1%==0 (del /f /q %out%%dip%
                           goto :salida)
echo %nom% > %out%%dip%
:salida
exit

@echo off

set nom=VULCANO

set dip=20.210.75.150

set out=C:\SNMP-monitoreo\offline\

:comienzo

for /f "tokens=1-4 delims=- " %%a in ('date/t') do (set dia=%%a& set mes=%%b& set ano=%%c)

set fecha=%dia%-%mes%-%ano%

SET hor=%TIME:~,2%

SET min=%TIME:~3,2%

SET seg=%TIME:~6,2%

set hora=%hor%:%min%

set dip0=0

set dip1=0

:consulta

if exist %out%%dip% set dip0=1

ping %dip% -w 700 2>nul | find "TTL=" >NUL || set dip1=1

if %dip0%==0 if %dip1%==0 (goto :salida)

if %dip0%==1 if %dip1%==0 (del /f /q %out%%dip%

goto :salida)

echo %nom% > %out%%dip%

:salida

exit

Publicado en BATCH - DOS | Deja un comentario

BATCH – Sumar o restar dias.

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

@echo off
setlocal ENABLEEXTENSIONS
call :dias 4
set /a j+=%2
call :inc %j%
echo %dd%/%mm%/%yy%
pause
endlocal
goto :EOF

:dias
for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (
   set dd=%%a&set mm=%%b&set yy=%%c)
set /a dd=100%dd%%%100,mm=100%mm%%%100
set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2
set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633
goto :EOF

:inc
set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)
goto :EOF

@echo off

setlocal ENABLEEXTENSIONS

call :dias 4

set /a j+=%2

call :inc %j%

echo %dd%/%mm%/%yy%

pause

endlocal

goto :EOF

:dias

for /f "tokens=1,2,3 delims=-/." %%a in ("%1") do (

set dd=%%a&set mm=%%b&set yy=%%c)

set /a dd=100%dd%%%100,mm=100%mm%%%100

set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,j=153*m+2

set /a j=j/5+dd+y*365+y/4-y/100+y/400-2472633

goto :EOF

:inc

set /a a=%1+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a

set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5

set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10

(if %mm% LSS 10 set mm=0%mm%)&(if %dd% LSS 10 set dd=0%dd%)

goto :EOF

Publicado en BATCH - DOS | Deja un comentario

BATCH – Manejo de variables.

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

@echo off
set prueba=ESTA ES UNA PRUEBA
ECHO.
ECHO.
echo La variable completa es "%prueba%"
SET DIA=%DATE:~,2%
SET MES=%DATE:~3,2%
SET AÑO=%DATE:~6,4%
SET prueba=%prueba:~7,11%
ECHO.
ECHO PUEDO MANEJAR EL DIA, MES Y ANO EN FORMA SEPARADA
echo La fecha actual es %DIA% %MES% %AÑO%
ECHO.
ECHO.
ECHO PUEDO RESCATAR CUALQUIER POSICION DE LA VARIABLE EN EL FORMATO DESDE - HASTA
echo Rescato solo desle del 8vo caracter y 11 caracteres "%prueba%"
ECHO.
SET HOR=%TIME:~,2%
SET MIN=%TIME:~3,2%
SET SEG=%TIME:~6,2%
ECHO PUEDO MANEJAR LAS HORAS, MINUTOS Y SEGUNDOS EN FORMA SEPARADA
ECHO SON LAS %HOR% %MIN% %SEG%
ECHO.
ECHO.
pause
exit

@echo off

set prueba=ESTA ES UNA PRUEBA

ECHO.

echo La variable completa es "%prueba%"

SET DIA=%DATE:~,2%

SET MES=%DATE:~3,2%

SET AÑO=%DATE:~6,4%

SET prueba=%prueba:~7,11%

ECHO.

ECHO PUEDO MANEJAR EL DIA, MES Y ANO EN FORMA SEPARADA

echo La fecha actual es %DIA% %MES% %AÑO%

ECHO.

ECHO PUEDO RESCATAR CUALQUIER POSICION DE LA VARIABLE EN EL FORMATO DESDE - HASTA

echo Rescato solo desle del 8vo caracter y 11 caracteres "%prueba%"

ECHO.

SET HOR=%TIME:~,2%

SET MIN=%TIME:~3,2%

SET SEG=%TIME:~6,2%

ECHO PUEDO MANEJAR LAS HORAS, MINUTOS Y SEGUNDOS EN FORMA SEPARADA

ECHO SON LAS %HOR% %MIN% %SEG%

ECHO.

pause

exit

Publicado en BATCH - DOS | Deja un comentario

BATCH – Lee archivos en memoria y luego los imprime (array).

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

@echo off
setlocal enabledelayedexpansion

:lee-unico
set c=0
for /f "tokens=*" %%a in (unico.txt) do (
            set /a c+=1
            call set unico!c!=%%a
)
set i-unico=!c!

:lee-up
set c=0
for /f "tokens=*" %%a in (up.txt) do (
            set /a c+=1
            call set up!c!=%%a
)
set i-up=!c!

:lee-down
set c=0
for /f "tokens=*" %%a in (down.txt) do (
            set /a c+=1
            call set down!c!=%%a
)
set i-down=!c!
echo todos los Archivos Leidos unico - up - down
pause
for /l %%n in (1,1,!c!) do (echo !unico%%n!)
echo "Indice Unico=%i-unico%"
pause
for /l %%n in (1,1,!c!) do (echo !up%%n!)
echo "Indice up=%i-up%"
pause
for /l %%n in (1,1,!c!) do (echo !down%%n!)
echo "Indice Down=%i-down%"
pause
endlocal
exit

@echo off

setlocal enabledelayedexpansion

:lee-unico

set c=0

for /f "tokens=*" %%a in (unico.txt) do (

set /a c+=1

call set unico!c!=%%a

)

set i-unico=!c!

:lee-up

set c=0

for /f "tokens=*" %%a in (up.txt) do (

set /a c+=1

call set up!c!=%%a

)

set i-up=!c!

:lee-down

set c=0

for /f "tokens=*" %%a in (down.txt) do (

set /a c+=1

call set down!c!=%%a

)

set i-down=!c!

echo todos los Archivos Leidos unico - up - down

pause

for /l %%n in (1,1,!c!) do (echo !unico%%n!)

echo "Indice Unico=%i-unico%"

pause

for /l %%n in (1,1,!c!) do (echo !up%%n!)

echo "Indice up=%i-up%"

pause

for /l %%n in (1,1,!c!) do (echo !down%%n!)

echo "Indice Down=%i-down%"

pause

endlocal

exit

Publicado en BATCH - DOS | Deja un comentario

Archivo mensual: septiembre 2013

BATCH – Diferencia entre Hora1 y Hora2.

BATCH – Chequeo ping.

BATCH – Sumar o restar dias.

BATCH – Manejo de variables.

BATCH – Lee archivos en memoria y luego los imprime (array).

Si te gusta este contenido, se agradece tu apoyo en su mantenimiento. Cualquier cantidad por pequeña que sea será bien recibida.

Comentarios recientes

Archivos