Código de Clipper/FiveWin - Invertir cadena

Versión 1
estrellaestrellaestrellaestrellaestrella(2)

Publicado el 14 de Enero del 2003gráfica de visualizaciones de la versión: Versión 1
11.800 visualizaciones desde el 14 de Enero del 2003
estrellaestrellaestrellaestrellaestrella
estrellaestrellaestrellaestrella
estrellaestrellaestrella
estrellaestrella
estrella

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
// 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 de Junio del 2004
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
Responder
4 de Septiembre del 2004
estrellaestrellaestrellaestrellaestrella
Me sirvio mucho, ya que habia hecho muchas cosas para lograr lo mismo.
Responder

Comentar la versión: Versión 1

Nombre
Correo (no se visualiza en la web)
Valoración
Comentarios...
CerrarCerrar
CerrarCerrar
Cerrar

Tienes que ser un usuario registrado para poder insertar imágenes, archivos y/o videos.

Puedes registrarte o validarte desde aquí.

Codigo
Negrita
Subrayado
Tachado
Cursiva
Insertar enlace
Imagen externa
Emoticon
Tabular
Centrar
Titulo
Linea
Disminuir
Aumentar
Vista preliminar
sonreir
dientes
lengua
guiño
enfadado
confundido
llorar
avergonzado
sorprendido
triste
sol
estrella
jarra
camara
taza de cafe
email
beso
bombilla
amor
mal
bien
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s447