Comment sauvegarder un tableau bidimensionnel en tant que fichier csv?

Question

J'utilise Visual Studio 8. vb.net. J'ai un tableau, array1 (100,8) et je veux l'enregistrer en tant que fichier csv afin que je puisse l'ouvrir en excel et examiner le contenu de plus près. La fonctionnalité de sauvegarde en fichier csv ne fera pas partie intégrante de l'application vb terminée, j'ai juste besoin de quelque chose de rapide et de sale parce que les données du tableau ne demandent qu'à être vues dans Excel pour que je puisse comprendre signification et donc continuer à coder mon application.

Merci à tous pour votre aide.

Answer 1

Untested C#:

static void WriteCsv<T>(T[,] data, string path) 
    { 
     char[] specialChars = {',','\"', '\n','\r'}; 
     using (var file = File.CreateText(path)) 
     { 
      int height = data.GetLength(0), width = data.GetLength(1); 
      for (int i = 0; i < height; i++) 
      { 
       if (i > 0) file.WriteLine(); 
       for (int j = 0; j < width; j++) 
       { 
        string value = Convert.ToString(data[i, j]); 
        if (value.IndexOfAny(specialChars) >= 0) 
        { 
         value = "\"" + value.Replace("\"", "\"\"") 
          + "\""; 
        } 
        if (j > 0) file.Write(','); 
        file.Write(value); 
       } 
      } 
     } 
    } 

réflecteur qui se traduit par:

Private Shared Sub WriteCsv(Of T)(ByVal data As T(0 To .,0 To .), ByVal path As String) 
    Dim specialChars As Char() = New Char() { ","c, """"c, ChrW(10), ChrW(13) } 
    Using file As StreamWriter = File.CreateText(path) 
     Dim height As Integer = data.GetLength(0) 
     Dim width As Integer = data.GetLength(1) 
     Dim i As Integer 
     For i = 0 To height - 1 
      If (i > 0) Then 
       file.WriteLine 
      End If 
      Dim j As Integer 
      For j = 0 To width - 1 
       Dim value As String = Convert.ToString(data(i, j)) 
       If (value.IndexOfAny(specialChars) >= 0) Then 
        value = ("""" & value.Replace("""", """""") & """") 
       End If 
       If (j > 0) Then 
        file.Write(","c) 
       End If 
       file.Write(value) 
      Next j 
     Next i 
    End Using 
End Sub 

Answer 2

Je n'ai pas un compilateur vb sur moi, mais peut-être ce pseudocode aidera

textStream = File.OpenText("c:\output.csv") 
for i = 0 to 99 
{ 
    for j = 0 to 7 
    { 
    write array1[i][j] to textStream 
    write "," to textStream 
    } 
    write newline to textStream 
} 
close textstream 

Ensuite, ouvrez le fichier dans Excel.