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
10.072 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
10.073 visualizaciones desde el 14 de Enero del 2003. Una media de 21 por semana
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)

bymegm
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
Antonio Tinoco
04 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

http://lwp-l.com/s447