FoxPro/Visual FoxPro - ayuda con array

   
Vista:

ayuda con array

Publicado por razx (8 intervenciones) el 06/02/2008 03:17:32
o0la pues tengo una pregunta, tengo un editbox y pues digamos ke el usuario escribe lo ke sea y pues tiene ke transformar el texto a upper y lower bueno lo ke hice fue lo siguiente; en un array meto todas las letras y las transformo y el problema sta en ke no puedo mostrar todo el contenido del array en el editbox no se si exista un comando mas o menos es esto lo ke kiero:

el usuario tecleo en el editbox: 1 2 3 4

el array se llena con los datos ke tecleo
array(1,2,3,4)

el editbox debe regresar lo siguiente

1 2 3 4

eso es todo muchas gracias =)
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:ayuda con array

Publicado por enrique (1041 intervenciones) el 06/02/2008 14:57:15
Para que el array?

**transformar a UPPER

thisform.editbox.value = upper(thisform.editbox.value)

**transformar a LOWER

thisform.editbox.value = lower(thisform.editbox.value)
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:ayuda con array

Publicado por razx (8 intervenciones) el 07/02/2008 04:18:45
public vLongitud,vCadena
STORE ALLTRIM(thisform.edit1.value) TO vCadena
vLongitud = LEN(ALLTRIM(thisform.edit1.Value))

PUBLIC array miArreglo(vLongitud)
i=1
DO WHILE i <= vLongitud
STORE SUBSTR(vCadena,i,1) TO miArreglo(i)
i=i+1
ENDDO
i=1
DO WHILE i<= vLongitud
IF MOD(i,2) = 0
STORE UPPER(miArreglo(i)) TO miArreglo(i)
ELSE
STORE LOWER(miArreglo(i)) TO miArreglo(i)
ENDIF
i=i+1
enddo


kiero desplegar todo el contenido del array en el editbox

gracias por la ayuda
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:ayuda con array

Publicado por enrique (1041 intervenciones) el 07/02/2008 18:18:16
suponiendo que este codigo lo tienes en el LostFocus de edit1, a continuación del Enddo pone:

vMuestroCadena=""
for i = 1 to alen(miarreglo)
vMuestroCadena=vMuestroCadena+miArreglo(i)
endfor
this.value = vMuestroCadena

espero que sea lo que necesitas.
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:ayuda con array

Publicado por razx (8 intervenciones) el 08/02/2008 04:34:32
si gracias por la ayuda =)
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