Lire mon CSV (graphe) ! (chart, etc..)

Version imprimable

2 pièce(s) jointe(s)

Bonjour à tous !

Alors voilà j'ai réussi à créer un graphe :

Pièce jointe 390380

Mais ce sont des valeurs en "durs" il n'y a rien de dynamique car c'est moi qui a rentré les valeurs.
Ce que je cherche a faire, c'est de rendre mon programme dynamique, dans le sens ou je veux importer les données de mon csv qui ressemble à ça :

Pièce jointe 390387

Voici mon code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
	Public Sub showChart()
 
		'Dim file1 As String = File.ReadAllText("C:\Users\ism\Documents\SharpDevelop Projects\D_test\test.csv")
		'Forms.MessageBox.Show(file1)
 
	Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
        MyValue.Add(New KeyValuePair(Of Integer, Double)(0, -0.007505519))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(50, -0.00397351))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(100, 0.0008830022))
 
        MyValue.Add(New KeyValuePair(Of Integer, Double)(110, 0.01324503))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(115, 0.004415011))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(120, 0.006181016))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(125, 0.08609272))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(130, 0.5209713))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(135, 0.2980132))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(140, 0.1205298))      
 
        MyValue.Add(New KeyValuePair(Of Integer, Double)(150, 0.04238411))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(200, 0.007505519))
        MyValue.Add(New KeyValuePair(Of Integer, Double)(250, 0.008388521))
 
		Chart.DataContext = MyValue
End Sub

Quelqu'un pourrait m'aider ? Avec un exemple ou bien me guider ?

Merci à tous !

21/06/2018, 17h46
Invité

Bonsoir,

https://www.developpez.net/forums/d1...m/#post9795931

Ici c'est du vba (juste pour une idée), tu peux requêter sur un csv. Tu reconstruis une connexion sur ton répertoire en .net, récupères u dataset ou un datatable et tu alimentes ton graph.

Attention au shema.ini.

Tu peux également t'intéresser au LINQ.
22/06/2018, 10h37
ism10

Bonjour dysorthographie,

Merci premièrement pour ta réponse. Mon niveau est faible je viens de commencer le Vb.net(et le dev en général...), donc oui je trouve tout ça un peu compliqué pour moi !

Pourrais-tu, ou quelqu'un d'autre m'expliquer plus en détail ou me donner des exemples simples ?

Merci pour vos réponses !
22/06/2018, 12h47
ism10

Code:

MyValue.Add(New KeyValuePair(Of Integer, Double)(0, -0.007505519))

A la place des valeurs :

Citation:

(0, -0.007505519)

il faut que je trouve un moyen de mettre quelque chose, donc une variable par exemple (quelque chose de dynamique) ces variables seraient en relation direct avec mon CSV, une variable pour une colonne par exemple. Mais comment faire ? Je tourne en rond je ne trouve pas.

Quelqu'un pour m'aiguiller svp ??

:arf:

Avec mes modestes compétences de développeur du dimanche ;) :

Soit :

Code:

1
2
3
4
5
Dim MyValue As New Dictionary(Of Integer, Double)
Dim MyColValue As New Dictionary(Of Integer, Dictionary(Of Integer, Double))
 
MyValue.Add(0, -0.007505519)
MyColValue.Add(1, MyValue)

Soit tu créer une Class :

Code:

1
2
3
4
5
Public Class InfoPoint
  Public Property ColExcel as Integer
  Public Property X as Integer
  Public Property Y as Double
End Class

Ensuite tu utilises une List Of :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Dim MyPointsList as New List(Of InfoPoint)
Dim MyInfoPoint as New InfoPoint
With MyInfoPoint
  ColExcel = 1
  X = 0
  Y = -0.007505519
End With
MyPointsList.Add(MyInfoPoint)
 
'[...]
 
For Each Point as InfoPoint in MyPointsList
  'Ecriture dans Excel
Next

En espérant t'avoir aider...

22/06/2018, 14h13
ism10

1 pièce(s) jointe(s)

Citation:

Avec mes modestes compétences de développeur du dimanche

Non non tes compétences ne le sont pas !

Citation:

En espérant t'avoir aider...

Oui tu m'as aidé et je t'en remercie.

Cependant ton programme, tu me dis si je me trompe, mais je crois qu'il écrit dans un csv or moi c'est l'inverse je veux lire mon csv et l’afficher en graphe de cette manière :

Pièce jointe 390811

Citation:

Envoyé par ism10

Cependant ton programme, tu me dis si je me trompe, mais je crois qu'il écrit dans un csv or moi c'est l'inverse je veux lire mon csv et l’afficher en graphe de cette manière ...

Je ne sais pas comment tu lis ton fichier Excel. Mais dans l'esprit :
Code:

1 2 3 4 5 6 7 8 9 Dim MyPointsList as New List(Of InfoPoint) 'Boucle sur tes cellules Dim MyInfoPoint as New InfoPoint With MyInfoPoint ColExcel = 'Indice de ta colonne X = 'Valeur de ton classeur pour X Y = -'Valeur de ton classeur pour Y End With MyPointsList.Add(MyInfoPoint)

22/06/2018, 16h01
ism10

1 pièce(s) jointe(s)

Merci énormement pour ton aide !

Je pense utiliser une boucle (for ou while, de préférence while) qui lirait chaque point de mon CSV (environ 1000), tant qu'il reste des points (donc tant que le fichier n'est pas "fini"), donc les X.

Ensuite les Y seront les valeurs correspondantes à X, les Y formeront donc les pts de ma courbe.

par exemple :
x=0 y=0.00015415
x=1 y=0.0003565
x=2 y=0.0006569
.
.
.
x=1000 y=0.006548

Donc une boucle avec 1000 itérations, donc qui incrémente mon X de 0 à 1000 et dans mon Y on retrouverait les valeurs de mon CSV (colonne B dans mon csv)
Pièce jointe 390836
22/06/2018, 17h02
Invité

Bonsoir,

https://www.codeproject.com/Articles...to-CSV-library

Merci dysorthographie ça m'a un peu aidé !

Voici pour le moment ce que j'utilise (c'est un code que j'ai trouvé mais je n'arrive pas à afficher ma courbe)
J'aimerai savoir ce que je dois faire, j'ai peut être mal compris le code....

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
Private Sub showChart()
 
        Dim TextFileReader As New Microsoft.VisualBasic.FileIO.TextFieldParser("C:\Users\ism\Documents\SharpDevelop Projects\Dig\bin\Debug\Measurements\b1.csv")
 
	    TextFileReader.TextFieldType = Microsoft.VisualBasic.FileIO.FieldType.Delimited
	    TextFileReader.SetDelimiters(";")
 
	    Dim TextFileTable As DataTable = Nothing
 
	    Dim Column As DataColumn
	    Dim Row As DataRow
            Dim UpperBound As Int32
	    Dim ColumnCount As Int32
	    Dim CurrentRow As String()
 
	    While Not TextFileReader.EndOfData
	    	Try
	    		CurrentRow = TextFileReader.ReadFields()
	    		If Not CurrentRow Is Nothing Then
	    		''# Check if DataTable has been created
	                If TextFileTable Is Nothing Then
	                    TextFileTable = New DataTable("TextFileTable")
	                    ''# Get number of columns
	                    UpperBound = CurrentRow.GetUpperBound(0)
	                    ''# Create new DataTable
	                    For ColumnCount = 0 To UpperBound
	                        Column = New DataColumn()
	                        Column.DataType = System.Type.GetType("System.String")
	                        Column.ColumnName = "Column" & ColumnCount
	                        Column.Caption = "Column" & ColumnCount
	                        Column.ReadOnly = True
	                        Column.Unique = False
	                        TextFileTable.Columns.Add(Column)
	                        Next
	                End If
	                Row = TextFileTable.NewRow
	                For ColumnCount = 0 To UpperBound
	                    Row("Column" & ColumnCount) = CurrentRow(ColumnCount).ToString
	                Next
	                TextFileTable.Rows.Add(Row)
	    		End If
 
	    	Catch ex As Microsoft.VisualBasic.FileIO.MalformedLineException
	    		Forms.MessageBox.Show("Line" & ex.Message & "is not valid and will be skipped.")
	    	End Try
	    End While
	    	        MyValue.Add(New KeyValuePair(Of Integer, Double)())'(X, Y))
	                Chart.DataContext = TextFileReader 
    End Sub

J'utilisais ça pour afficher en dur :

Code:

1
2
3
4
 
                                Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
                                MyValue.Add(New KeyValuePair(Of Integer, Double)(1, 0.12251421))
	                        Chart.DataContext = MyValue

Si quelqu'un peut m'aiguiller svp je sèche, je trouve ça trop dur pour mon niveau... (alternant)

Salut,
Essaye cela :

Code:

1
2
3
4
5
6
Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))
Dim Separator As Char = CChar(";")
For Each Line As String In File.ReadAllLines("Chemin_complet_de_ton_fichier.csv")
    MyValue.Add(New KeyValuePair(Of Integer, Double)(Line.Split(Separator)(0), Line.Split(Separator)(1)))
Next
Chart.DataContext = MyValue

@+ ;)

25/06/2018, 15h20
ism10

Merci beaucoup @r.morel !

Je vais essayer et je reviens poster.

Merci énormément pour le temps consacré ! :D

Merci r.morel !

Je viens de tester et ça fonctionne très bien.
J'avais des warnings concernant des problèmes de conversions (string ==> int etc...).

Donc j'ai rajouté CInt et CDbl :

Code:

1
2
3
4
5
6
	Dim MyValue As New List(Of KeyValuePair(Of Integer, Double))()
		Dim Separator As Char = CChar(";")
		For Each Line As String In System.IO.File.ReadAllLines("chemin du Csv") (===> je compte changer "chemin du csv" ceci afin de pouvoir importer un csv que j'aurai sélectionné au préalable dans une autre fenêtre et non pas en dur comme ici)
		    MyValue.Add(New KeyValuePair(Of Integer, Double)(CInt(Line.Split(Separator)(0)), CDbl(Line.Split(Separator)(1))))
		Next
		Chart.DataContext = MyValue