Extraire la première ligne d'une chaine de caractère

Version imprimable

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:

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 :

Citation:

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.

05/11/2010, 16h10
Kaidan

Utilise ReadLine et pas ReadToEnd.
05/11/2010, 16h12
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.

Bonjour,

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

Code:

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:

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)

En C# ca donnerait ceci :

Code:

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
  }
}

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

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.