Ayuda datos con funcion Split a Listview

[v3ng4nz3]

Hola a todos.

Tengo el siguiente codigo:

Código [Seleccionar] Expandir

   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.

[79137913]

HOLA!!!

Fijate asi:

Código (vb) [Seleccionar] Expandir

   Dim vDatos() As String
   Dim Item As ListItem
   Dim i As Long

   vDatos = Split(enlace.text, "http://")

   For i = LBound(vDatos) To UBound(vDatos)
       If vDatos(i)<>"" then
       Set Item = lstListing.ListItems.Add(, , vDatos(i))
       End If
   Next

GRACIAS POR LEER!!!

[v3ng4nz3]

Muchisimas gracias, funciona

Ahora me surge otro problema, supongo que será por el salto de linea, el textbox tiene multiline activado, y cuando inserto enlaces en multilinea en la listview aparecen así:



Alguna idea de como solucionar esto?

Muchas gracias

[Psyke1]

Puede que así :

Código (vb,3) [Seleccionar] Expandir

Dim sPath                         As String
sPath = "www.visual-coders.com.ar" & vbNewLine & vbNewLine
sPath = Replace$(sPath, vbNewLine, vbNullString)
Debug.Print sPath


DoEvents!

[raul338]

Código (vb) [Seleccionar] Expandir


vDatos(i) = Replace$(vDatos(i), vbNewLine, "")


Advertencia - mientras estabas escribiendo, una nueva respuesta fue publicada. Probablemente desees revisar tu mensaje.