Traer nombre de una persona dada su cedula desde el CNE (Venezuela)

4,186 views
Skip to first unread message

Irwin Rodriguez

unread,
Apr 23, 2015, 9:51:55 AM4/23/15
to publice...@googlegroups.com
Saludos a todos!

Pues basicamente la utilidad hace eso, trae el nombre de una persona dada su cédula de identidad. Esto trae como ventaja el poder tener una tabla de clientes depurada ya que se evitan los posibles errores de transcripción del usuario.

Saludos!!!
ConsultaCNE._rar

softp...@gmail.com

unread,
Apr 23, 2015, 11:33:12 AM4/23/15
to publice...@googlegroups.com
Amigo mio, es bueno que otro programador ayude a otro programador, primero que nada si quieres liberar un trabajo, te recomiendo que lo protejas de piratería, ya que el modulo es muy simple de modificar,
Segundo, le has vuelto a poner 1.0, ósea estas de acuerdo a que significa ponerle 1.0 a un sistema.

Por que la verdad después que uno libera sus módulos, existen los Lamers que se cuelgan de trabajos de algunos, y lo hacen suyo la creación.

Por otra parte si deseas hacerlo libre, seria lo mejor, de esa manera compartes tu conocimiento, y no te molestaran diciendo que te vas a beneficiar.

Te recomiendo no subir modulos que te los puedan modificar los lamers y hacerse dueños del trabajo nuestro. solamente si lo vas a hacer SOFT LIBRE

Normandia

unread,
Apr 25, 2015, 10:04:34 AM4/25/15
to publice...@googlegroups.com
Gracias irwin por la oferta pero con la linea de codigo del amigo softperuano ya logre entrar a la pagina lo unico es que a veces hay que darle 2 veces a la consulta por que en la primera no la consulta
seguimos en contacto y pues la idea de este foro pienso que es ayudarnos.
como siempre estoy a sus ordens para cualquier cosa que pueda colaborar, GRAN ejemplo para esto nos han dado nuestros amigos de esta pagina DIOS les bendiga y les propere en todos sus proyectos
Saludos.
Venezuela

Jorge Galván Pérez

unread,
Apr 27, 2015, 4:06:14 PM4/27/15
to publice...@googlegroups.com

te devuelve en la variable información todos los datos registrados en el CNE.



El jueves, 23 de abril de 2015, 9:21:55 (UTC-4:30), Irwin Rodriguez escribió:

Elides Paredes

unread,
Apr 30, 2015, 12:01:47 PM4/30/15
to publice...@googlegroups.com

Amigo Jorge,

Traté de utilizar la función y no me funcionó. No se si es que lo entiendo mal. En la variable información debería retornar el nombre de la persona?, a partir de la cédula o Rif, si tengo el RIF. Por favor acláreme eso.

Si coloco solo la dirección en el buscador me aparece registrada la persona, como espero, sin embargo desde el formulario no funciona. 

Estuve leyendo en la página de microsoft
 (https://support.microsoft.com/en-us/kb/819267/es?wa=wsignin1.0)  y alli dice que por razones de seguridad

INFO: HTTP GET y HTTP POST están deshabilitados de manera predeterminada.


¿Será ese mi problema?, realmente agradecería muchísimo si me ayuda. Porque he querido hacer eso muchas veces y no se hacerlo, y no solo con la página del seniat sino con otras páginas

Saludos amigo.

Elides Paredes
Barquisimeto Venezuela

Jean Pierre Adonis De La Cruz Garcia

unread,
Apr 30, 2015, 12:57:49 PM4/30/15
to publice...@googlegroups.com
Elides paredes si deseas extraer la informacion te faltan algunos archivos, y algunas referencias

SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL")) ADDITIVE
?HTTPGet("http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad=V&cedula=22646822", "C:\Destination.htm", "MyProgress()", "MyTrace()")

Espero que se a lo que necesirtes.
Dentro del Zipeado ahi mas ejemplos
vfpconnection.zip

Elides Paredes

unread,
Apr 30, 2015, 3:06:52 PM4/30/15
to publice...@googlegroups.com

Gracias mi amigo .Jean Pierre.........

Voy a revisarlo con calma, porque aunque entiendo un poquito de inglés, pues, es técnico, por lo que he leído hasta ahora me puede ayudar mucho.

Muy agradecido.

Saludos´
Elides Paredes

Elides Paredes

unread,
Apr 30, 2015, 3:42:52 PM4/30/15
to publice...@googlegroups.com
lo hice así, pero no me funcionó. (Claro copie la librería). ¿Que le falta? me muestra .F. 
Como hay una librería que no se lo que hace, pregunto. como me puede devolver el nombre? 

 
SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL")) ADDITIVE
 

informacion = HTTPGet("http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad=V&cedula=22646822", "C:\Destination.htm", "MyProgress()", "MyTrace()")

WAIT WINDOW informacion AT 15,15 

De nuevo gracias por tu tiempo.

Elides Paredes 

Jean Pierre Adonis De La Cruz Garcia

unread,
Apr 30, 2015, 5:01:20 PM4/30/15
to publice...@googlegroups.com
Amigo Elides, si sigues la rutina que te di

SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL")) ADDITIVE
?HTTPGet("http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad=V&cedula=22646822", "C:\Destination.htm", "MyProgress()", "MyTrace()")

La pagina web, la va a descargar en la unidad C: con el nombre   Destination.htm
Era eso lo que necesitabas, o es otra cosa la que necesitas

Jorge Galván Pérez

unread,
Apr 30, 2015, 5:43:18 PM4/30/15
to publice...@googlegroups.com
Hola Eliades.

Te explico mejor y te agrego lo que necesitas

En tu programa principal pones

SET CLASSLIB TO clases\wwIPSTUFF &&ADDITIVE

SET PROCEDURE TO clases\wwUtils && ADDITIVE

Luego donde vallas hacer el llamado de la función.

o=CREATEOBJECT("wwIPStuff")

nacionalidad = "V"

cedula = "22646822"

filedevueto= o.HTTPGet(http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad="+nacionalidad+"&cedula="+cedula)

el la varieble filedevuelto tienes toda la información que arroja el CNE

allí puedes extraer el dato que necesites.

Te adjunto la funcion

 
wwsocket.zip

Elides Paredes

unread,
Apr 30, 2015, 6:28:33 PM4/30/15
to publice...@googlegroups.com

Amigo Jean Pierre. 
Me apena no saber que sucede. Son solo dos pasos

1 Copiar la libreria (fll) y
2 copio en el procedimiento click de un botón las dos líneas que me dices 

Al menos no me da error, (como estaba al principio), pero tampoco consigo la página C:\Destination.htm

Víctor Hugo Espínola Domínguez

unread,
Apr 30, 2015, 6:32:37 PM4/30/15
to publice...@googlegroups.com
Hola Elides

Algunas versiones de Windows no permiten crear archivos en la raíz del C:

Saludos,
Víctor.
Lambaré - Paraguay.

Jean Pierre Adonis De La Cruz Garcia

unread,
Apr 30, 2015, 6:39:53 PM4/30/15
to publice...@googlegroups.com
que version de windows y que Version de foxpro tienes.
Lo he probado en Windows 7 y Windows 8, con Foxpor 9, y no he tenido problemas.

SET LIBRARY TO (LOCFILE("vfpconnection.fll","FLL")) ADDITIVE
?HTTPGet("http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad=V&cedula=22646822", "Destination.htm", "MyProgress()", "MyTrace()")


Pruebalo sin poner la unidad C: y activa la Depuracion para ver que es lo que esta pasando.
Sino, te ayudo por Teamviewer, eso, si es que es antes de las 8:20pm, a esa hora salgoa descansar.

Elides Paredes

unread,
Apr 30, 2015, 6:43:46 PM4/30/15
to publice...@googlegroups.com


Windows 7 y Fox 9, dice Victor que algunos no permiten ponerlo en la raiz, voy a probar eso.


Elides Paredes 

Elides Paredes

unread,
Apr 30, 2015, 6:47:46 PM4/30/15
to publice...@googlegroups.com

Eso era.. Le cambié la carpeta destino y lo hace perfectamente... Gracias de nuevo.. a todos..
 
De nuevo gracias por tu tiempo.

Elides Paredes 



Eso era.. Le cambié la carpeta destino y lo hace perfectamente... Gracias de nuevo.. a todos..

Elides Paredes

unread,
Apr 30, 2015, 7:11:03 PM4/30/15
to publice...@googlegroups.com
La verdad no se me había ocurrido que se podía tener una página con los datos. Y no se como aplicar eso.
Mi intención inicial era tener en una variable los valores, (por lo menos el nombre de la persona o empresa) para que al consultar en la página del  RIF  me de la información a partir de su cédula o RIF, claro, si está en una  variable cualquiera puede meterlo en el formulario. Sin copiar y pegar, la forma tradicional.

Estoy analizando también lo que hizo Jorge, una función que si lo hace como quiero porque guarda la información en una variable. Aunque me interesa éste método también, (que lo guarda en una página web), porque - no solo no lo sabia hacer -, sino que nunca había visto algo así.

Lo que deseo además del RIF es poder ingresar en las páginas desde los formularios enviándoles parámetros. Por ejemplo: Estoy haciendo un sistema para controlar talleres (todavía es proyecto, porque aún no he podido terminarlo y venderlo) un sistema para gerentes de talleres, tengo por ejemplo un botón dentro de un formulario con el que accedo a mercado libre y le envío como parámetro la descripción del repuesto, la marca y modelo del vehículo. Aunque no busca los repuestos directamente, si queda la frase en el buscador de la página, (de mercado libre) solo hay que hacer click en el icono con la lupa (buscador) y presenta los artículos que deseo. y eso ahorra mucho tiempo. Lo cual es la idea cuando se programa. Dejar el trabajo fuerte al computador.

Ahora con lo que envió el  amigo Jorge, hice lo siguiente. Guarde la clase wwipstuff.vcx y wwipstuff.vcx,; también el PRG wwutils.PRG (solo esos).
y copié esto en el click del botón. No funciona, pero honestamente no esperaba eso, me dices te mando una función pero me enviaste un proyecto completo..Jajaja..muchas gracias, 

Ahora solo me falta entenderlo, es que son muchos PRGs y debo revisarlos todos y tratar de entenderlos..

Muchas muchas gracias.. A todos. les estaré informando de los progresos.

Elides Paredes

Normandia

unread,
May 2, 2015, 4:16:24 PM5/2/15
to publice...@googlegroups.com
saludos
probando el link de softperuano esta manera funciona perfectamente si ninguna libreria

http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad=V&cedula=22646822
logico al momento de incorporarlo al progarama

loxmlhttp.OPEN("GET","http://www.cne.gov.ve/web/registro_electoral/ce.php?nacionalidad="+SWnac+"&"+"cedula="+SWcedulax)



El jueves, 23 de abril de 2015, 9:21:55 (UTC-4:30), Irwin Rodriguez escribió:

Elides Paredes

unread,
May 4, 2015, 11:29:42 PM5/4/15
to publice...@googlegroups.com
Estimado Normandía, 

Probé, aunque supongo que hice algo mal y me dió un error No se encuentra la variable SWNAC, podrías por favor detallar mejor como se utiliza la función

Gracias

Saludos

Elides Paredes
Barquisimeto, Venezuela

Jean Pierre Adonis De La Cruz Garcia

unread,
May 5, 2015, 11:45:36 AM5/5/15
to publice...@googlegroups.com
Amigo Elides, esos vienen a ser variables nomas

SWNAC="V"
SWcedulax="22646822"

loxmlhttp.OPEN("GET","http://www.cne.gov.ve/web/registro_electoral/ce.php?nacionalidad="+SWnac+"&"+"cedula="+SWcedulax)


Jorge Galván Pérez

unread,
May 5, 2015, 2:08:37 PM5/5/15
to publice...@googlegroups.com
Hola Eliades.

Perdona por no probar lo que puse pensé que había copiado todo.

Aquí te dejo la función y todo el procedimiento que yo hago solo la función que devuelvas la cedula y el nombre, puedes modificar para que te retorne la dirección.

El adjunto que te envie puedes hacer muchísimas cosas, pero para lo que quieres hacer solo necesitas estos tres:
 wwipstuff.vcx
 wwipstuff.vcx,
 wwutils.prg

En tu programa Principal:

SET CLASSLIB TO clases\wwIPSTUFF &&ADDITIVE
SET PROCEDURE TO clases\wwUtils && ADDITIVE

cedula = "V22646822"    && Esta es la cedula que deseas buscar es un ejemplo
xcedverifica = ""
xnombre     = ""

getcedula(cedula, @xcedverifica, @xnombre)

MESSAGEBOX("Cédula : "+xcedverifica+" Nombre y Apellido : "+xnombre)     && Para que veas lo que retorno la función.


Aquí esta la Funcion

********************************************************************************************************************
*****Busca el nombre y apellido según un numero de cedula en la pagina del CNE (Venezuela) *******
********************************************************************************************************************
FUNCTION getcedula(vced, xced, xnombre)
LOCAL o, vlen, vinicio, vfinal, filedevuelto, sub_filedevuelto, vscreen, cMensage


o=CREATEOBJECT("wwIPStuff")
cMensage = "Conectando a internet"

vscreen = _Screen.Scalemode
_Screen.Scalemode = 0
Wait Window cMensage At Int(_Screen.Height/2),Int(_Screen.Width/2 - Len(cMensage)/2) nowait
_Screen.Scalemode = vscreen

 
filedevuelto= o.HTTPGet("http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad="+LEFT(vced,1)+"&cedula="+SUBSTR(vced,2))

IF EMPTY(filedevuelto) 
   MESSAGEBOX( "No se Encontró este RIF en Internet ó formato errado" ) 
   xnombre = "" 
   xced = ""
ELSE 
   vlen = LEN(filedevuelto) 

   IF AT("Cédula:",filedevuelto) > 0 
     vinicio = AT("Cédula:", filedevuelto) 
     xced = SUBSTR(filedevuelto,vinicio+45,LEN(vced)+1) 
   ELSE 
     xced = "" 
   ENDIF

   IF AT(">Nombre:<",filedevuelto) > 0 
     vinicio = AT(">Nombre:<", filedevuelto) 
     sub_filedevuelto = SUBSTR(filedevuelto, vinicio+48, vlen) 
     vfinal = AT('</b></td>',sub_filedevuelto) 
     xnombre = left(sub_filedevuelto,vfinal-1) 
   ELSE 
     xnombre = 0 
   ENDIF 

ENDIF

_cliptext = filedevuelto  &&& esto te sirve para que hagas un pegar en un editor de texto y veas todo lo que devolvió la pagina del CNE.

RETURN



Esta función esta probada y funciona 100%

Normandia

unread,
May 5, 2015, 7:49:12 PM5/5/15
to publice...@googlegroups.com

saludos eliades disculpa que no habia podido responderte
la explicacion que dan es correcta
son 2 variales que almacenan tanto la nacionalidad como el numero de cedula
lo unico que yo lo realice sin librerias directo como esta el ejemplo en otro hilo
uniendo un codigo con el otro me quedo asi:
   swnac="V"
   swcedulax="14067609"
   result3=""
   loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")

   loxmlhttp.OPEN("GET","http://www.cne.gov.ve/web/registro_electoral/ce.php?nacionalidad="+SWnac+"&"+"cedula="+SWcedulax)
   loxmlhttp.SEND()
   IF loxmlhttp.readystate==4 AND loxmlhttp.STATUS==200
       jsonstring= loxmlhttp.responsetext
       ******************************
       R3 = ALLTRIM(jsonstring)
       G1= AT("NOMBRE",UPPER(R3),1)
       R3 = SUBSTR(R3,G1,150)
       XY=""
       IF G1>0
           FOR I=48 TO 150
               IF SUBSTR(R3,I,1)="<"
                  I=I+200 
               ELSE
                  XY=XY+SUBSTR(R3,I,1)
               ENDIF
           NEXT I
           RESUL3=XY
      ENDIF
      if !empty(resul3)
         wait windows "NOMBRE ENCONTRADO:"+RESUL3
      ENDIF
*-----
eso es todo... y aqui esta el codigo
saludos.*-
Venezuela



El jueves, 23 de abril de 2015, 9:21:55 (UTC-4:30), Irwin Rodriguez escribió:

Elides Paredes

unread,
May 5, 2015, 7:52:25 PM5/5/15
to publice...@googlegroups.com

Gracias amigos. Jean Pierre y Normandía.

Voy a probar lo que enviaron, Por cierto Normadía, faltaba solo una cosita...jajaja...con razón, no corría nada.. Muchas gracias por tu tiempo y por compartir.

Por cierto, ayer hice algo que me gustó mucho y lo publiqué en un nuevo hilo, encontré una forma sencilla y mas 'entendible' de insertar imágenes dinámicas en el grid, me sorprende que nadie comentó algo. Pero como yo muchas veces hice lo mismo, (leía sin comentar), pues, no me afecta que no encuentre comentarios. Sin embargo, me gustaría que ustedes me den su opinión al respecto.

Saludos
Elides Paredes
Barquisimeto Venezuela.

Elides Paredes

unread,
May 5, 2015, 7:56:48 PM5/5/15
to publice...@googlegroups.com
Gracias amigo Jorge, en estos momentos estoy revisando el código para ponerlo a prueba.

Como dicen los españoles.. ya os comentaré luego de mis pruebas.. jajaja...

Saludos
Elides Paredes

Normandia

unread,
May 5, 2015, 8:06:00 PM5/5/15
to publice...@googlegroups.com
El objetivo de este grupo es ayudarnos y espero aportar un pequeño grano de arena al lado de los camiones de arena que los grandes de este grupo me han ayudado
a ellos vaya un saludo y mis respetos. Dios les siga bendiciendo y a los que ya partieron un recuerdo grato por sus grandes aportes.
Saludos
Venezuela


El jueves, 23 de abril de 2015, 9:21:55 (UTC-4:30), Irwin Rodriguez escribió:

Elides Paredes

unread,
May 5, 2015, 8:18:37 PM5/5/15
to publice...@googlegroups.com

Amigo Normandía..
 
Funcionó perfectamente.! Es algo así quería hacer. Muchas Gracias. Estoy probando también el otro código, (de Jorge), pero creo que aún me falta hacer algo porque no me funciona. Si me guarda en el clipboard un código, (como el de una página web supongo es HTML, o PHP, he hecho algunas cosas (paginas web), pero con DreamWeaver, pero me falta bastante, (de ese tema); Sin embargo en lo que se puede ver dice que no consiguió la cédula.

En todo caso voy a seguir revisando, de nuevo gracias.
 
Saludos
Elides Paredes 

Jorge Galván Pérez

unread,
May 6, 2015, 11:50:32 AM5/6/15
to publice...@googlegroups.com
Hola Eliades

Revise de nuevo y había un pequeño error, utilizo una variable que se llama cedula y cuando armo el link esta este pedazo "&cedula="  al parecer el interpreta este pedazo y vuelve a poner el numero de cedula completo, si declaras las variable LOCAL cedula pues esta no pasara a la función y te hallara la cedula y el nombre.

Otra forma seria poner esto

vlink            = "http://www.cne.gob.ve/web/registro_electoral/ce.php?nacionalidad="+LEFT(vced,1)+"&cedula="+SUBSTR(vced,2) 
filedevuelto = o.HTTPGet(vlink)

y funciona igual.


copie lo que te envié y lo probé tal cual y funciona.

Espero que esta vez si te funcione.


Por favor avísame a que como te fue.


Saludos



Elides Paredes

unread,
May 6, 2015, 2:37:21 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com
Estimado Amigo Jorge. 

hice la modificación y me quedó algo así

Nota:
Observa que cambié  cédula por cédula y por cédula (En el código, de las dos formas para probar) , Hice varios cambios y no logro que me funcione o quizás espero algo diferente.

Lo que quisiera es poder conseguir el nombre a partir de la cédula para hacerlo de otra forma.  aunque el código de Normandía funciona perfecto,  y lo hace tan rápido como si lo buscara en una base de datos propia y no de Internet. Pero me gustaría también saber porque no me funciona tu procedimiento.


* Al inicio me dice con un un mensaje registre su copia wwIPSTUFF

* Luego en el editor veo esto: (claro, entre otras cosas)
 *Esta cédula de identidad no se encuentra inscrita en el Registro Electoral.</td>


Así me quedo el PRG 
*=================

SET CLASSLIB TO 'C:\Aqui\Nueva Prueba\wwIPSTUFF' ADDITIVE 
SET PROCEDURE TO 'C:\Aqui\Nueva Prueba\wwUtils'  ADDITIVE

*!* SET CLASSLIB TO clases\wwIPSTUFF &&ADDITIVE 
*!* SET PROCEDURE TO clases\wwUtils && ADDITIVE

cedula = "V22646822"    && Esta es la cedula que deseas buscar es un ejemplo
xcedverifica = ""
xnombre     = ""

getcedula(cedula, @xcedverifica, @xnombre)

*  MESSAGEBOX("Cédula : "+xcedverifica+" Nombre y Apellido : "+xnombre)     && Para que veas lo que retorno la función.
* Puse un '*' porque me da error de incompatibilidad


****************************************************************************************
*Busca el nombre y apellido según un numero de cedula en la pagina del CNE (Venezuela) *
****************************************************************************************
FUNCTION getcedula(vced, xced, xnombre) 
LOCAL o, vlen, vinicio, vfinal, filedevuelto, sub_filedevuelto, vscreen, cMensage 


o=CREATEOBJECT("wwIPStuff") 
*!* cMensage = "Conectando a internet" 

*!* vscreen = _Screen.Scalemode 
*!* _Screen.Scalemode = 0 
*!* Wait Window cMensage At Int(_Screen.Height/2),Int(_Screen.Width/2 - Len(cMensage)/2) nowait 
*!* _Screen.Scalemode = vscreen 


LEFT(vced,1)+"&cedula="+SUBSTR(vced,2) 
filedevuelto = o.HTTPGet(vlink)


IF EMPTY(filedevuelto) 
   MESSAGEBOX( "No se Encontró ésta Cédula ó formato errado" ) 
   xnombre = "" 
   xced = "" 
ELSE 
   vlen = LEN(filedevuelto) 

   IF AT("Cedula:",filedevuelto) > 0 
     vinicio = AT("Cedula:", filedevuelto) 
     xced = SUBSTR(filedevuelto,vinicio+45,LEN(vced)+1) 
   ELSE 
     xced = "" 
   ENDIF 

   IF AT(">Nombre:<",filedevuelto) > 0 
     vinicio = AT(">Nombre:<", filedevuelto) 
     sub_filedevuelto = SUBSTR(filedevuelto, vinicio+48, vlen) 
     vfinal = AT('</b></td>',sub_filedevuelto) 
     xnombre = left(sub_filedevuelto,vfinal-1) 
   ELSE 
     xnombre = 0 
   ENDIF 

ENDIF 

_cliptext = filedevuelto  && esto te sirve para que hagas un pegar en un editor 
                          *de texto y veas todo lo que devolvió la pagina del CNE.

RETURN

PD: Gracias por tu Tiempo.

Saludos de
Elides Paredes
desde Barquisimeto Venezuela.

Jorge Galván Pérez

unread,
May 6, 2015, 4:32:31 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com

Ok otro intento mas.

Elides no cambies nada

vinicio = AT("Cédula:", filedevuelto) este string "Cédula:" lo devuelve tal cual la pagina del CNE no puedes cambiar ningún carácter.

te adjunto la clase el dll y el prg que hacen funcionar a la función

Créate una carpeta y descompacta y ejecuta el Programa BuscarCedula   (Do buscarcedula) 

el adjunto se llama buscarCI.ponerZIP  renombras este archivo a buscarCI.zip y lo descompactas




Avisame como te fue.....


Jorge Galván Pérez

unread,
May 6, 2015, 4:36:44 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com
Se me olvido agragar el archivo se llama BuscarCi.poner renombras a BuscarCI.zip
 
buscarCI.poner

Elides Paredes

unread,
May 6, 2015, 5:48:52 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com
Amigo Jorge, muchas gracias por tu tiempo.

De verdad quiero entender tu método, pero lo intenté de nuevo y no me funciona. Hoy estoy bastante cansado y mañana lo revisaré con mas detenimiento a ver si consigo mi error. 
No obstante, la función que ofrece Normandía, es demasiado simple y lo hace en menos de un segundo. La probaste?
Y no utiliza librerías. Por favor comenta que diferencias hay con la tuya, porque es mucho mas compleja, supongo que hace otras cosas.
 Mira la del Amigo Normandía, es muy simple: (Y claro, funciona)

  swnac="V"
   *swcedulax="14067609"
   swcedulax="7313284"   
   result3=""
   loxmlhttp = CREATEOBJECT("MSXML2.XMLHTTP")

   loxmlhttp.OPEN("GET","http://www.cne.gov.ve/web/registro_electoral/ce.php?nacionalidad="+SWnac+"&"+"cedula="+SWcedulax)
   loxmlhttp.SEND()

   IF loxmlhttp.readystate==4 AND loxmlhttp.STATUS==200
       jsonstring= loxmlhttp.responsetext
       ******************************
       R3 = ALLTRIM(jsonstring)
       G1= AT("NOMBRE",UPPER(R3),1)
       R3 = SUBSTR(R3,G1,150)
       XY=""
       IF G1>0
           FOR I=48 TO 150
               IF SUBSTR(R3,I,1)="<" 
                  I=I+200  
               ELSE
                  XY=XY+SUBSTR(R3,I,1)
               ENDIF
           NEXT I
           RESUL3=XY
      ENDIF
      if !empty(resul3)
         wait windows "NOMBRE ENCONTRADO: "+RESUL3
      ENDIF
 ENDIF 

Jorge Galván Pérez

unread,
May 6, 2015, 7:12:59 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com
Elides Paredes.

Ahora si amigo si no funciona pues me doy ya lo provee en otras versiones de Windows a ver si ese era el problema, lo que pasa es que necesitas varias clases y prg ya que unos se llaman a otros.

Esta es una clase completa para coneccion a paginas web también para ftp etc etc.

te adjunto de nuevo la función.

Cuando la descompactes y entres al VFP asegúrate que estes en ese directorio para que cuando se incluya las clases

Ej. 
Si descompactastes la función en el Directorio BUSCARCI

entonces en VFP has lo siguiente:

cd \BUSCARID
do buscarcedula

y debe funcionar.

 
buscarCI.poner

Víctor Hugo Espínola Domínguez

unread,
May 6, 2015, 7:54:16 PM5/6/15
to publice...@googlegroups.com
Hola Jorge

Puedes usar  la función STRCONV para un correcta visualización del nombre:

getcedula(vcedula, @xcedverifica, @xnombre)
xNombre = STRCONV(STRCONV(xNombre, 11), 2)

Haz la prueba con: vcedula = "V22646827" && Esta es la cedula que deseas buscar es un ejemplo

Saludos,
Víctor.
Lambaré - Paraguay.

Jorge Galván Pérez

unread,
May 6, 2015, 8:06:48 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com
 Gracias Victor Hugo

Y Elides no había visto la función de Normandia y de hecho que funciona sin clases ni nada externo, es mejor que la que te propuse. Disculpa por no haberla visto y me enfrasque en que funcionara la mia que de hecho la tengo funcionando para buscar los nombres de las personas jurídicas y el porcentaje de retención del IVA en la pagina del Seniat.

Gracias y mil disculpas.
  

Elides Paredes

unread,
May 6, 2015, 10:28:21 PM5/6/15
to publice...@googlegroups.com, rodrigu...@gmail.com

Amigo Jorge.. 
Esto es como un vicio. Estoy muy cansado porque estoy desde las 6 de la mañana pegado en la computadora. Y me queda aún el deseo de resolver el problema. ¿porqué a mi no me funciona?, pero es cierto, éste método es muy complicado, librería funciones y un algoritmo un poco largo.

Mi problema es básicamente que no se que arroja. Crea una página Web o qué?
lo pregunto por el código que se guarda en el portapapeles, hay otro similar, en este momento no recuerdo el nombre de quien lo envió, pero hace algo muy similar, crea la página. Por cierto fue Víctor, (otro sensei),  quien dio con el problema. El windows no me permitió poner una página web en la raíz. c:\, 

Mañana lo seguiré intentando a ver si logro la solución, por mas que intenté hoy, realmente no pude, es que no puedo ni leer.. jajaja. Estoy muy cansado.

Pero, de nuevo gracias.. Ah.! y me alegra que revisaste el otro código es muy sencillo y no se como lo hace tan rápido. de inmediato.
 
Saludos!

Elides Paredes 
Reply all
Reply to author
Forward
0 new messages