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

Código de Clipper/FiveWin - Invertir cadena

Invertir cadenagráfica de visualizaciones


Clipper/FiveWin

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 14 de Enero del 2003 por Veronica Ornelas
9.509 visualizaciones desde el 14 de Enero del 2003. Una media de 21 por semana
Código que invierte una cadena de caracteres

Versión 1
estrellaestrellaestrellaestrellaestrella(2)

Publicado el 14 de Enero del 2003gráfica de visualizaciones de la versión: Versión 1
9.510 visualizaciones desde el 14 de Enero del 2003. Una media de 21 por semana
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella
// 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

Comentarios sobre la versión: Versión 1 (2)

26/06/2004bymegm
estrellaestrellaestrellaestrellaestrella
Hace mucho que no programo clipper pero lo hice durante varios años, lamentablemente por cuestiones de trabajo lo deje.
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
04/09/2004Antonio Tinoco
estrellaestrellaestrellaestrellaestrella
Me sirvio mucho, ya que habia hecho muchas cosas para lograr lo mismo.

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración del curso
Comentarios