Pasar Datos Txt Separados Por Coma A Un List

[ideasking]

Hola, si alguien tiene el codigo para pasar datos de un archivo txt separado por comas:

8,"LUIS",2728,"BOGOTA"

Para abrirlo uso:

Open "c:\data\registros.txt" For Input As #1
Input #1, Codigo, nombre,registro,ciudad

Pero no encuentro como mostrar los datos abiertos en un list que tiene 4 columnas.

Si necesitara mostrar solo un campo lo hago asi:

Open "c:\data\registros.txt" For Input As #1
Input #1, codigo, nombre,registro,ciudad

List1.additem nombre

y me muestra todos los nombres, pero no se como hacer para que me muestre todos los campos cada uno en una columna de las lista.

Si alguien tiene una sugerencia les agradezco.

Cordial saludo.

[David]

Suponiendo que estás usando el ListBox de VBA (ya que el de VB6 no tiene columnas), sería:

Código:

 
ListBox1.AddItem Codigo
ListBox1.List(ListBox1.ListCount - 1, 1) = Nombre
ListBox1.List(ListBox1.ListCount - 1, 2) = Registro
ListBox1.List(ListBox1.ListCount - 1, 3) = Ciudad

[ideasking]

Cual seria la mejor opcion si pensara en trabajar en VB6? por ahora estoy con excel, pero pienso pasar eso a VB6. Que control seria el mas apropiado para mostrar lo que les comento? y como lo programo.ñ

Gracias

[David]

Iniciado por ideasking

Cual seria la mejor opcion si pensara en trabajar en VB6? por ahora estoy con excel, pero pienso pasar eso a VB6. Que control seria el mas apropiado para mostrar lo que les comento? y como lo programo.ñ

Gracias

El mejor control para hacerlo es el ListView, es fácil de programar:

Código:

 
'Añadir un Dato
Dim NewItem As ListItem
Set NewItem = ListView.ListItems.Add
NewItem.Text = Codigo
'Añadir Datos a las columnas
NewItem.SubItems(1) = Nombre
NewItem.SubItems(2) = Ciudad
'Quitar el Ítem seleccionado

Código:

 
ListView.ListItems.Remove ListView.SelectedItem.Index

Saludos

[ideasking]

OK Intentare a ver si entendi bien el codigo y luego les cuento.