comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

StrRev Alternativo

  • 1 Respuestas
  • 1960 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
« en: Enero 04, 2014, 05:50:43 pm »
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: Visual Basic
  1. Public Function StrRev_Alter(Palabra As String)
  2. Dim k, i As Integer
  3. Dim Res As String
  4. Dim b() As Byte
  5. b = StrConv(Palabra, vbFromUnicode)
  6. For k = 0 To Len(Palabra) - 1
  7. i = (Len(Palabra) - 1) - k
  8. Res = Res + Chr(b(i))
  9. Next k
  10. StrRev_Alter = Res
  11. End Function

-Saludos-

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 631
  • Actividad:
    6.67%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« Respuesta #1 en: Febrero 10, 2014, 10:22:42 am »
HOLA!!!

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

GRACIAS POR LEER!!!
« Última modificación: Febrero 10, 2014, 10:24:39 am por 79137913 »
"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*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



[SRC] String Alternativo

Iniciado por Yuki

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

Iniciado por Yuki

Respuestas: 0
Vistas: 1374
Último mensaje Marzo 03, 2015, 03:00:27 pm
por Yuki
Len Alternativo

Iniciado por k0ws

Respuestas: 3
Vistas: 2010
Último mensaje Febrero 10, 2014, 10:17:55 am
por 79137913