[Duda] Funcion Split y paso de datos Listview

[Streamz]

Hola a todos.

Tengo el siguiente codigo:

Código:

   Dim vDatos() As String
   Dim Item As ListItem
   Dim i As Long
 
   vDatos = Split(enlace.text, "http://")
 
   For i = LBound(vDatos) To UBound(vDatos)
       Set Item = lstListing.ListItems.Add(, , vDatos(i))
   Next

El cual tengo un textbox donde pego enlaces, y los separa uno a uno para posteriormente añadirlos en orden en una listview, todo es correcto, pero cuando se añade todo a la listview, siempre me deja un espacio que es lo ultimo que añade, quedandose así:



No tengo mucha idea de que sucede, alguien puede ayudarme?

Muchas gracias.

[pkj]

No estoy muy seguro, pero creo que es por usar como separador el texto "http://"
Al encontrarse como primera parte del texto, lo toma como 2 elementos: lo que hay antes y lo que hay despues del http.

Te recomiendo hacer el split usando los saltos de linea como separador:

vDatos = Split(enlace.text, vbCrLf)

Saludos