:: 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

[...]
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
[...]

echo   Se han encontrado las siguientes planillas:
echo.
echo  ÉÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
echo  º CONS º                            PLANILLA                            º
echo  ÌÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹
SetLocal EnableDelayEdexpansion
set /A count=0
for /f "delims=\ tokens=1-6" %%A in ('findstr /R /I /C:"_%planilla%_" O:\%anno%\list_busqueda\%mes%.txt') do (
	set /A count+=1
	echo  º   !count!  º  %%F
	echo  ÌÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
	set ruta!count!="%%A\%%B\%%C\%%D\%%E\%%F"
)

	if not defined ruta1 (
		echo   Planilla %planilla% no existe o la lista de busqueda no esta actualizada
		echo.
		pause
		goto main 
	)
echo.
echo   Ingrese consecutivo planilla que desea ver:
echo   n = nueva busqueda   x = salir
set /p opc="> "
if not defined opc (goto encontrados)
set opc=%opc: =_%
if %opc%==n (
	EndLocal
	goto main 
	)
if %opc%==N (
	EndLocal
	goto main
	)
if %opc%==x goto exit 
if %opc%==X goto exit
if %opc% GEQ 1 (
	if %opc% LEQ %count% (
	call:open
	)
)
EndLocal
goto encontrados

:open
	if %opc%==1 if defined ruta1 start C:\Notepad++\notepad++5.3.1.exe %ruta1%
	if %opc%==2 if defined ruta2 start C:\Notepad++\notepad++5.3.1.exe %ruta2%
	if %opc%==3 if defined ruta3 start C:\Notepad++\notepad++5.3.1.exe %ruta3%
	if %opc%==4 if defined ruta4 start C:\Notepad++\notepad++5.3.1.exe %ruta4%
	if %opc%==5 if defined ruta5 start C:\Notepad++\notepad++5.3.1.exe %ruta5%
	if %opc%==6 if defined ruta6 start C:\Notepad++\notepad++5.3.1.exe %ruta6%
	if %opc%==7 if defined ruta7 start C:\Notepad++\notepad++5.3.1.exe %ruta7%
	if %opc%==8 if defined ruta8 start C:\Notepad++\notepad++5.3.1.exe %ruta8%
	if %opc%==9 if defined ruta9 start C:\Notepad++\notepad++5.3.1.exe %ruta9%
	if %opc%==10 if defined ruta10 start C:\Notepad++\notepad++5.3.1.exe %ruta10%
goto:EOF

@echo off
:encontrados

SetLocal EnableDelayEdexpansion
set /A count=0
echo on
	for /f "delims=\ tokens=1-6" %%A in (c:\temp.txt) do (
		set /A count+=1
		echo !count! ¯ %%D: %%F
		set ruta!count!="%%A\%%B\%%C\%%D\%%E\%%F"
		echo %ruta!count!%
	)

echo.
echo Ingrese consecutivo planilla que desea ver: count = %count%

set /p opc="> "
set opc=%opc: =_%
if %opc%==n goto main
if %opc%==x goto fin
::if not defined opc (goto encontrados)

if %opc% GEQ 1 (
	if %opc% LEQ %count% (
	::COMO HAGO PARA QUE ABRA EL ARCHIVO SELECCIONADO?
	)
)
EndLocal
goto encontrados

set linea!count!=%%A
echo %linea!count!%

...
SetLocal EnableDelayEdexpansion    //Gracias a Pony-Magic.
set /A count=0

	for /f "delims=\ tokens=1-6" %%A in (temp.txt) do (
		set /A count+=1
		echo !count! ¯ %%D: %%F	
		set ruta!count!="%%A\%%B\%%C\%%D\%%E\%%F"
		)

echo.
echo Ingrese consecutivo planilla que desea ver: count = %count%

set /p opc="> "
if %opc%==n goto main
if %opc%==x goto fin
if not defined opc (goto encontrados)
set open=%%ruta!opc!%%
if %opc% GEQ 1 (
	if %opc% LEQ %count% (
		echo open = %open%
		rem notepad %open%  //intenta abrir el archivo rutan...
		echo ruta3 = %ruta3%
	)
)

EndLocal
...

...
set /p opc="> "                                   //El usuario ingresa 2
if not defined opc (goto encontrados)
set open=%%ruta!opc!%%
if %opc% GEQ 1 (
	if %opc% LEQ %count% (
		echo ruta!opc! ^= %%ruta!opc!%%  // Imprime "%ruta2%"
		echo open ^= %open%                   // Imprime "%ruta2%"
		notepad %open%                           //Intenta abrir el archivo "%ruta2%"
	)
)
...

SetLocal EnableDelayEdexpansion
	for /f "delims=\ tokens=1-6" %%A in (c:\temp.txt) do (
		set /A count+=1
		echo !count! ¯ %%D: %%F	
		set ruta!count!="%%A\%%B\%%C\%%D\%%E\%%F"
		echo.
		)

[pre]
:encontrados
set /A count=0
	for /f "delims=\ tokens=1-6" %%A in (c:\temp.txt) do (
		call:set
		echo %count% ¯ %%D: %%F       //El contador se queda en cero
		echo %rutacount%     //No se inicializó la variable para este ámbito?
		set %rutacount%="%%A\%%B\%%C\%%D\%%E\%%F"
		echo.
		)
	echo Termina el for
	echo Ruta1: %ruta1%    //Existe, pero está vació
	echo Ruta2: %ruta2%	   //Existe, pero está vació
	echo contador es %count%  //Ahora si muestra el contador en 2
pause
goto encontrados
...
...
:set
set /A count=count+1
set rutacount=ruta%count%
echo entro a countfor %count%
goto:EOF
[/pre]