FoxPro/Visual FoxPro - Cadenas de Texto

 
Vista:

Cadenas de Texto

Publicado por David (1 intervención) el 20/12/2008 04:09:29
Necesito ayuda con un programa en el cual se introduzca Cualquier Caracter en un textbox y al darle a un Command se invierta ese valor

ejemplo:

"Hola" ------>"aloH"
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:Cadenas de Texto

Publicado por Miguel (115 intervenciones) el 20/12/2008 15:12:56
intenta en tu CMD

cadena=""
for i=1 to len(alltrim(textbox))
cadena=cadena+subs(len(alltrim(textbox))+1-i,1,1)
endfor

suerte.
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:Cadenas de Texto

Publicado por Plinio (7841 intervenciones) el 20/12/2008 20:55:58
Yo lo haria asi:

texto = "hola" &&Thisform.text1.value
cadena=""
FOR i = LEN(ALLTRIM(texto)) TO 1 STEP -1
cadena=cadena+SUBSTR(texto,i,1)

ENDFOR
? cadena
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:Cadenas de Texto

Publicado por Eduardo Daniel (123 intervenciones) el 20/12/2008 23:01:01
Mi método tal vez es mas rudimentario, pero funciona

v_cant=LEN(ALLTRIM(thisform.text1.value))
v_cont=-1
v_reves=" "
DO while v_cont <= v_cant
v_reves = v_reves+SUBSTR(thisform.text1.Value,v_cant,1)
v_cant = v_cant-1
v_cont = v_cont + 1
ENDDO
v_reves = v_reves+SUBSTR(thisform.text1.Value,v_cant,1)
thisform.text1.Value = ALLTRIM(v_reves)
thisform.text1.Refresh
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