Imprimir Página - Contar caracteres de una variable despues de hacerla Split

Título: Contar caracteres de una variable despues de hacerla Split
Publicado por: Brian1511 en 17 Enero 2015, 02:18 am

Hola!,

Bueno ise este codigo:

Código

Dim List() As String
Dim i As Integer
Dim a As Integer
 
a = Len(txtAwards.Text)
 
lstAwards.Clear
 
txtAwards.Text = RS(7)
List = Split(RS(7), "||")
For i = 0 To Len(a)
lstAwards.AddItem List(i)
Next

Y o que intento hacer con esto es que me agreguen en un ListBox los Split de la variable List(), pero este solo me carga 3 datos y me gustaria que cargase todos los datos.

Para se mas espesifico es algo como esto:

Dim Texto as String
Dim Particion() as String

Texto = "0||0||0||0||0" ''Son 5 Ceros separados por ||
Particion = Split(Texto, "||")
______
Lista |
______|
#1| 0 |
#2| 0 |
#3| 0 |
#4| 0 |
#5| 0 |
=====

Podria alguien ayudarme con esto?

Título: Re: Contar caracteres de una variable despues de hacerla Split
Publicado por: engel lex en 17 Enero 2015, 02:41 am

no soy experto en esto pero con lo metodos Length o Count a list no te sirve?

por otro lado haces...

Código

a = Len(txtAwards.Text)

y luego

Código

For i = 0 To Len(a)

es decir estás leyendo el largo de el largo de el texto? :s eso me suena a error

Título: Re: Contar caracteres de una variable despues de hacerla Split
Publicado por: Brian1511 en 17 Enero 2015, 08:25 am

Hola amigo gracias por responder, pues como ver si lo he echo!

Aqui te paso el code:

Código

 
 
lstAwards.Clear
 
Dim List() As String
Dim i As Integer
Dim a As Integer
txtAwards.Text = RS(9)
 
a = Len(txtAwards.Text)
 
 
List = Split(RS(9), "/")
For i = 0 To Len(List(i))
lstAwards.AddItem List(i), i
Next

Y el txtAwards.Text = "0/0/0/0/0/0/0/0/0/0/0" y solo me devuelve 2 items :(
Espero me puedas ayudar!

Título: Re: Contar caracteres de una variable despues de hacerla Split
Publicado por: engel lex en 17 Enero 2015, 08:32 am

realmente de esto no se mucho jejeje

una pregunta... que hace esta linea?

Código:

txtAwards.Text = RS(9)

ahora el error creo que es esta linea

Código

For i = 0 To Len(List(i))
lstAwards.AddItem List(i), i
Next

estás leyendo el largo de list(i)

asumiendo que i es 0 originalmente, List(i) contendrá hasta donde creo "0" que tiene 1 de largo (creo que vb no cuenta el fin de cadena)... así que al evaluar sería de 0 a 1...

si ese es el error te recomiendo dormir unos 90 minutos, levantarte con un café y continuar ;)

Título: [Solucionado] Contar caracteres de una variable despues de hacerla Split
Publicado por: Brian1511 en 17 Enero 2015, 08:41 am

Muchas Gracias amigo ya encontre el problema lo que pasa es que no pense en la funcion UBound(), era lo que necesitaba, muchas gracias!

Para los que tengan la misma duda o problema lo que ise fue lo siguiente:

Código

''Solo Agreguen un ListBox, y Denle un valor a la Variable "str" con separadores "/", sin comillas!
   Dim str as String
   Dim List() As String
    List = Split(str, "/")
 
    for i = 0 To UBound(List())
       List1.additem "Item #" & List(i)
    next

Título: Re: Contar caracteres de una variable despues de hacerla Split
Publicado por: engel lex en 17 Enero 2015, 08:45 am

Perfecto! jajaja no te pude ayudar pero lo pudiste resolver jejeje

si tiense cualquier duda avisa ;)

Saludos

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: Brian1511 en 17 Enero 2015, 02:18 am