Hace bastante que ando complicado con un código de un programa que estoy armando.
Mi situación es esta: Tengo un command que envía los datos de un ListView a una base de datos en TXT separando las columnas por tabulaciones y las filas por líneas.
Ej.:
dat1 dat2 dat3
dat4 dat5 dat6
dat7 dat8 dat9
Hasta ahí bien.
Con la ayuda de DavidElGrande logre armar un código para cargar esos datos nuevamente al ListView algo así :
Código:
Public Sub Importar_ListView(ListView As ListView, PathArchivo As String)
Dim Linea As String, x As Integer, i As Integer, sStr() As String, it As Long
ListView1.ListItems.Add
Open PathArchivo For Input As #1
Line Input #1, Linea
sStr = Split(Linea, vbTab)
While Not EOF(1)
Line Input #1, Linea
sStr = Split(Linea, vbTab)
ListView1.ListItems.Add , , sStr(LBound(sStr))
it = it + 1
For i = LBound(sStr) To UBound(sStr) - 1
ListView1.ListItems(it).ListSubItems.Add , , sStr(i + 1)
Next
Wend
Close
End Sub
Private Sub Command5_Click()
Call Importar_ListView(ListView1, App.Path & "\datos-alumnos.txt")
End Sub
El problema es que cuando carga los datos, no los carga todos y la primer fila de la primer columna siempre queda vacía.
Ej.:
falta dat2 dat3
dat4 dat5 dat6
falta falta falta
Espero que me puedan ayudar y agradezco de antemano cualquier aporte que puedan hacer.
Saludos!.