trato de poner estos datos en un columnaview:
maria,lorenzotti,566,67
jorge,lucas,232,12
Marcelo,Sosa,350,25
la primera fase es splitear con "\n"
la segunda fase cortar datos por las comas y agregarlos al columnaview
Public Sub MnuCargar_lista_Click()
Dim SepararJugadores, SepararDatosJugadores As String[]
Dim Archivo As String
Dim a, b, cantidad, cantidad2, CantidadLista As Integer
Dialog.Filter = ["*.lst", "Archivos de lista"]
Dialog.Path = User.Home
If Dialog.OpenFile() Then Return
Archivo = File.Load(Dialog.Path)
Print Archivo
SepararJugadores = Split(Archivo, "\n")
cantidad = SepararJugadores.Count
Print cantidad
For a = 0 To (cantidad - 1) Step 1
SepararDatosJugadores = Split(SepararJugadores[a], ",")
Print "numero jugadores : ", a
Wait 1
cantidad2 = SepararDatosJugadores.Count
For b = 0 To (cantidad2 - 1) Step 1
ColumnView1.Add(CantidadLista, b) ' me da error aqui algo no hago bien
' error: key already used: 0
ColumnView1[CantidadLista][b] = SepararDatosJugadores[b]
Next
CantidadLista += 1
Next
Dim SepararJugadores, SepararDatosJugadores As String[]
Dim Archivo As String
Dim a, b, cantidad, cantidad2, CantidadLista As Integer
Dialog.Filter = ["*.lst", "Archivos de lista"]
Dialog.Path = User.Home
If Dialog.OpenFile() Then Return
Archivo = File.Load(Dialog.Path)
Print Archivo
SepararJugadores = Split(Archivo, "\n")
cantidad = SepararJugadores.Count
Print cantidad
For a = 0 To (cantidad - 1) Step 1
SepararDatosJugadores = Split(SepararJugadores[a], ",")
Print "numero jugadores : ", a
Wait 1
cantidad2 = SepararDatosJugadores.Count
For b = 0 To (cantidad2 - 1) Step 1
ColumnView1.Add(CantidadLista, b) ' me da error aqui algo no hago bien
' error: key already used: 0
ColumnView1[CantidadLista][b] = SepararDatosJugadores[b]
Next
CantidadLista += 1
Next
