09/06/2009, 14:43
|
 | | | Fecha de Ingreso: mayo-2009
Mensajes: 185
Antigüedad: 15 años Puntos: 1 | |
| Respuesta: Pasar de .txt a ListView
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 |