Hola!,
Bueno ise este codigo:
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?
no soy experto en esto pero con lo metodos Length o Count a list no te sirve?
por otro lado haces...
a = Len(txtAwards.Text)
y luego
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
Hola amigo gracias por responder, pues como ver si lo he echo!
Aqui te paso el code:
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!
realmente de esto no se mucho jejeje
una pregunta... que hace esta linea?
txtAwards.Text = RS(9)
ahora el error creo que es esta linea
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 ;)
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:
''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
Perfecto! jajaja no te pude ayudar pero lo pudiste resolver jejeje
si tiense cualquier duda avisa ;)
Saludos