Imprimir Página - Averiguar dia de la semana [Batch]

Título: Averiguar dia de la semana [Batch]
Publicado por: Shinseiki86 en 26 Agosto 2009, 17:44 pm

Hola a todos!

Tengo un archivo bat que necesita saber el dia de la semana para poder excluir los sabados y los domingos. El progrma descarga por ftp archivos que estan en carpetas con la estructura yyyy-mm-dd, pero solo dias habiles.

Lo uqe hago es:

Código:

[...]
set diaLetras=%date:~0,3%
if "%diaLetras%"=="Lun" set /a diaCod=1
if "%diaLetras%"=="Mar" set /a diaCod=2
if "%diaLetras%"=="Mi‚" set /a diaCod=3
if "%diaLetras%"=="Jue" set /a diaCod=4
if "%diaLetras%"=="Vie" set /a diaCod=5
if "%diaLetras%"=="S b" set /a diaCod=6
if "%diaLetras%"=="Dom" set /a diaCod=7
[...]

Esto funciona de maravilla en Win2000... pero en XP no sirve, ya que la %DATE% no muestra el dia de la semana.

¿Que puedo hacer? ¿Hay otra forma?

Gracias! ;D

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: kevlar en 26 Agosto 2009, 18:03 pm

Saludos.

Puedes usar el comando AT ve la ayuda en AT /?

Hay una utilidad se llama FDATE te permite efectuar operaciones sobre las fechas. No recuerdo el link.

:D

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Shinseiki86 en 26 Agosto 2009, 18:22 pm

No necesito programar la tarea para su ejecución.

En el ftp, un proveedor guarda los archivos en carpetas con nombre yyyy-mm-dd

Citar

\
2009-08-26
2009-08-25
2009-08-24
...

Tengo un bat que ingresa a cada carpeta y me descarga los archivos que tiene cada carpeta solo de los 10 ultimos dias habiles (excluyo los sabados y los domingos). la idea es hacerlo solo con variables de bat, o en últimas de vbs, pero sin instalar programas.

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Shinseiki86 en 26 Agosto 2009, 21:11 pm

El codigo completo de la funcion qu crea el archivo de configuración para la conexión ftp es:

Código:

:: Configuración FTP
if not defined countstop (
	@echo off
	cls
	cd /d C:\
	echo Establezca contador de parada:
	set /p countstop="   >"
	)

	:configftp
	echo open XXX.XX.XXX.XXX>conexionFTP.txt
	echo XXXXXXXX>>conexionFTP.txt
	echo XXXXXXXX>>conexionFTP.txt
	echo debug>>conexionFTP.txt
	echo hash>>conexionFTP.txt
	echo ascii>>conexionFTP.txt
	echo lcd descargado>>conexionFTP.txt
	echo.>>conexionFTP.txt
	echo bell>>conexionFTP.txt

:: Configuracion de las carpetas a verificar en el ftp.
	set /a count=1
	:: En winXP no es posible determinar el dia de la semana. ¿o si?
	:setdia
	set diaLetras=%date:~0,3%
		if "%diaLetras:~-1%"=="/" (
			cls
			echo  ---^>
			echo  ---^> El sistema no puede controlar los dias.
			echo  ---^> Indique el dia actual: Lun=1 a Dom=7
			set /p diaCod="---> "
			call:verificadia
			goto setdiaok
		) else (
		:: En win2000 si se puede.
		if "%diaLetras%"=="Lun" set /a diaCod=1
		if "%diaLetras%"=="Mar" set /a diaCod=2
		if "%diaLetras%"=="Mi‚" set /a diaCod=3
		if "%diaLetras%"=="Jue" set /a diaCod=4
		if "%diaLetras%"=="Vie" set /a diaCod=5
		if "%diaLetras%"=="S b" set /a diaCod=6
		if "%diaLetras%"=="Dom" set /a diaCod=7
		goto setdiaok
		)
	:verificadia
		if %diaCod% GEQ 1 if %diaCod% LEQ 7 goto:EOF else (
				echo  ---^> Error! Dia inexistente! El programa se cerrar .
				pause>nul
				exit
				)
	:: **********************************************************
:setdiaok
	::año actual
	set anno=%date:~-4%
		::mes actual
	if %date:~-7,1% EQU 0 (set /a mesNum=%date:~-6,1%) else (set /a mesNum=%date:~-7,2%)
		if %mesNum%==1 set mesCarpeta=01-Enero
		if %mesNum%==2 set mesCarpeta=02-Febrero
		if %mesNum%==3 set mesCarpeta=03-Marzo
		if %mesNum%==4 set mesCarpeta=04-Abril
		if %mesNum%==5 set mesCarpeta=05-Mayo
		if %mesNum%==6 set mesCarpeta=06-Junio
		if %mesNum%==7 set mesCarpeta=07-Julio
		if %mesNum%==8 set mesCarpeta=08-Agosto
		if %mesNum%==9 set mesCarpeta=09-Septiembre
		if %mesNum%==10 set mesCarpeta=10-Octubre
		if %mesNum%==11 set mesCarpeta=11-Noviembre
		if %mesNum%==12 set mesCarpeta=12-Diciembre
	::dia actual
	if %date:~-10,1% EQU 0 (set /a diaFecha=%date:~-9,1%) else (set /a diaFecha=%date:~-10,2%)

	:: *************************************************************************************
	SetLocal EnableDelayEdexpansion
	:bucle
		:: Contador. Si count es mayor o igual a countstop, se sale del bucle.
		if %count% GTR %countstop% goto finbucle
		:: **************************************************************************
		:: Determina si se acabó la semana. Además me excluye los dias no habiles
		if %diaCod%==0 (set /a diaCod=5) & (set /a diaFecha=diaFecha-2) & (goto bucle)
		if %diaCod%==6 (set /a diaCod=5) & (set /a diaFecha=diaFecha-1) & (goto bucle)
		:: esto evalua si se acabaron los dias. Se debe empezar con el mes siguiente
		if %diaFecha% LSS 1 (
			if %mesNum%==1 (set /a mesNum=12) & (set /a anno-=1) else (set /a mesNum-=1)
				if !mesNum!==1 (set /a diaFecha=31)
				:: problemas cuando sea año bisiesto
				if !mesNum!==2 (set /a diaFecha=28)
				if !mesNum!==3 (set /a diaFecha=31)
				if !mesNum!==4 (set /a diaFecha=30)
				if !mesNum!==5 (set /a diaFecha=31)
				if !mesNum!==6 (set /a diaFecha=30)
				if !mesNum!==7 (set /a diaFecha=31)
				if !mesNum!==8 (set /a diaFecha=31)
				if !mesNum!==9 (set /a diaFecha=30)
				if !mesNum!==10 (set /a diaFecha=31)
				if !mesNum!==11 (set /a diaFecha=30)
				if !mesNum!==12 (set /a diaFecha=31)
		)
		:: **************************************************************************
		::Variables para imprimir en el archivo de configuración
			::mes a imprimir
			if %mesNum% LSS 10 (set mes=0%mesNum%) else (set mes=%mesNum%)
			::dia a imprimir
			if %diaFecha% LSS 10 (set dia=0%diaFecha%) else (set dia=%diaFecha%)
		::campanazo de ultima carpeta
		if %count% EQU %countstop% echo bell>>conexionFTP.txt
		::titulo de la ventana
		call:title
		echo cd %anno%-%mes%-%dia%>>conexionFTP.txt
		echo mget *_I*>>conexionFTP.txt
		echo cd ..>>conexionFTP.txt
		::campanazo de primer carpeta
		if %count%==2 echo bell>>conexionFTP.txt
		echo.>>conexionFTP.txt
		set /a diaFecha-=1
		set /a count+=1
		set /a diaCod-=1
		:: ****************************************************************************
	goto bucle
	EndLocal
		:title
		::*******************************************************
		:: Inserta Titulo de ventana entre cada carpeta del FTP
		SetLocal DisableDelayEdexpansion
		echo !title %anno%-%mes%-%dia% (%count% de %countstop%)>>conexionFTP.txt
		goto:EOF
		::*******************************************************
	:finbucle

	echo bye>>conexionFTP.txt
	echo  ---^> Configuraci¢n FTP terminada.
	goto:EOF

El problema lo tengo en la etiqueta setdia. La unica solucion fue que el usuario ingresara el dia manualmente, pero la idea es que el proceso se ejecute en un servidor.

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: kevlar en 27 Agosto 2009, 16:04 pm

Holas.

Encontre esta información, espero te sirva.

http://www.paniagua.net/foros/forum_posts.asp?TID=436 (http://www.paniagua.net/foros/forum_posts.asp?TID=436)

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: kevlar en 27 Agosto 2009, 16:09 pm

Aqui esta un ejemplo mas completo

http://www.computerhope.com/forum/index.php?topic=72724.0 (http://www.computerhope.com/forum/index.php?topic=72724.0)

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Shinseiki86 en 27 Agosto 2009, 17:24 pm

Wow...

Listo.. lo que necesitaría del codigo es:

Código:

set vbsfile=%temp%\newdate.vbs
echo Newdate = (Date())>%vbsfile%
echo Yyyy = DatePart("YYYY", Newdate)>>%vbsfile%
echo   Mm = DatePart("M"   , Newdate)>>%vbsfile%
echo   Dd = DatePart("D"   , Newdate)>>%vbsfile%
echo   Wd = DatePart("WW"  , Newdate)>>%vbsfile%
echo   Wn = DatePart("Y"   , Newdate)>>%vbsfile%
echo   Ww = Datepart("W"   , Newdate)>>%vbsfile%

echo Wscript.Echo Yyyy^&" "^&Mm^&" "^&Dd^&" "^&Wd^&" "^&Ww^&" "^&Wn>>%vbsfile%
for /F "tokens=1-6 delims= " %%A in ('cscript //nologo %vbsfile%') do (set weekday#=%%E)

Es perfecto... aunque la semana iniciaría el domingo... solo sería cambiarle unas cuantas cosas al bat...

¡Gracias kevlar! ;-)

Pero tengo una duda... Las variables Wd y Wn... ¿que son?

Código:

Wd = DatePart("WW"  , Newdate)
Wn = DatePart("Y"   , Newdate)

En estos momentos me arrojan 35 y 239 respectivamente.

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: leogtz en 27 Agosto 2009, 17:25 pm

Mmmmmm, creo que podrías usar un VBS, así te ahorras bastante trabajo que sería en Batch.

Edito : Ya vi que lo resolviste, que bien.

Hay 2 formulas generales para sacar el día de la semana.
A) De meses de enero a febrero:

Código:

n=a+31*(m-1)+d/a-1)/4-3*((a+99)/100)/div4

B) Meses restantes:

Código:

n=a+31*(m-1)+d(-(4*m+23)/10+a/4-(3*(a/100+1))/4

Donde a = año, m = mes, d = dia.

Cuando hayas hecho los cálculos, haces:

Código:

n%=7

Y te dará el numero de día de la semana.

Como ves, es algo engorroso.

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: 0x0309 en 27 Agosto 2009, 19:30 pm

Mira, consultando la wikipedia hice este código, a lo mejor te sirve.

Nota: Si mal no recuerdo, en windows vista, está el comando forfiles (correción: es robocopy), que en la ayuda te muestra la fecha, así es que para ese sistema operativo, podrías parsear con for /f.

Nota, utilicé el código de Herbert Kleebauer, para extraer la fecha, para que no tengas problemas, debido a que hay distintos formatos de fecha de acuerdo a la configuración regional.

Modificación: :diaFecha estaba mal. La he actualizado.

Código:

@echo off

call :extFecha
call :diaSemana %d% %m% %y%
for /f "tokens=%errorlevel%" %%d in (
"Lunes Martes Miercoles Jueves Viernes Sabado Domingo") do echo.Es: %%d
pause
goto :eof

:diaSemana
::Basado en el algoritmo de Tomohiko Sakamot
::Retorn 1 Monday, 7 Sunday
setlocal enableextensions disabledelayedexpansion
for /f "tokens=* delims=0 eol=0" %%d in ("%~1") do set /a "d=%%d"
for /f "tokens=* delims=0 eol=0" %%m in ("%~2") do set /a "m=%%m"
set /a "y=%~3"
for /f "tokens=%m%" %%t in (
"0 3 2 5 0 3 5 1 4 6 2 4") do set /a "t=%%t"
if %m% lss 3 (set /a y-=1)
set /a "dw=(y+y/4-(y/100)+(y/400)+t+d)%%7"
if %dw% equ 0 (set /a dw=7)
exit /b %dw%

:extFecha
:: extract day month and year of the current date
:: Adapatacion del code de Herbert Kleebauer
:: Este codigo sirve para extraer en tres variables el contenido de la fecha
:: y que sea compatible con las distintas configuraciones regionales.
:: Retorna variables d,m,y que corresponden a dia mes año
setlocal enableextensions
set "date="
pushd "%Temp%"
:loop
set d="%date%" 
echo.>_._ 
if not %d%=="%date%" goto :loop 
for /f "tokens=1-3 delims=0123456789 " %%i in (
"%date%") do set d=%%i%%j%%k
for /f "tokens=1-3 delims=%d% " %%i in (
"%date%") do set /a d=1%%i,m=1%%j,y=1%%k
if %d% gtr %m% (
   set d=%m%
   set m=%d%)
if %m% gtr %y% (
   set m=%y%
   set y=%m%)
if %d% gtr %m% (
   set d=%m%
   set m=%d%)
set /a d=%d%-100,m=%m%-100,y=%y%-10000
if %d% gtr 12 goto :eFEof
if %d% equ %m% goto :eFEof
if %m% gtr 12 (
   set m=%d%
   set d=%m%
   goto :eFEof)
xcopy /l /d:%m%-%d%-%y% _._ \|find "_._" >nul
if errorlevel 1 goto :l1
xcopy /l /d:%d%-%m%-%y% _._ \|find "_._" >nul
if not errorlevel 1 goto :eFEof
:l1
(set m=%d%
 set d=%m%)
:eFEof
del _._
popd
(
endlocal
set y=%y%
set m=%m%
set d=%d%
)
setlocal enableextensions && goto :Eof

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Novlucker en 27 Agosto 2009, 19:40 pm

A mi no me había gustado la parte vbs que habías dejado en principio, así que te dejo otro :P

Código

@echo off
 
set fecha="2009-08-27"
REM Se le pasa una fecha con formato YYYY-MM-DD y devuelve el dia
REM de la semana, donde el lunes es el primer dia y domingo el ultimo
 
set vbsfile=%temp%\newdate.vbs
echo fecha = %fecha% > %vbsfile%
echo dias = array("Lunes","Martes","Miercoles","Jueves","Viernes","Sabado","Domingo") >> %vbsfile%
echo mad = split(fecha,"-") >> %vbsfile%
echo wscript.echo dias(weekday(mad(2) ^& "/" ^& mad(1) ^& "/" ^& mad(0) ,vbmonday)-1) >> %vbsfile%
 
for /f %%A in ('cscript.exe //nologo %vbsfile%') do set diasemana=%%A
echo %diasemana%
pause > nul

Saludos

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: 0x0309 en 27 Agosto 2009, 19:43 pm

genial, distintas soluciones, creo que me equivoqué, el comando que muestra la fecha en la ayuda en windows seven vista o en xp si lo instalas con el resource kit es:
robocopy.

Así:

Código:

robocopy.exe | findstr "Started Inicio"
rem para el comando en español e inglés

produce:

Código:

  Started : Thu Aug 27 13:46:29 2009

Código:

  Inicio: Thu Aug 27 13:46:29 2009

Con eso, ya puedes armar un código parseando con for /f.

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Novlucker en 28 Agosto 2009, 01:52 am

Como veo que ya esta solucionado .. te repondo a la pregunta que habías dejado antes...

Citar

Pero tengo una duda... Las variables Wd y Wn... ¿que son?

Código:

Wd = DatePart("WW" , Newdate)
Wn = DatePart("Y" , Newdate)

En estos momentos me arrojan 35 y 239 respectivamente.

Wd representa la semana del año ... estamos en la semana 35
Wn representa el día del año ... vamos por el día 239

Saludos

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: kevlar en 28 Agosto 2009, 15:45 pm

Saludos a todos.

Me gustaría que la solución en BAT fuera más simple, pero creo que es parte del arte de programar con archivos BAT.

Por otra parte VBS nos lo hace fácil y sobre todo lo podemos usar con los archivo BAT.

Estaba buscando información sobre DatePart y me encontré este enlace, esta muy interesante :-*:

http://ns7.webmasters.com/caspdoc/html/vbscript_datepart_function.htm (http://ns7.webmasters.com/caspdoc/html/vbscript_datepart_function.htm)

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Novlucker en 28 Agosto 2009, 16:07 pm

Es que vbs en la mayoría de los casos tiene funciones específicas para hacer cosas que en batch debes de crearte, además de que es fácil encontrar ayuda referente a sus funciones, ya que tiene parentezco con VB, y con ir a la MSDN se soluciona el tema (CASI siempre)

Ej Datepart:
:http://msdn.microsoft.com/en-us/library/20ee97hz%28VS.80%29.aspx

Saludos

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: kevlar en 29 Agosto 2009, 04:33 am

Tiene razón SEN-SEI Novlucker.

Es solo que aún no se suficiente de la programación en BATCH. :-\ y me voy por el camino fácil :-[

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Novlucker en 29 Agosto 2009, 05:08 am

Te refieres a que vbs es el camino fácil?

No es más fácil ... es que es un lenguaje versátil y por medio del cual haciendo uso de objetos puedes realizar cosas que en batch no podrías ;)

Saludos

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: kevlar en 29 Agosto 2009, 06:20 am

Nop.

Me refiero a que escribo menos código. :-X

Y si quiero entender todo lo que hace el archivo bat me toma más tiempo. :-[, en cambio con la función ya hecha pues solo hay que usarla.

Lo cual no quiere decir que no me guste hacer archivos bat, me ha sido bastante utilies, solo quisiera que Microsoft les agregara más gasolina y se pudieran hacer más cosas como con los shells de Unix, aunque aclaro el que yo no sepa como hacerlo en BAT no quiere decir que no se pueda. ;)

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: Shinseiki86 en 3 Octubre 2009, 00:18 am

Muchachos, al final me quedé con esta:

Código:

:: Establece el dia de la semana (Dom=1 hasta Sab=7)***********
:setdia
	set vbsfile=%temp%\newdate.vbs
	echo Wscript.Echo weekday(now()) >%vbsfile%
	for /F %%A in ('cscript //nologo %vbsfile%') do set diaCod=%%A
	del /f /q %temp%\newdate.vbs
	goto setdiaok
:: *************************************************************

Todas las ayudas que me dieron me sirvieron para aplicarlas en otros programas. Me encantó la formula para obtener el dia matematicamente, pero por comodidad (mucho codigo) me quedo con este.

Gracias!

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: 0x5d en 8 Octubre 2009, 08:43 am

Llegue tarde...

Código:

@echo off
FOR /F "tokens=2,4,6" %%A IN ('robocopy ^| find /i "Inicio"') DO (call :dia %%A %%B %%C)
:dia
if /i %1==Mon ( set dia=Lunes )
if /i %1==Tue ( set dia=Martes )
if /i %1==Wed ( set dia=Miercoles )
if /i %1==Thu ( set dia=Jueves )
if /i %1==Fri ( set dia=Viernes )
if /i %1==Sat ( set dia=Sabado )
if /i %1==Sun ( set dia=Domingo )
echo Dia: %dia%%2 %3
exit /b

Me base en el code anterior...

Título: Re: Averiguar dia de la semana [Batch]
Publicado por: luisrosarior en 6 Diciembre 2013, 22:43 pm

Saludos.

Con respecto a si funciona en Windows XP o no, la respuesta es que sí, y se puede conseguir el mismo resultado que Windows 2000, sólo debemos ir al Panel de control, Configuración regional y de idioma, y en "Estándares y formatos" cambiar el idioma a Inglés (Estados Unidos).

■ ■
■ ■ DOM

V6DC13H1405LR

Foro de elhacker.net

Programación => Scripting => Mensaje iniciado por: Shinseiki86 en 26 Agosto 2009, 17:44 pm