Creare un file CSV in QB64

Ecco un esempio di codice QB64 che crea un file CSV:

Open "file.csv" For Output As #1

Dim array(1 To 3, 1 To 2) As String
array(1, 1) = "Nome"
array(1, 2) = "Cognome"
array(2, 1) = "Mario"
array(2, 2) = "Rossi"
array(3, 1) = "Luca"
array(3, 2) = "Bianchi"

For i = 1 To 3
    For j = 1 To 2
        Print #1, array(i, j);
        If j <> 2 Then Print #1, ";";
    Next j
    Print #1, ""
Next i

Close #1

Questo codice crea un file CSV chiamato “file.csv“. Il file CSV è un formato di file utilizzato per memorizzare i dati in un formato testuale in modo che possano essere aperti e modificati da diverse applicazioni. In questo esempio, si crea un array bidimensionale chiamato “array” e si inseriscono alcuni valori.

Il codice utilizza un ciclo annidato FOR per scorrere ogni riga e colonna dell’array e scriverli nel file CSV. Ogni riga viene terminata con una nuova riga PRINT #1, “”. Il separatore tra le colonne è il punto e virgola, ma se l’elemento è l’ultimo della riga, non viene inserito il separatore.

Infine, il file viene chiuso con il comando CLOSE #1.