[VB.NET] Salvataggio dati da ListView a file esterno

[GhostFire]

Il codice è il seguente:

Private Sub SaveList(ByVal lst As ListView, ByVal file As String) 'salva la lista dei team

        Dim I As Integer
        Dim a As String
        Dim b As String
        Dim c As String
        Dim d As String

        On Error GoTo err

        FileOpen(1, file, OpenMode.Output)
        For I = 0 To lst.Items.Count - 1
            a = str(0)
            b = str(1)
            c = str(2)
            d = str(3)
            Write(1, a, b, c, d)

        Next
        FileClose(1)
        Exit Sub
err:
        MsgBox("There has been a error!", vbOKOnly, "Error")

    End Sub

Il problema praticamente è che quando salva, salva solamente la prima riga della listview e poi la mette in tutte le altre righe che ho occupato.

Ecco un esempio del file di salvataggio:

"asd","asd","asd","asd","asd","asd","asd","asd","asd","asd",

Mentre io ad ogni riga della listview cambiavo testo, quindi:

asd | 1 | 2
test | 2 | 3
lol | 4 | 5

quindi il file di salvataggio dovrebbe essere una cosa del tipo

"asd","1","2","test","2","3","lol","4","5"

[alka]

Nel tuo file, assegni alle variabili che scrivi un valore preso da str, che nel contesto non è ben chiaro quale compito assolva (anche perché non vedo la dichiarazione né l'implementazione) ma senz'altro ha qualcosa che non va.

Inoltre, il tuo ciclo sugli elementi non fa mai uso dell'indice stesso del ciclo.

P.S.: ma siamo sicuri che tu stia usando VB.NET?

[GhostFire]

Beh credo di si xD sto usando Visual Studio 2008 per programmare in VB.

Comunque ho risolto con questo:

For i = 0 To lst.Items.Count - 1
a = lst.Items(i).SubItems(0).text
b = lst.Items(i).SubItems(1).text
c = lst.Items(i).SubItems(2).text
d = lst.Items(i).SubItems(3).text
Write(1, a, b, c, d)

Next

[alka]

Originariamente inviato da GhostFire
Beh credo di si xD sto usando Visual Studio 2008 per programmare in VB.

Il codice che hai postato è zeppo di roba tipica di VB6, quindi probabilmente le differenze non sono molto chiare...

Originariamente inviato da GhostFire
Comunque ho risolto con questo:
For i = 0 To lst.Items.Count - 1
a = lst.Items(i).SubItems(0).text
b = lst.Items(i).SubItems(1).text
c = lst.Items(i).SubItems(2).text
d = lst.Items(i).SubItems(3).text
Write(1, a, b, c, d)

Next

Più che altro, hai scritto codice con un senso, perché il precedente non poteva funzionare così com'era. Non capisco in ogni caso l'utilità delle variabili a, b, c, ...