[VB6] Scrivere tabella in file

[pierabo]

Ciao, è facilissimo:

Dim NumFile As Integer

Private Sub Command1_Click()
  'scrive i dati
  NumFile = FreeFile
  Open App.Path & "\prova.txt" For Output As #NumFile
  
  Print #NumFile, "¦riga1¦nome1¦cognome1¦"
  Print #NumFile, "¦riga2¦nome2¦cognome2¦"
  Print #NumFile, "¦riga3¦nome3¦cognome3¦"
  Print #NumFile, "¦riga4¦nome4¦cognome4¦"

  Close #NumFile

End Sub


Private Sub Command2_Click()
  'legge i dati
  Dim Stringa As String
  Dim Campi() As String
  Dim Ind As Integer

  
  NumFile = FreeFile
  Open App.Path & "\prova.txt" For Input As #NumFile
  
  Do While Not EOF(NumFile)
    DoEvents
    Line Input #NumFile, Stringa
    Campi = Split(Stringa, "¦")
    For Ind = 1 To UBound(Campi)
      'qui tratti i singoli campi
      Debug.Print Campi(Ind)
    Next Ind
  Loop

  Close #NumFile

End Sub