eliminar variables ¿se puede?

[Jonny]

Hola

así viendo la función Assign, me surge una curiosidad.

Si con esta función, además de asignar un valor a una variable por su nombre, podemos crear variables en tiempo de ejecución.

¿Es posible destruir variables en tiempo de ejecución?.

No me refiero a hacer algo como:

Código: Seleccionar todo

$myvar=""

sino, a destruir $myvar, de forma que no exista en el programa. Yo creo que no hay forma de hacerlo, pero...

No es que lo necesite, pero quien sabe algún día :).

Salu2!

[Ximorro]

Pues yo diría que no.
Como mucho las variables que "dejan de existir" son las locales fuera de sus correspondientes funciones o las variables índice de los bucles FOR (que son locales al bucle).
Pero no he visto nada que permita "desdeclarar" variables.

Otra cosa es que necesites liberar memoria, cuando esas variables referencian objetos, matrices o largas cadenas, que pueden ocupar mucha memoria.
En ese caso basta asignarles un cero, y el sistema AutoIT está preparado para liberar la memoria de esos elementos que dejan de estar referenciados por variables (es un proceso que se llama "recolección de basura" )

[Jonny]

Lo que me temía, que no sería posible.
La verdad, es que mucho sentido no tiene, pero tampoco lo tiene el poder declararlas ¿no?.
Pero bueno, como dices, el único fin que le vería a desdeclarar variables sería liberar memoria, y como dices se hace perfectamente.
¿0 o "" ¿no?? o no sería lo mismo...

Salu2!

[Ximorro]

¡¿Cómo que no tiene sentido poder declararlas?!
Claro que tiene sentido, a la hora de desarrollar declarar las variables quita muchos dolores de cabeza.
Yo cuando hago programas de mínima complejidad ya pongo el Opt("MustDeclareVars", 1), así luego si por ejemplo me equivoco al poner el nombre de una variable o si intento usar globalmente una variable local o cosas así, me entero enseguida.

Para "resetear" una variable yo le pondría un cero entero numérico. Una cadena vacía no es un valor tan simple como crees, igual está implementado dentro de AutoIt como una estructura o un objeto que implicará reserva de memoria y otras cosas.

[Jonny]

Ups, perdón, no me he explicado bien.
Quería decir, que no tiene sentido declarar variables en tiempo de ejecución, con Assign(). Vamos, no suele ser lo corriente. Lo normal, es que el programa tenga las variables ya declaradas.
Yo lo hago exactamente igual que tú. Antes no, pero me convencí al final, del gran dolor de cabeza que ahorra forzar la declaración de variables :).

Salu2!

[ms999]

Yo cuando estoy creando algun script que necesita cargar montones de cosas desde archivos INIs y crear GUIs que necesitan monton de variables de "apoyo" para lograr crearse de la manera que necesito hago lo siguiente, declaro solo globales las variables que se que van a ser necesarias en el futuro del script y luego creo la GUI desde una funcion donde declaro locales todas esas variables auxiliares que me ayudaran a crear la GUI, asi me aseguro que las variables locales seran "destruidas" y que solo estare conservando las que quiero.

[kotoqu]

Hola Ximorro. Gusto en saludarle.

Tengo un scrip que requiere ocupar muchas veces la misma función. Lo que pasa es que me ocupa rápidamente toda la memoria y esta aumenta de forma incremental hasta que me tira el ordenador.

Ud. me podría orientar como hago para liberar la memoria cada vez que ejecuta una instancia de la función. Especialmente eso de "Recoger la basura" y resetear las variables con un Cero.

Agradecería muchisimo su ayoda.

Saludos.

[Dany]

Si usas una función al terminar de ejecutarse esa función las variables se liberan automáticamente. a menos que sean constantes o estáticas. podrías poner parte del código para que estemos mas claro porque se cuelga.

saludos

[kotoqu]

Me da un poco de verguenza por lo rústico del código, pero ahí va.

Código: Seleccionar todo

#include <Inet.au3>
#include <file.au3>
#include <String.au3>


$Fichero_MSG  = "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\TABLA Jose Baro\Tabla Ordinaria.txt"


FileOpen($Fichero_MSG, 10)
FileClose($Fichero_MSG)







 
 
Local $Ingreso 		= "Civil-6016-2013"
Local $Caratula		= "CUEVAS PALMA PAOLA CAROLINA / ISAPRE FUSAT LIMITADA"
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\CUEVAS PALMA PAOLA CAROLI biG1W\CUEVAS PALMA PAOLA CAROLI biG1W - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=6016&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-6015-2013"
Local $Caratula		= "ARRIBILLAGA VILAZA ANTONIO / ISAPRE FUSAT LIMITADA"
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\ARRIBILLAGA VILAZA ANTONI biG1M\ARRIBILLAGA VILAZA ANTONI biG1M - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=6015&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-6014-2013"
Local $Caratula		= "SALINAS LAVADO JAIME / ISAPRE FUSAT LIMITADA"
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\SALINAS LAVADO JAIME  con biG1K\SALINAS LAVADO JAIME  con biG1K - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=6014&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-4546-2013"
Local $Caratula		= "RECURRENTE: VICTOR ABDRIAN ZEPEDA FERNANDEZ. RECURRIDO: ISAPRE CONSALUD S.A."
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RECURRENTE VICTOR ABDRIAN tv1lR\RECURRENTE VICTOR ABDRIAN tv1lR - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=4546&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-2176-2013"
Local $Caratula		= "RECURRENTE: PAOLA CAROLINA CUEVAS PALMA. RECURRIDO: ISAPRE FUSAT LIMITADA."
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RECURRENTE PAOLA CAROLINA NGglI\RECURRENTE PAOLA CAROLINA NGglI - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=2176&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-2170-2013"
Local $Caratula		= "RECURRENTE: JAIME ALBERTO SALINAS LAVADO. RECURRIDO: ISAPRE FUSAT LIMITADA."
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RECURRENTE JAIME ALBERTO  NGglG\RECURRENTE JAIME ALBERTO  NGglG - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=2170&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Reforma Laboral-909-2013"
Local $Caratula		= "GARCIA CON INGENIERIA Y PROYECTOS OEM SPA"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\GARCIA CON INGENIERIA Y P NFLrN\GARCIA CON INGENIERIA Y P NFLrN - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=18&ROL_Recurso=909&ERA_Recurso=2013&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-976-2013"
Local $Caratula		= "RECURRENTE: JULIO ENRIQUE GONZALEZ LOYOLA. RECURRIDO: ISAPRE COLMENA GOLDEN CROSS S.A."
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RECURRENTE JULIO ENRIQUE  NF7uj\RECURRENTE JULIO ENRIQUE  NF7uj - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=976&ERA_Recurso=2013&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Reforma Laboral-1830-2011"
Local $Caratula		= "JUCHNOWICZ CON MIYASATO CHILE SA"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\JUCHNOWICZ CON MIYASATO C hIax3\JUCHNOWICZ CON MIYASATO C hIax3 - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=18&ROL_Recurso=1830&ERA_Recurso=2011&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-1111-2011"
Local $Caratula		= "RECURRENTE:JOSÉ ELISEO BOZO ZÚÑIGA; RECURRIDO: ISAPRE FUSAT LIMITADA.REP. JAIME FRANCISCO DE LA FUENTE BRAVO"
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RECURRENTEJOSÉ ELISEO BOZ hI4pf\RECURRENTEJOSÉ ELISEO BOZ hI4pf - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=1111&ERA_Recurso=2011&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Civil-746-2010"
Local $Caratula		= "RECURRENTE: ANTONIO ARRIBILLAGA VILAZA. RECURRIDO: ISAPRE FUSAT LTDA"
Local $Corte		= "CORTE DE APELACIONES DE RANCAGUA"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RECURRENTE ANTONIO ARRIBI hHaZZ\RECURRENTE ANTONIO ARRIBI hHaZZ - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=1&ROL_Recurso=746&ERA_Recurso=2010&COD_Corte=35&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Reforma Laboral-421-2010"
Local $Caratula		= "VIVIENDAS METROPOLITANAS S.A. CON INSPECCION PROVINCIAL DEL TRABAJO SANTIAGO"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\VIVIENDAS METROPOLITANAS  hH18M\VIVIENDAS METROPOLITANAS  hH18M - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=18&ROL_Recurso=421&ERA_Recurso=2010&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-9571-2009"
Local $Caratula		= "FREDES BASTIAS LUIS CRISTIAN / ISAPRE CRUZ BLANCA S.A"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\FREDES BASTIAS LUIS CRIST hH0Sq\FREDES BASTIAS LUIS CRIST hH0Sq - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=9571&ERA_Recurso=2009&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-7833-2009"
Local $Caratula		= "CORTES ZAMORA URSULA/TESORERIA GENERAL DE LA REPUBLICA"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\CORTES ZAMORA URSULA con  hGXWO\CORTES ZAMORA URSULA con  hGXWO - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=7833&ERA_Recurso=2009&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-7767-2009"
Local $Caratula		= "GAETE GONZALEZ LEONARDO/TESORERIA GENERAL DE LA REPUBLICA"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\GAETE GONZALEZ LEONARDO c hGXWH\GAETE GONZALEZ LEONARDO c hGXWH - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=7767&ERA_Recurso=2009&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-7554-2009"
Local $Caratula		= "RIOJA VASQUEZ HECTOR/TESORERIA GENERAL DE LA REPUBLICA"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RIOJA VASQUEZ HECTOR con  hGXGj\RIOJA VASQUEZ HECTOR con  hGXGj - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=7554&ERA_Recurso=2009&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-7297-2009"
Local $Caratula		= "RAMOS VERA ANTONIO/TESORERIA  GENERAL DE LA REPUBLICA"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\RAMOS VERA ANTONIO con TE hH0lh\RAMOS VERA ANTONIO con TE hH0lh - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=7297&ERA_Recurso=2009&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-2919-2009"
Local $Caratula		= "BRIESE GARRIDO ROLF GUNTHER / ISAPRE COLMENA GOLDEN CROSS S.A"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\BRIESE GARRIDO ROLF GUNTH hH04X\BRIESE GARRIDO ROLF GUNTH hH04X - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=2919&ERA_Recurso=2009&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-11703-2008"
Local $Caratula		= "WISTUBA QUEZADA ELIZABETH / ISAPRE BANMEDICA S.A"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\WISTUBA QUEZADA ELIZABETH hGXpv\WISTUBA QUEZADA ELIZABETH hGXpv - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=11703&ERA_Recurso=2008&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################


 
 
Local $Ingreso 		= "Trabajo-menores-p.local-11702-2008"
Local $Caratula		= "SOTO PEREIRA CRISTIAN MARCELO / ISAPRE BANMEDICA S.A"
Local $Corte		= "CORTE DE APELACIONES DE SANTIAGO"
Local $Fichero		= "C:\Users\Cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\Causas Jose Baro\SOTO PEREIRA CRISTIAN MAR hGUtY\SOTO PEREIRA CRISTIAN MAR hGUtY - Tabla.txt"
Local $Link_Causa	= "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleAtPublicoAccion.do?TIP_Consulta=1&COD_Libro=3&ROL_Recurso=11702&ERA_Recurso=2008&COD_Corte=90&"
Tabla_Ordinaria ()
 
 
;###########################################################################################################################################################################################################################




























Func Tabla_Ordinaria()



				Local $Loop = 0
				Do


					$TxT_ER = StringRegExpReplace($Ingreso, "[-qwertyuiopñlkjhgfdsazxcvbnmQWERTYUIOPÑLKJHGFDSAZXCVBNMáéíóúÁÉÍÓÚ.]", "")
					;MsgBox(0,"TxT_ER", $TxT_ER)

					$rg = StringRight($TxT_ER, 4)
					;MsgBox(0,"Rg", $rg)

					$RepRG = StringReplace($rg, $rg, "-" & $rg & "")
					;MsgBox(0,"RepRG", $RepRG)

					$Mrg = StringReplace($TxT_ER, $rg, $RepRG)
					;MsgBox(0,"Mrg", $Mrg)

					$Rp2 = StringRegExpReplace($Ingreso, "[0123456789]", "")
					;MsgBox(0,"TxT_ Rp2", $Rp2)

					$RP_Oupt = StringReplace($Ingreso, $Ingreso, $Mrg & " " & $Rp2 & "")
					;MsgBox(0,"RP_Oupt", $RP_Oupt)

					$Ingresox = StringTrimRight($RP_Oupt, 2)
					;MsgBox(0,"INGRESO", $Ingresox, 0.3)




					Select

								Case $Corte 	= "CORTE DE APELACIONES DE ANTOFAGASTA"
									 $Carpeta 	= "Antofagasta"
									 $Tipo_tablaCorte = 15
									 $corte2	= "C.A.+DE+ANTOFAGASTA&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE ARICA"
									 $Carpeta	= "Arica"
									 $Tipo_tablaCorte = 10
									 $corte2	= "C.A.+DE+ARICA&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE CHILLAN"
									 $carpeta 	= "Chillan"
									 $Tipo_tablaCorte = 45
									 $corte2	= "C.A.+DE+CHILLAN&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE CONCEPCION"
									 $Carpeta 	= "Concepcion"
									 $Tipo_tablaCorte = 46
									 $corte2	= "C.A.+DE+CONCEPCI%d3N&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE COPIAPO"
									 $Carpeta	= "Copiapo"
									 $Tipo_tablaCorte = 20
									 $corte2	= "C.A.+DE+COPIAP%d3&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE COYHAIQUE"
									 $Carpeta 	= "Coyhaique"
									 $Tipo_tablaCorte = 60
									 $corte2	= "C.A.+DE+COYHAIQUE&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE IQUIQUE"
									 $Carpeta 	= "Iquique"
									 $Tipo_tablaCorte = 11
									 $corte2	= "C.A.+DE+IQUIQUE&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE LA SERENA"
									 $Carpeta 	= "La Serena"
									 $Tipo_tablaCorte = 25
									 $corte2	= "C.A.+DE+LA+SERENA&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE PUERTO MONTT"
									 $Carpeta 	= "Puerto Montt"
									 $Tipo_tablaCorte = 56
									 $corte2	= "C.A.+DE+PUERTO+MONTT&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE PUNTA ARENAS"
									 $Carpeta 	= "Punta Arenas"
									 $Tipo_tablaCorte = 61
									 $corte2	= "C.A.+DE+PUNTA+ARENAS&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE RANCAGUA"
									 $Carpeta 	= "Rancagua"
									 $Tipo_tablaCorte = 35
									 $corte2	= "C.A.+DE+RANCAGUA&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE SAN MIGUEL"
									 $Carpeta 	= "San Miguel"
									 $Tipo_tablaCorte = 91
									 $corte2	= "C.A.+DE+SAN+MIGUEL&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE SANTIAGO"
									 $Carpeta 	= "Santiago"
									 $Tipo_tablaCorte = 90
									 $corte2	= "C.A.+DE+SANTIAGO&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE TALCA"
									$Carpeta 	= "Talca"
									$Tipo_tablaCorte = 40
									$corte2	= "C.A.+DE+TALCA&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE TEMUCO"
									 $Carpeta 	= "Temuco"
									 $Tipo_tablaCorte = 50
									 $corte2	= "C.A.+DE+TEMUCO&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE VALDIVIA"
									 $Carpeta 	= "Valdivia"
									 $Tipo_tablaCorte = 55
									 $corte2	= "C.A.+DE+VALDIVIA&GLS_Tabla="

								Case $Corte 	= "CORTE DE APELACIONES DE VALPARAISO"
									 $Carpeta 	= "Valparaiso"
									 $Tipo_tablaCorte = 30
									 $corte2	= "C.A.+DE+VALPARA%cdSO&GLS_Tabla="

						EndSelect


;MsgBox( 0, "Corte", $Corte)


;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


$Dir = "C:\Users\cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\TABLAS\Tablas Ordinarias\" & $Carpeta & "\"

$search = FileFindFirstFile   ($dir & "*.txt")


; Chequea si la búsquea a sido satisfactoria
If $search = -1 Then
    MsgBox(0, "Error", "No fiheros/directorios coincidentes con el criterio anterior")
    Exit
EndIf

While 1
    $file = FileFindNextFile($search)
    If @error Then ExitLoop

    ;MsgBox(4096, "Fichero:", $file)

	$FO = FileOpen ($dir & $file)
	$FR = FileRead ($dir & $file)


$STR = StringInStr ($FR, $Ingresox)
;MsgBox(4096, "Fichero", $STR)



;####################################################################################################################################################################

ToolTip(" ", 550, 250, $Ingreso&" Jose Baro",0)
;SplashTextOn ("Tabla Agregada Aldo Massoni","Sala "&$Trib&" Día "&$fechatabla&" "&$Ingreso&" Aldo Massoni",400,40, 700,250,20,"",10)

;######################################################################################################################################################################




If $STR = 0 Then

						ContinueLoop

					Else

						;MsgBox(0, "Hay Ingreso", $Separador)








;;;;;;;;;;;;;      TIPO DE TABLA EN PALABRAS        ;;;;;;;;;;;;;;;;;;
$Tablaxx = _StringBetween ($FR, "TABLA ", "</TH>")
$Tablax = StringReplace ($Tablaxx[0], "-", "")
$Tabla  = StringStripWS ($Tablax, 3)
;msgBox (0, "Tabla en Palabras", $Tabla)

$Tabla2xx = StringReplace ($Tabla, " ", "+")
$Tabla2x = StringReplace ($Tabla2xx, "-", "")
$Tabla2  = $Tabla2x&"&"
;msgBox (0, "Tabla Compuesta", $Tabla2)

;;;;;;;;;;;;;     TIPO DE TABLA EN NÚMERO ;;;;;;;;;;;;;;;;;;
$TablaNxx = StringRight ($file, 6)
$TablaNx = StringRegExpReplace($TablaNxx, "[-qwertyuiopñlkjhgfdsazxcvbnmQWERTYUIOPÑLKJHGFDSAZXCVBNMáéíóúÁÉÍÓÚ.]", "")

$TablaN  = StringStripWS ($TablaNx,3)
;msgBox (0, "Tipo Tabla en Número", $TablaN)

;;;;;;;;;;;;      SALA EN PALABRAS     ;;;;;;;;;;;;;;;;;;;;;
$Salaxx 	= _StringBetween ($FR, "<B>Sala", "del")
$Salax = StringReplace ($Salaxx[0], "é", "%e9")
$Sala  = StringStripWS ($Salax, 3)
;msgBox (0, "Sala", $Sala)




;;;;;;;;;;;;      SALA EN NÚMERO     ;;;;;;;;;;;;;;;;;;;;;
$SalaNx = StringLeft ($file, 2)
$SalaN  = StringStripWS ($SalaNx,3)
;msgBox (0, "Sala en Numero", $SalaN)


;;;;;;;;;;;       FECHA     ;;;;;;;;;;;;;;;;;;;;;;;

$Fecha4 = StringTrimLeft ($file,3)
$Fecha3 = StringTrimRight ($Fecha4,6)
$Fecha2 = StringRegExpReplace($Fecha3, "[qwertyuiopñlkjhgfdsazxcvbnmQWERTYUIOPÑLKJHGFDSAZXCVBNMáéíóúÁÉÍÓÚ.]", "")
$Fecha1 = StringReplace ($Fecha2, "-", "/")
$Fecha  = StringStripWS ($Fecha1, 3)
;MsgBox (0, "Fecha Normal", $Fecha)

$Fechax = StringReplace ($Fecha, "/", "%2f")
;MsgBox (0, "Fecha Compuesta", $Fechax)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;ToolTip (" ",30,30, $INGRESOX & " " & $Tabla)








FileOpen($Fichero, 0)

Local $LeeFichero = FileRead($Fichero)

Local $Separador_Fichero = StringInStr($LeeFichero, $fecha)

		If $Separador_Fichero > 1 Then

					ExitLoop

			Else

;;;;;;;;;;  LUGAR    ;;;;;;;;;;;;;;;;;;;;;;;;

							Local $Lugar5 = StringInStr ($FR,$Ingresox)


							Local $Lugar4 = StringMid ($FR, 1, $Lugar5)
							;MsgBox (0, "Lugar4", $Lugar4)
							Local $Lugar3 = StringTrimRight ($Lugar4, 70)
							;MsgBox (0, "Lugar3", $Lugar3)
							Local $Lugar2 = StringRight ($Lugar3, 200)
							;MsgBox (0, "Lugar2", $Lugar2)
							Local $Lugar1 = StringRegExpReplace($Lugar2, '[-qwertyuiopñlkjhgfdsazxcvbnmQWERTYUIOPÑLKJHGFDSAZXCVBNMáéíóúÁÉÍ!ÓÚ."/\=><]', "")
							;MsgBox (0, "Lugar1", $Lugar1)
							Local $Lugar  = StringStripWS ($Lugar1, 3)
							;MsgBox (0, "Lugar", $Lugar)



							;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

							;;;;;;;;;;;;  RELATOR  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


							Local $Relatorx = StringInStr($FR, "Relator", 1)
							;MsgBox(0,"Hay Relator", $Relatorx)

							Local $Link = "http://corte.poderjudicial.cl/SITCORTEPORWEB/ConsultaDetalleProgramacionAccion.do?TIP_Consulta=1&COD_Corte=" & $Tipo_tablaCorte & "&TIP_Tabla=" & $TablaN & "&FEC_Ingreso=" & $fechax & "&NUM_Sala=" & $SalaN & "&GLS_Sala=" & $Sala & "&GLS_Corte=" & $Corte2 & $Tabla2 & ""



							If $Relatorx = 0 Then


								$Link_Rel = "http://corte.poderjudicial.cl/SITCORTEPORWEB/TablaRelatoresViewAccion.do?TIP_Consulta=1&COD_Corte=" & $Tipo_tablaCorte & "&TIP_Tabla=" & $TablaN & "&GLS_Corte=" & $Corte2 & $Tabla2 & ""
								;MsgBox (0,"Ver_Rel", $Link_Rel)
								$FR_Rel = _INetGetSource($Link_Rel)

								;InputBox ("Fuente","FR_Rel",$FR_Rel)



								;MsgBox (0,"Link", $Link)

								$Link_RelX = "/SITCORTEPORWEB/ConsultaDetalleProgramacionAccion.do?TIP_Consulta=1&COD_Corte=" & $Tipo_tablaCorte & "&FEC_Ingreso=" & $fechax & "&TIP_Tabla=" & $TablaN & "&NUM_Sala=" & $SalaN & "&GLS_Sala=" & $Sala & "&GLS_Corte=" & $Corte2 & $Tabla2 & "'" & ' onclick="ValDobleSubmit()">'
								;InputBox ("Link_Relx","", $Link_RelX)
								;/SITCORTEPORWEB/ConsultaDetalleProgramacionAccion.do?TIP_Consulta=1&COD_Corte=60&FEC_Ingreso=29%2f11%2f2013&TIP_Tabla=3&NUM_Sala=1&GLS_Sala=Primera&GLS_Corte=C.A.+DE+COYHAIQUE&GLS_Tabla=ORDINARIA&


								$Tab_Rel = _StringBetween($FR_Rel, $Link_RelX, "</a>")

								Local $Relator = StringStripWS($Tab_Rel[0], 3)
								;MsgBox (0,"Tab_Rel", $Tab_Rel[0])



							Else

								Local $RelatorSi = StringMid($FR, $Relatorx + 75, 39)

								;MsgBox(0,"info", $RelatorSi)
								$Relator = StringStripWS($RelatorSi, 3)

							EndIf



							;MsgBox(0, "Relator", $Relator)



							;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
							;GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG  U R L     S H O R T E N E R   GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGG

							$Link6 = StringReplace($Link,  "%", "%25")
							$Link5 = StringReplace($Link6, ":", "%3A")
							$Link4 = StringReplace($Link5, "/", "%2F")
							$Link3 = StringReplace($Link4, "?", "%3F")
							$Link2 = StringReplace($Link3, "=", "%3D")
							$Link1 = StringReplace($Link2, "&", "%26")
							$Link0 = StringReplace($Link1, "+", "%2B")

							;InputBox ("Link","", $Link)
							;InputBox ("Link","", $Link0)


							$LinkShort = "http://api.bit.ly/shorten?version=2.0.1&longUrl=" & $Link0 & "&login=kotoqu&apiKey=R_618f5ef16762cdcb0107a1a8fa44cc8c"


							ClipPut($LinkShort)

							Sleep(1000)
							$oIE = ($LinkShort)


							$FR_Url = InetRead($oIE, 1)
							Local $nBytesRead = @extended
							;$Codigojava_Url= $FR_Url
							;MsgBox(4096, "", "Bytes leídos: " & $nBytesRead&@CRLF&$FR )

							Sleep(1000)
							;MsgBox(0, "URL", BinaryToString ($FR_Url))

							$URLSHORT = _StringBetween(BinaryToString($FR_Url), '"', '"')

							$Linkx = $URLSHORT[12]

							;MsgBox(0, "URL CORTA", $URLSHORT[12])



							;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;


							Local $texto = FileOpen($Fichero, 10)
							Sleep(3000)
							;FileWrite ($texto, "- Ud. Tiene una causa en Tabla: "&@CRLF&@CRLF&$Cortex&"  -  "&$tablaX&@CRLF&@CRLF&"Para su vista el día "&$fechatablax&@CRLF&@CRLF&$Salax&"ª  Sala     "&$lugar&"° Lugar"&@CRLF&@CRLF&"''"&$Caratula&"''"&@CRLF&"Ingreso: "&$Ingreso&@CRLF&@CRLF&"Relator(a): "&$Relator&@CRLF&@CRLF&"Link de la Tabla: "&$Link&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"")
							FileWrite($texto, "- Ud. tiene una causa en TABLA " & $Tabla & " para el día " & $fecha & " en la  " & $SalaN & "ª SALA  " & $Lugar & "° LUGAR" & @CRLF & @CRLF & $Corte & "     Ingreso: " & $Ingreso & @CRLF & "''" & $Caratula & "''" & @CRLF & @CRLF & "Relator (a): " & $Relator & @CRLF & @CRLF & "Link de la Tabla " & $Tabla & ":   " & $Linkx & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & "")

							Sleep(3000)
							FileOpen($Fichero_MSG, 1)
							;FileWrite ($Fichero_MSG, "- Ud. Tiene una causa en Tabla: "&@CRLF&@CRLF&$Cortex&"  -  "&$tablaX&@CRLF&@CRLF&"Para su vista el día "&$fechatablax&@CRLF&@CRLF&$Salax&"ª  Sala     "&$lugar&"° Lugar"&@CRLF&@CRLF&"''"&$Caratula&"''"&@CRLF&"Ingreso: "&$Ingreso&@CRLF&@CRLF&"Relator(a): "&$Relator&@CRLF&@CRLF&"Link de la Tabla: "&$Link&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&@CRLF&"")
							FileWrite($Fichero_MSG, "- Ud. tiene una causa en TABLA " & $Tabla & " para el día " & $fecha & " en la  " & $SalaN & "ª SALA  " & $Lugar & "° LUGAR" & @CRLF & @CRLF & $Corte & "     Ingreso: " & $Ingreso & @CRLF & "''" & $Caratula & "''" & @CRLF & @CRLF & "Relator (a): " & $Relator & @CRLF & @CRLF & "Link de la Tabla " & $Tabla & ":   " & $Linkx & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & @CRLF & "")





						EndIf

					EndIf



WEnd
; Cierra el identificador de la búsqueda
FileClose($search)




				Until $Loop = 0


		;InetClose($FR_Rel) ; Cierrra el identificador para liberar el recurso
		;InetClose($FR_Url) ; Cierrra el identificador para liberar el recurso

EndFunc

#Include <C:\Users\cristian\Documents\ALARMA RESOLUCIONES\Causas de Clientes\TABLA Jose Baro\Codigo Correo - Jose Baro.au3>