Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Mensajes - dany22_
Páginas: [1]
1
« en: Sábado 3 de Mayo de 2014, 19:00 »
Relativamente Facil si se utiliza un objeto HTTPRequest, como se usa para AJAX
Te pongo un ejemplo sencillo de como leer una pagina con este metodo, por supuesto hay otros metodos... entre ellos insertar un webbrowser de los que recuerdo ahorita...
OleObject HTTPRequest Long ret,ll_PosicionCadena Boolean lb_Error String ls_HTML,ls_URL,ls_Cadena HTTPRequest = Create OLEObject ret = HTTPRequest.ConnectToNewObject( "Msxml2.XMLHTTP" ) if ret<0 then ret = HTTPRequest.ConnectToNewObject("Microsoft.XMLHTTP" ) end if // Si ocurre un error detenemos la rutina if ret <0 then MessageBox('Error','No ha sido posible crear el objeto') return end if //Llamar Pagina ls_URL = "http://www.sunat.gob.pe/cl-at-ittipcam/tcS01Alias" lb_Error=false HTTPRequest.open("GET",ls_URL,false) HTTPRequest.send() if HTTPRequest.status=200 then ls_HTML = HTTPRequest.responseText yield() else ls_HTML ='Sitio No Disponible' lb_Error=true end if //Obtenemos el Codigo de la Pagina HTML //MessageBox(ls_URL,ls_HTML) <============================== if not lb_Error then //Buscar Una Cadena en el Codigo Fuente ls_Cadena ='Para efectos del Impuesto' ll_PosicionCadena = Pos(ls_HTML,ls_Cadena) if ll_PosicionCadena >0 then /* Cadena Encontrada */ /* Mostrar la cadena que aparece en el sitio (como Ejemplo): ========================================= " Para efectos del Impuesto a la Renta, se deberá tomar el tipo de cambio de cierre, al 31 de Diciembre del ejercicio correspondiente " ========================================= */ MessageBox('SoloCodigo.com - F_Tanori ','~n'+'SUNAT dice: ~n ~n'+mid(ls_HTML,ll_PosicionCadena,135) +'~n ~n'+ls_URL) end if end if
El ejemplo esta hecho 'continuo' para efectos practicos, pero lo ideal es separarlo ya sea creando una clase para esta tarea o en funciones, la busqueda es solo una pista, tambien puedes usar expresiones regulares, bueno eso ya corre por tu cuenta
Saludos
Hola que tal como estas quisera pedirte porfavor si me podrias ayudar con un codigo asi para obtener el tipo de cambio de sunat visual basic 6
Páginas: [1]
|