elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  [SOURCE] CharSplit7913 Separa un string en un array de caracteres.
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: [SOURCE] CharSplit7913 Separa un string en un array de caracteres.  (Leído 5,574 veces)
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
[SOURCE] CharSplit7913 Separa un string en un array de caracteres.
« en: 17 Marzo 2011, 15:50 pm »

HOLA!!!

Bueno, mas que el titulo no puedo decir, es simplemente eso dejo el codigo y un ejemplo.

Código
  1. Private Sub Form_Load()
  2. Dim hola() As String
  3. hola = CharSplit7913("hola")
  4. ' Devuelve
  5. ' Hola(0) = "h"
  6. ' Hola(1) = "o"
  7. ' Hola(2) = "l"
  8. ' Hola(3) = "a"
  9. End Sub
  10.  
  11. Private Function CharSplit7913(expression As String) As String()
  12.    Dim X        As Long
  13.    Dim lExp     As Long
  14.    Dim ExpB()   As Byte
  15.    Dim AuxArr() As String
  16.  
  17.    ExpB = expression
  18.    lExp = UBound(ExpB)
  19.    ReDim AuxArr(lExp)
  20.  
  21.    For X = 0 To lExp Step 2
  22.        AuxArr(X / 2) = ChrW$(ExpB(X))
  23.    Next
  24.  
  25.    ReDim Preserve AuxArr(lExp \ 2)
  26.  
  27.    CharSplit7913 = AuxArr
  28.  
  29. End Function


GRACIAS POR LEER!!!


« Última modificación: 17 Marzo 2011, 19:50 pm por 79137913 » En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: [SOURCE] CharSplit7913 Separa un string en un array de caracteres.
« Respuesta #1 en: 17 Marzo 2011, 16:18 pm »

Para "hola", lExp=7, por lo que al terminar tienes un array con 3 lugares vacios :silbar:

Saludos


En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [SOURCE] CharSplit7913 Separa un string en un array de caracteres.
« Respuesta #2 en: 17 Marzo 2011, 17:34 pm »

HOLA!!!

Gracias Nov, solucionado.

GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Psyke1
Wiki

Desconectado Desconectado

Mensajes: 1.089



Ver Perfil WWW
Re: [SOURCE] CharSplit7913 Separa un string en un array de caracteres.
« Respuesta #3 en: 17 Marzo 2011, 19:12 pm »

Copión... :silbar: :xD
Código:
Int(lExp / 2)
Es lo mismo que:
Código:
lExp \ 2
Redimensionas la matrix 2 veces innecesariamente.
El ChrW() debe llevar un $ para que no quede como variant : ChrW$().

DoEvents! :P
En línea

79137913


Desconectado Desconectado

Mensajes: 1.169


4 Esquinas


Ver Perfil WWW
Re: [SOURCE] CharSplit7913 Separa un string en un array de caracteres.
« Respuesta #4 en: 17 Marzo 2011, 19:50 pm »

HOLA!!!

Gracias Frog, solucionado.

GRACIAS POR LEER!!!
En línea

"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

 79137913                          *Shadow Scouts Team*
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Quitar caracteres a una string
Programación Visual Basic
W3XT3R 5 5,433 Último mensaje 25 Diciembre 2005, 22:59 pm
por Kizar
agregar string array a JList
Java
brian_e 2 11,393 Último mensaje 22 Abril 2009, 17:46 pm
por brian_e
ayuda... lectura de string y meterlo en un array « 1 2 »
PHP
satan69 10 6,222 Último mensaje 11 Agosto 2009, 18:33 pm
por WHK
Concatenar Array de bytes con string
Programación Visual Basic
Nanoc 7 11,068 Último mensaje 10 Febrero 2010, 21:54 pm
por BlackZeroX
Crear array string y asignar su valor en la misma linea.
Java
Baaaw Oic 5 14,394 Último mensaje 29 Marzo 2010, 23:11 pm
por leogtz
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines