[VB6] Salvare matrice dentro un file

[francylosvitato]

Salve forumisti...
Avrei la necessità di salvare dentro ad un file (casuale o binario) una matrice a 3 dimensioni (praticamente stò progettando per la prima volta un form di salva/carica dati)
Basta fare una put/get in un file binario della matrice?
thk

[Mabi]

Originariamente inviato da francylosvitato
Basta fare una put/get in un file binario della matrice?

Più che della matrice lo devi fare per tutti i suoi elementi

[francylosvitato]

Originariamente inviato da Mabi
Più che della matrice lo devi fare per tutti i suoi elementi

Ti faccio un esempio:
per salvare faccio

    
Public Sub caricalo()
    Open nfile For Binary Access Write As #1
    If Index = 0 Then
            Put #1, 1, george
    Else
            Put #1, 1, matrix
    End If
    Close
End Sub

per caricare faccio

Public Sub caricalo()
    Open nfile For Binary Access Read As #1
    If Index = 0 Then
            Get #1, 1, george
    Else
            Get #1, 1, matrix
    End If
    Close
End Sub

e funziona...

[Mabi]

Dipende dalla modalità d'accesso al file (in questo caso Binary)

[francylosvitato]

Originariamente inviato da Mabi
Dipende dalla modalità d'accesso al file (in questo caso Binary)

Facendo delle prove mi sono accorto che salvando/caricando george (booleana a due dimensioni) non mi dà problemi e funziona, invece salvando/caricando matrix (intera a tre dimensioni) mi dice "La variabile utilizza un tipo di automazione non supportato in Visual Basic, errore di runtime 458". E mò? :master:

[Mabi]

Ti faccio un esempio io:

Private Sub Carica()
Dim Vettore(3) As Integer
Dim Bool As Boolean

Dim Cont As Integer
Dim Riga As String


Vettore(0) = 1
Vettore(1) = 2
Vettore(2) = 3
Vettore(3) = 4
Bool = True

Open "C:\File.txt" For Input As #1
  Do Until EOF(1)
    Line Input #1, Riga
    If Left(Riga, 7) = "Vettore" Then
      Vettore(Cont) = CInt(Right(Riga, 1))
      Cont = Cont + 1
    End If
  Loop
  If Left(Riga, 4) = "Bool" Then
    Bool = CBool(Replace(Riga, "Bool=", ""))
  End If
Close #1
End Sub

Private Sub Salva()
Dim Vettore(3) As Integer
Dim Bool As Boolean

Dim Cont As Integer


Vettore(0) = 1
Vettore(1) = 2
Vettore(2) = 3
Vettore(3) = 4
Bool = True

Open "C:\File.txt" For Output As #1
  For Cont = 0 To UBound(Vettore)
    Print #1, "Vettore(" & CStr(Cont) & ")=" & CStr(Vettore(Cont))
  Next Cont
  Print #1, "Bool=" & CStr(Bool)
Close #1
End Sub