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.
Tutores.org
Mostrando Codigo - Visual Basic
CODIGO
// Codigo ofrecido por Tutores.org
- Public Function InvertirCadena(invertircadena As String) As String
- Dim Mx As Long
- Dim Y As Long
- Dim var As String
- On Error GoTo mal
- Mx = Len(invertircadena)
- If Mx = 0 Then
- InvertirCadena = ""
- Exit Function
- End If
- var = ""
- For Y = Mx To 1 Step -1
- var = var + Mid$(invertircadena, Y, 1)
- Next Y
- InvertirCadena = var
- terminar:
- Exit Function
- mal:
- MsgBox Err
- MsgBox Error(Err)
- InvertirCadena = ""
- Resume terminar
- 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 -->
<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
gil
17-12-2009 19:40:43
3
5
Toda esa funcion se puede resumir con solo poner este comando:
StrReverse
EJEMPLO:
Cadena = StrReverse("Hola Mundo")
Cadena = "odnuM aloH"
StrReverse
EJEMPLO:
Cadena = StrReverse("Hola Mundo")
Cadena = "odnuM aloH"
INSERTAR COMENTARIO