Len Alternativo

Iniciado por k0ws, Enero 04, 2014, 08:41:28 PM

Tema anterior - Siguiente tema

0 Miembros y 1 Visitante están viendo este tema.

Enero 04, 2014, 08:41:28 PM Ultima modificación: Enero 09, 2014, 12:27:36 PM por Expermicid
Bueno, el codigo es una estupidez, pero se me paso por la cabeza y es similar al StrRev Alternativo que postee hace horas.Aqui os lo dejo.

Código: VB
'##############################
'## Len Alternativo          ##
'## Author: k0ws             ##
'##############################
Public Function Len_Alter(Palabra As String)
Dim a As Long
Dim b() As Byte
Dim c As Integer
b = StrConv(Palabra, vbFromUnicode)
For a = 0 To UBound(b())
c = c + 1
Next a
Len_Alter = c
End Function


EDITADO:

Una pequeña modificacion gracias a Pink y M3:

Código: vb
Public Function Len_Alter(Palabra As String)
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
Len_Alter = UBound(b()) + 1
End Function


-Saludos-

Genial k0ws!! andas a full!
Felicitaciones por el codigo!

Saludos!
ANTRAX


Una pequeña modificacion gracias a Pink y M3:

Código: vb
Public Function Len_Alter(Palabra As String)
Dim b() As Byte
b = StrConv(Palabra, vbFromUnicode)
Len_Alter = UBound(b()) + 1
End Function


-Saludos-

HOLA!!!

Te paso estas 2 variantes (muy rapidas):

Código: vb
    Public Function Len_Alter_7913(Expression As String) as long
        Dim b() As Byte
        b = Expression
        Len_Alter_7913 = (UBound(b()) + 1) / 2
    End Function

    Public Function Len_Alter_7913_2(Expression As String) As Long
        Len_Alter_7913_2 = LenB(Expression) / 2
    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