Programación General > Visual FoxPro

 Arreglo

(1/1)

razx:
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 =)

arielb:
Hola, bueno la respuesta a tu pregunta si hay que son lower() y upper(). Pero tu problema actual puede ser que no están redimensionando el arreglo con el nuevo total de caracteres, este es un ejemplo de como manejar arreglos.


--- Código: Text ---textbox1= "Juez"longitud = Len(textbox1)Dimension mArreglo(longitud)For i = 1 To longitud Step 1  mArreglo[i] = Substr(textbox1,i,1)  Messagebox(mArreglo[i])Endfor  

--- Código: Text ---var1 = lower("JUEZ")var2 = upper("juez") 
Bueno creo que eso era tu pregunta si no avisas.

razx:
gracias por la ayuda, pero lo que realmente kiero hacer es desplegar el contenido del array en el editbox

ejemplo:

public vLongitud,vCadena
STORE ALLTRIM(thisform.edit1.value) TO vCadena
vLongitud = LEN(ALLTRIM(thisform.edit1.Value))

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      

*******************

lo ke kiero hacer es ke aparezca lo que se ingreso en el editbox ya modificado y ke se encuentra en el arreglo.. espero puedan ayudarme =)

arielb:
existen las funciones isupper() y islower()

creo que esto te puede ayudar a guiarte

--- Código: Text ---Public vLongitud,vCadenaStore Alltrim(Thisform.edit1.Value) To vCadenavLongitud = Len(Alltrim(Thisform.edit1.Value))thisform.edIT1.Value = &#34;&#34; Dimension miArreglo(vLongitud)i=1Do While i &#60;= vLongitud  Store Substr(vCadena,i,1) To miArreglo(i)  i=i+1EnddoIf (Isupper(miArreglo[1]))  For i = 1 To vLongitud Step 1    Store lower(miArreglo[i]) To miArreglo[i]    thisform.eDIT1.Value = thisform.eDIT1.Value+  miArreglo[i]  EndforElse  For i = 1 To vLongitud Step 1    Store upper(miArreglo[i]) To miArreglo[i]    thisform.eDIT1.Value = thisform.eDIT1.Value+  miArreglo[i]  EndforEndif  

Navegación

[0] Índice de Mensajes