Invertir cadena
Clipper/FiveWin
Publicado el 14 de Enero del 2003 por Veronica Ornelas (3 códigos)
11.970 visualizaciones desde el 14 de Enero del 2003
Código que invierte una cadena de caracteres
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(2)// Devuelve una cadena de caracteres en forma inversa//
// Para usar esta funcion en su programa simplemente reemplace el
// Accept por la parte de codigo que pasara el argumento a la funcion
// Autor: Guillermo Hernandez - Mexico -
CLEAR
ACCEPT "Teclee una cadena para invertirla: " TO cTextocTexto = ALLTRIM ( cTexto )
? cTexto? "invertido es: "
? invStr( cTexto )
//
FUNCTION invStr( __cTexto )
LOCAL aText1, cNew, n, cTemp, g, x
aText1 = ARRAY (LEN ( __cTexto ) )
cNew = ""
FOR n = 1 TO LEN( __cTexto )
cTemp = LEFT( __cTexto, n )
aText1[ n ] = RIGHT( cTemp, 1 )
NEXT n
x = 1FOR g = LEN( __cTexto ) TO 1 STEP -1
cNew = aText1[ x ] + cNew
x = x + 1
NEXT g
RETURN cNew
Comentarios sobre la versión: Versión 1 (2)
No probe este codigo que hice ahora porque no lo tengo instalado pero creo que funciona bien sino por lo menos la idea de la funcion es clara.
function invStr(xTexto)
local yTexto:=""
for i = len(xTexto) to 1 step -1
yTexto+=substr(xTexto,i,1)
next i
returtn yTexto