Comunidad de Programadores
Recordar contraseña en este navegador
LWP
»
Código Fuente
»
Clipper/FiveWin
» Descarga
Información
Cursos y Manuales
Biblioteca de Temas
Código Fuente
Diccionario
Noticias/Artículos
Encuestas/Estadísticas
Servicios
Foros de Consulta
Preguntas/Respuestas
Tablón de Notas
Iconos y Cursores
Programadores
Programadores
Ofertas de Trabajo
Lista de Correo
Programas
Programas/Utilidades
Nuestros Programas
Solicitudes
Buscar
Buscador para Prog.
Direcciones Interés
Otros
Mercadillo
Chat
Colaboradores
Contactar
Invertir cadena
<<
>>
Titulo:
Invertir cadena
Autor:
Guillermo Hernandez (
byone@e-garfield.com
)
Lenguaje:
Clipper/FiveWin
Código que invierte una cadena de caracteres
Votar
[0.00 / 0 votos] - Visitas 9.097
Comentarios: 2
100%
0%
// 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
Todos sobre Clipper/FiveWin en su foro...
Convertir cantidades a cadena
Melodias