Código de Visual Basic para Aplicaciones - Funcion recursiva para girar una cadena

Val: 8

Funcion recursiva para girar una cadena

Publicado el 11 de Febrero del 2020 por Info (100 códigos)

946 visualizaciones desde el 11 de Febrero del 2020

Este código de ejemplo, muestra como girar una cadena de forma recursiva.

Publicado el 11 de Febrero del 2020

947 visualizaciones desde el 11 de Febrero del 2020

Public Function RReverse(aString As String) As String

	Dim L As Integer    'longitud de la cadena

	Dim M As Integer    'punto de corte

	L = Len(aString)

	If L <= 1 Then   'Final... ya no es necesario utilizar la recursividad

		RReverse = aString

	Else

		M = Int(L / 2)

		RReverse = RReverse(Right$(aString, L - M)) & RReverse(Left$(aString, M))

	End If

End Function

No hay comentarios

http://lwp-l.com/s5895

MACRO EXCEL SUMA CELDAS DIFERENTES ARCHIVOS

Rellenar con un caracter a la izquierda o derecha