Utilizamos cookies propias y de terceros para mejorar la experiencia de navegación, y ofrecer contenidos y publicidad de interés.
Al continuar con la navegación entendemos que se acepta nuestra política de cookies.
Iniciar sesión Cerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta

Clipper/FiveWin - Invertir cadena

Titulo:local

Invertir cadena

Autor:Guillermo Hernandez (byone@e-garfield.com)
Lenguaje:Clipper/FiveWin
Código que invierte una cadena de caracteres

// 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 cTexto cTexto = 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 = 1 FOR g = LEN( __cTexto ) TO 1 STEP -1 cNew = aText1[ x ] + cNew x = x + 1 NEXT g RETURN cNew

Escuelas de especialización tecnológica