SprintDevelop.com - Diseño y desarrollo web - Diseño, desarrollo web,Aplicaciones Móviles, TabletasSprintDevelop.com - Diseño y desarrollo web
Mostrando Codigo - Visual Basic
Code

Visual Basic - Función para invertir una cadena de caracteres

Códigos Visual Basic

La siguiente funcion consigue invertir una cadena de caracteres, si ocurre un error este muestra un mensaje de alerta.
Visitas: 35,104 - 26/10/2004 23:30:53
CODIGO SIN DEMOSTRACIONNO CONTIENE ARCHIVO DESCARGABLEComentario
CODIGO


// Codigo ofrecido por Tutores.org

  1. Public Function InvertirCadena(invertircadena As String) As String
  2.    Dim Mx As Long
  3.    Dim Y As Long
  4.    Dim var As String
  5.  
  6.    On Error GoTo mal
  7.    Mx = Len(invertircadena)
  8.  
  9.    If Mx = 0 Then
  10.       InvertirCadena = ""
  11.       Exit Function
  12.    End If
  13.  
  14.    var = ""
  15.  
  16.    For Y = Mx To 1 Step -1
  17.       var = var + Mid$(invertircadena, Y, 1)
  18.    Next Y
  19.  
  20.    InvertirCadena = var
  21.    terminar:
  22.    Exit Function
  23. mal:
  24.    MsgBox Err
  25.    MsgBox Error(Err)
  26.    InvertirCadena = ""
  27.    Resume terminar
  28. End Function



ENLACE AL CODIGO
Si quieres enlazar desde tu pagina a este codigo
<!-- Inicio enlace Tutores.org -->
<a title="Tutores.org - Función para invertir una cadena de caracteres" href="http://www.tutores.org/codigo/1409/" target="_blank">Función para invertir una cadena de caracteres</a>
<!-- Final enlace Tutores.org -->
COMENTARIOS
Comentario usuario
17-12-2009 19:40:43
5 5
Toda esa funcion se puede resumir con solo poner este comando:

StrReverse

EJEMPLO:
Cadena = StrReverse("Hola Mundo")
Cadena = "odnuM aloH"
INSERTAR COMENTARIO

Usuario:
Email:
Comentario:
Codigo Seguridad


Antes de enviar un comentario...
Todos los comentarios son revisados personalmente
Todo comentario que no haga relacion al codigo mostrado en esta pagina sera eliminado

Usuarios registrados tienen preferencia en recibir respuestas de ayuda!!
Ademas de poder insertar Imagenes,Enlaces y otras propiedades del editor.
Por favor, insertar los comentarios descriptivos.