FoxPro/Visual FoxPro - Problema son substr

   
Vista:

Problema son substr

Publicado por Juan (39 intervenciones) el 29/09/2010 15:56:10
Buenos días, a todos

Les pido el favor me ayuden con un incoveniente que tengo con la sentencia Substr. Tengo una tabla con los datos de una persona que incluye los campos cedula y nombre, pero el nombre esta compuesto de dos datos: primer nombre y segundo nombre en la misma cadena, quiero extraerlo por separado y enviarlos a una caja de texto de un formset, para ello utilizo el siguiente codigo, lo cual me funciona perfecto al ejecutar la aplicación desde el modo diseño, pero al compilar el proyecto no me funciona desde el ejecutable. He puestos publicas las variables que utilizo y nada.

local Q
lcoal p
local largo

SELECT mitabla
if seek(this.texto1.value,"mitabla","cedula")
Q= Len(Alltrim(mitabla.nombre)) &&longitud de la cadena

For p = 1 To Q-1
If Substr(mitabla.nombre,p)=" "
largo = p
Thisform.TEXTO2.Value = Substr(mitabla.nombre,1,largo) &&primer nombre
Thisform.texto3.Value = Substr(mitabla.nombre,largo+1,Q) &&segundo nombre
Exit
Endif
Endfor
endif
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Problema son substr

Publicado por Juanma Cruz (508 intervenciones) el 29/09/2010 16:12:48
SELECT mitabla
if seek(this.texto1.value,"mitabla","cedula")
Thisform.texto3.Value= ""
Thisform.texto2.Value= mitabla.nombre
nPivot= At( " ", mitabla.nombre)
if nPivot>0
Thisform.texto2.Value= Substr( mitabla.nombre, 1, nPivot-1)
Thisform.texto3.value= Substr( mitabla.nombre, nPivot+1)
endif
endif
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Gracias juanma funcionó

Publicado por Juan (39 intervenciones) el 29/09/2010 17:16:22
Muchas Gracias, funcionó perfecto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar