Invertir Cadena
Clipper/FiveWin
Publicado el 26 de Junio del 2002 por Veronica Ornelas (3 códigos)
7.440 visualizaciones desde el 26 de Junio del 2002
Devuelve una cadena de caracteres en forma inversa.
Iniciar sesiónCrear cuenta
Crear cuentaCrear cuenta(2)CLEAR
ACCEPT "Teclee una cadena para invertirla: " TO 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