Pasar de .txt a ListView

[juaco14]

Necesito ayuda con un código:

Como pasar de un .txt separado por tabulaciones y dividido en lineas, EJ.:

dat1 dat2 dat3
dat4 dat5 dat6
dat7 dat8 dat9

a un ListView en sus respectivas columnas indicada por las tabulaciones y filas indicadas por las lineas en VB6.

Gracias!

[David]

Aquí tienes un ejemplo de cómo leer archivos:
http://www.forosdelweb.com/2590739-post177.html

A partir de ahí, sólo tienes que separar las líneas por el Chr(9) usando Split() y agregarlos al ListView.

P.S.: Por favor, elige títulos más adecuados para la pregunta.

[juaco14]

No puedes especificar mas?

A eso ya lo se, lo que no se es con uqe código llenar las columnas y filas del ListView con sus respectivos datos.
Gracias.

[David]

En tu anterior tema ya te había explicado cómo llenar las filas y columnas de un ListView.
http://www.forosdelweb.com/2948748-post16.html

Además, puedes buscar información al respecto: ListView Visual Basic.

[juaco14]

si pero como puedo poner para que lea los datos separados por tabulaciones?

[David]

Usa Split() cuando leas una línea:

Código vb:

Dim Partes() As String
Partes = Split(Linea, Chr(9))
 

Así, obtendrás en los respectivos índices del array Partes() los datos que necesitas.

[juaco14]

No me das una mano ya que no logro armar el código para dicha accion?
Gracias.

[David]

Muestra el código de cómo lo intentaste y qué parte es la que no logras hacer.

[juaco14]

Dim Linea As String, x As Integer, i As Integer, sStr() As String, it As Long

Open "\datos-alumnos.txt" For Input As #1
Line Input #1, Linea
sStr = Split(Linea, vbTab)
Line Input #1, Linea


sStr = Split(Linea, vbTab)
ListView.ListItems.Add , , sStr(LBound(sStr))
ListView.ListItems(it).ListSubItems.Add , , sStr(i + 1)

Close

Exit Sub
End Sub

[David]

Si i y lt tienen valores correctos, debería funcionar. ¿Dónde asignas valores a esas variables?

[juaco14]

it = it + 1
For i = LBound(sStr) To UBound(sStr) - 1
ListView.ListItems(it).ListSubItems.Add , , sStr(i + 1)

[seba123neo]

David si que sos Grande , tambien tu paciencia es Grande , este tipo quiere que le hagas todo...ya hubo un post igual donde paso lo mismo con el...y se que varios foreros opinan lo mismo que yo, lo que pasa que no se animan a hablar...pero yo cuando veo esto me saco no me quedo mas callado...todo porque el señor no busca y no se lee un manual de visual basic (que segun el dice "que no lo necesita").y juaco14 no te estoy tirando el mundo encima te estoy ayudando aunque para vos no paresca eso...

saludos.

[JoseGMariani]

Apoyo a seba, si que eres grande david, de verdad!! o.O yo iva leyendo y leyendo y d epaso que lo estas ayudando.. pence q en la siguiente respuesta te iva a decir gracias.. pero no de paso se atreve a decirte que ''no le e stas dando una mano'' :@ es que hay q ver q hay gente pasadaaa en este mundoo q abuso.. menos mal q tienes muxa paciencia.. Saludos..

y tu juaco trata de ser porlomenos conciderado.. -.- por dios! :S bueno igual como dice seba te lo dijo por tu bien.. cada quien va mejorando cada dia.. :) saludos tambien para ti.

[juaco14]

JoseGMariani Si te fijas arriva veras una buena cantidad de gracias.
Esto ya se esta yendo del tema, si querias sumar un nuevo mensaje por lo menos hubieses aportado algo no te parece?
GRACIAS por tu comprencion.