Len Alternativo

k0ws · Enero 04, 2014, 08:41:28 PM

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-

ANTRAX · Enero 04, 2014, 09:01:26 PM

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

Saludos!
ANTRAX

k0ws · Enero 06, 2014, 06:18:30 PM

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-

79137913 · Febrero 10, 2014, 10:17:55 AM

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!!!

Len Alternativo

k0ws

Enero 04, 2014, 08:41:28 PM Ultima modificación: Enero 09, 2014, 12:27:36 PM por Expermicid

ANTRAX

Enero 04, 2014, 09:01:26 PM #1

k0ws

Enero 06, 2014, 06:18:30 PM #2

79137913

Febrero 10, 2014, 10:17:55 AM #3