Código de Clipper/FiveWin - Invertir cadena

sin imagen de perfil

Invertir cadenagráfica de visualizaciones


Clipper/FiveWin

estrellaestrellaestrellaestrellaestrella(2)
Publicado el 14 de Enero del 2003 por Veronica Ornelas
10.719 visualizaciones desde el 14 de Enero del 2003
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.720 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
Es necesario revisar y aceptar las políticas de privacidad

http://lwp-l.com/s447