Foro de elhacker.net

Hola a todos.

Tengo el siguiente codigo:


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í:

(http://img64.imageshack.us/img64/7704/problemvb.jpg)

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

Muchas gracias.

HOLA!!!

Fijate asi:

   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!!!

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í:

(http://img828.imageshack.us/img828/5585/papantatas.jpg)

Alguna idea de como solucionar esto?

Muchas gracias

Puede que así :

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

DoEvents! :P

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

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