send
Grupo de Telegram
play_arrow
  3. Len Alternativo
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.
« anterior próximo »
Páginas: [1]   Ir Abajo

Len Alternativo

  • 3 Respuestas
  • 1874 Vistas

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

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0

Len Alternativo

« en: 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: Visual Basic
  1. '##############################
  2. '## Len Alternativo          ##
  3. '## Author: k0ws             ##
  4. '##############################
  5. Public Function Len_Alter(Palabra As String)
  6. Dim a As Long
  7. Dim b() As Byte
  8. Dim c As Integer
  9. b = StrConv(Palabra, vbFromUnicode)
  10. For a = 0 To UBound(b())
  11. c = c + 1
  12. Next a
  13. Len_Alter = c
  14. End Function
  15.  

EDITADO:

Una pequeña modificacion gracias a Pink y M3:

Código: Visual Basic
  1. Public Function Len_Alter(Palabra As String)
  2. Dim b() As Byte
  3. b = StrConv(Palabra, vbFromUnicode)
  4. Len_Alter = UBound(b()) + 1
  5. End Function

-Saludos-
« Última modificación: Enero 09, 2014, 12:27:36 pm por Expermicid »
En línea

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5267
  • Actividad:
    48.33%
  • Reputación 26
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
Re:Len Alternativo
« Respuesta #1 en: Enero 04, 2014, 09:01:26 pm »
Genial k0ws!! andas a full!
Felicitaciones por el codigo!

Saludos!
ANTRAX
En línea

Desconectado k0ws

  • *
  • Underc0der
  • Mensajes: 145
  • Actividad:
    0%
  • Reputación 0
  • I'm Back
    • Ver Perfil
  • Skype: k0wsit0
Re:Len Alternativo
« Respuesta #2 en: Enero 06, 2014, 06:18:30 pm »
Una pequeña modificacion gracias a Pink y M3:

Código: Visual Basic
  1. Public Function Len_Alter(Palabra As String)
  2. Dim b() As Byte
  3. b = StrConv(Palabra, vbFromUnicode)
  4. Len_Alter = UBound(b()) + 1
  5. End Function

-Saludos-
En línea

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 612
  • Actividad:
    15%
  • Reputación 10
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
Re:Len Alternativo
« Respuesta #3 en: Febrero 10, 2014, 10:17:55 am »
HOLA!!!

Te paso estas 2 variantes (muy rapidas):

Código: Visual Basic
  1.     Public Function Len_Alter_7913(Expression As String) as long
  2.         Dim b() As Byte
  3.         b = Expression
  4.         Len_Alter_7913 = (UBound(b()) + 1) / 2
  5.     End Function
  6.  
  7.     Public Function Len_Alter_7913_2(Expression As String) As Long
  8.         Len_Alter_7913_2 = LenB(Expression) / 2
  9.     End Function
  10.  

GRACIAS POR LEER!!!
En línea
"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 Scout Team*                                                   You are not allowed to view links. Register or Login
Páginas: [1]   Ir Arriba
« anterior próximo »
 

¿Te gustó el post? COMPARTILO!



Space Alternativo

Iniciado por Yuki

 Respuestas: 0
Vistas: 1257 		Último mensaje Marzo 03, 2015, 03:00:27 pm
por Yuki
[SRC] String Alternativo

Iniciado por Yuki

 Respuestas: 0
Vistas: 1161 		Último mensaje Marzo 04, 2015, 12:37:42 pm
por Yuki
StrRev Alternativo

Iniciado por k0ws

 Respuestas: 1
Vistas: 1828 		Último mensaje Febrero 10, 2014, 10:22:42 am
por 79137913