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>