StrRev Alternativo

Iniciado por k0ws, Enero 04, 2014, 05:50:43 PM

Tema anterior - Siguiente tema

0 Miembros y 2 Visitantes están viendo este tema.

Bueno, simplemente lo realize como un pequeño ejercicio y he decido traerlo porque me costo un "pelin"
(En VB6 no existe el tipo char, por lo que no era tan facil como pensaba.)

Código: vb
Public Function StrRev_Alter(Palabra As String)
Dim k, i As Integer
Dim Res As String
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
For k = 0 To Len(Palabra) - 1
i = (Len(Palabra) - 1) - k
Res = Res + Chr(b(i))
Next k
StrRev_Alter = Res
End Function


-Saludos-

Febrero 10, 2014, 10:22:42 AM #1 Ultima modificación: Febrero 10, 2014, 10:24:39 AM por 79137913
HOLA!!!

Strev alternartivo otra opcion:
Código: vb
    Public Function StrRev_Alter_7913(Expression As String) As String
        Dim b() As Byte: b = Expression
        If UBound(b) < 1 Then Exit Function
        For x = UBound(b) - 1 To 0 Step -2
            StrRev_Alter_7913 = StrRev_Alter_7913 & ChrW$(b(x))
        Next
    End Function


GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                No tienes permitido ver los links. Registrarse o Entrar a mi cuenta