Discussion :

[Anais35]

Bonjour,

j'ai des données que j'importe d'un fichier *.CSV. Je souhaite mettre ces données dans un tableau. Pour cela, j'utilise le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Module Module1
 
    Sub main()
        'http://msdn.microsoft.com/fr-fr/library/yw67h925%28VS.80%29.aspx
        Dim fileReader As System.IO.StreamReader
        fileReader = _
        My.Computer.FileSystem.OpenTextFileReader("C:\Documents and Settings\Mes documents\VB\Classeur1.csv")
        Dim ToutLeTexte As String
        ToutLeTexte = fileReader.ReadToEnd()
        MsgBox(ToutLeTexte)
    End Sub
End Module

Lorsque j'exécute ce code, ma variable ToutLeTexte contient :

153,0141418;0,459403456;51,35011068;15,284839
166,3136136;0,599539206;32,87270608;31,98955408
165,9946745;0,514952116;28,58653956;34,7688811
...

(je n'ai mis que les 3 premières lignes). Pour mettre les données dans un tableau, il faut que je connaisse le nombre de lignes et le nombre de colonnes. Comment puis-je faire ?

Je vous remercie par avance.

[Kaidan]

Utilise ReadLine et pas ReadToEnd.

[sebnantes]

Tu dois faire une boucle While avec la méthode readline, tu peux ainsi connaître le nombre de lignes à l'aide d'un compteur. Ensuite, pour le nombre de colonnes tu peux faire un split d'une ligne en te servant du ";" comme argument de séparation.

[BB-69]

Bonjour,

il est aussi possible de compter le nombre de ligne comme ceci :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Imports System.IO
 
Dim NbreLigne As Integer       
Dim ToutLeTexte As String()
 
ToutLeTexte = File.ReadAllLines("C:\Documents and Settings\Mes documents\VB\Classeur1.csv")
NbreLigne = ToutLeTexte.Length
MsgBox(NbreLigne)

Ou bien comme cité précédement par une lecture complete du fichier dans une boucle :

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Imports System.IO
 
Dim NbreLigne As Integer = 0
Dim fileReader As System.IO.StreamReader
 
fileReader = My.Computer.FileSystem.OpenTextFileReader("C:\Documents and Settings\Mes documents\VB\Classeur1.csv")
 
Do While (fileReader.EndOfStream = False)
    fileReader.ReadLine()
    NbreLigne += 1
Loop
 
fileReader.Close()
MsgBox(NbreLigne)

[Graffito]

En C# ca donnerait ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
String [] MesLignes = ToutleTexte.Split(Environment.NewLine,
                              StringSplitOptions.RemoveEmptyEntries) ;
Float [,] MonTableau= new Float[MesLignes.Length,4] ;
for (int i=0;i<MesLignes.Length;i++)
{
   string [] MesNombres=MesLignes.Split(';') ;
   for (int j=0;i<Math.Max(MesNombres.Length,4);j++)
  {
      float f ;
      if (float.TryParse(MesNombres[j],out f} MonTableau[i,j]=f ;
      else ... // erreur valeur incorrecte
  }
}

[Anais35]

Merci beaucoup à tous. J'ai testé chaque méthode j'ai réussi ac le code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Imports System.IO
 
Dim NbreLigne As Integer = 0
Dim fileReader As System.IO.StreamReader
 
fileReader = My.Computer.FileSystem.OpenTextFileReader("C:\Documents and Settings\Mes documents\VB\Classeur1.csv")
 
Do While (fileReader.EndOfStream = False)
    fileReader.ReadLine()
    NbreLigne += 1
Loop
 
fileReader.Close()
MsgBox(NbreLigne)

Pour le langage en C# merci quand même mais je débute avec le VB et j'ai beaucoup de mal alors je vais m'en tenir à celui-ci pour l'instant.